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() 
 Quit $$GETNUM^FLOW("KUL","KU1")
 ;