cANU107 ;Beheer sortering ;%ANU10 ; [ 10/10/96  4:23 PM ]
 G YZ
 ;
T0 ;Beheer sortering ;
T1 ;aflopend;;oplopend;
 ;
T0F ;Gestion triage ;
T1F ;descendant;;ascendant;
 ;
 ; type sortering
S1() N U2,X,%ZR S %ZR=$ZR
S1A M U2=^(UZB) S X=$P($T(@("T1"_QT)),U,U2("TYPE")+3) I $D(@%ZR)
S1Z Q X
 ;
 ; omschrijving + test + testwaarde
S2(UZB) N I,U2,X,%ZR S %ZR=$ZR
S2A M U2=^(UZB) S X="" I $D(@%ZR)
S2B S X=$P(U2(1),D,QTU)_X
S2C F I=1:1 Q:'$D(U2("LINK",I))  S X=$P(U2("LINK",I,1),D,QTU)_" / "_X
S2Z Q X
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 10.10.96 - 17 u 03 * V6.2.05