UITLEV ;Uitlevering routines [ 08/09/94  4:06 PM ]
 ;
TYPE(ULNr) 
 New ULL,Type,KLNr,Neg,Pos
 Set ULL=100
 Set Type="F"
 Set KLNr=+^KU1(ULNr,Type)
 Set (Neg,Pos)=""
 For  Set ULL=$O(^KUL(KLNr,Type,ULNr,ULL)) Quit:'ULL  If $P(^(ULL),D,2) Set:$P(^(ULL),D,3)>0 Pos=1 Set:$P(^(ULL),D,3)<0 Neg=1
 If Neg,Pos Set Neg="G"
 Else  Set:Neg Neg="T"
 Set $P(^KUL(KLNr,Type,ULNr,1),D,26)=Neg 
 Quit
 ;
NEWNUM() 
 New ULNr
 Lock +^KUL(0,"F","UR")
 Set ULNr=^KUL(0,"F","UR")
 For  Quit:'$D(^KU1(ULNr,"F"))  Set ULNr=ULNr+1
 If ULNr>399999 Set ULNr=300000 For  Quit:'$D(^KU1(ULNr,"F"))  Set ULNr=ULNr+1
 Set ^KUL(0,"F","UR")=ULNr+1
 Lock -^KUL(0,"F","UR")
 Q ULNr
 ;