PSSJXR1 ; COMPILED XREF FOR FILE #55 ; 10/05/22
;
S DIKZK=2
S DIKZ(0)=$G(^PS(55,DA,0))
S X=$P($G(DIKZ(0)),U,4)
I X'="" K ^PS(55,"ADIA",$E(X,1,30),DA)
S DIKZ("SAND")=$G(^PS(55,DA,"SAND"))
S X=$P($G(DIKZ("SAND")),U,1)
I X'="" K ^PS(55,"ASAND",DA)
S X=$P($G(DIKZ("SAND")),U,1)
I X'="" K ^PS(55,"ASAND1",$E(X,1,30),DA)
S X=$P($G(DIKZ(0)),U,1)
I X'="" K ^PS(55,"B",$E(X,1,30),DA)
END G ^PSSJXR2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSJXR1 417 printed Dec 13, 2024@02:32:14 Page 2
PSSJXR1 ; COMPILED XREF FOR FILE #55 ; 10/05/22
+1 ;
+2 SET DIKZK=2
+3 SET DIKZ(0)=$GET(^PS(55,DA,0))
+4 SET X=$PIECE($GET(DIKZ(0)),U,4)
+5 IF X'=""
KILL ^PS(55,"ADIA",$EXTRACT(X,1,30),DA)
+6 SET DIKZ("SAND")=$GET(^PS(55,DA,"SAND"))
+7 SET X=$PIECE($GET(DIKZ("SAND")),U,1)
+8 IF X'=""
KILL ^PS(55,"ASAND",DA)
+9 SET X=$PIECE($GET(DIKZ("SAND")),U,1)
+10 IF X'=""
KILL ^PS(55,"ASAND1",$EXTRACT(X,1,30),DA)
+11 SET X=$PIECE($GET(DIKZ(0)),U,1)
+12 IF X'=""
KILL ^PS(55,"B",$EXTRACT(X,1,30),DA)
END GOTO ^PSSJXR2
