PSJXR51 ; COMPILED XREF FOR FILE #55 ; 10/28/97
;
S DIKZK=2
S DIKZ(0)=$G(^PS(55,DA,0))
S X=$P(DIKZ(0),U,1)
I X'="" K ^PS(55,"B",$E(X,1,30),DA)
S X=$P(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(DIKZ("SAND"),U,1)
I X'="" K ^PS(55,"ASAND",DA)
S X=$P(DIKZ("SAND"),U,1)
I X'="" K ^PS(55,"ASAND1",$E(X,1,30),DA)
END G ^PSJXR52
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJXR51 401 printed Dec 13, 2024@02:09:18 Page 2
PSJXR51 ; COMPILED XREF FOR FILE #55 ; 10/28/97
+1 ;
+2 SET DIKZK=2
+3 SET DIKZ(0)=$GET(^PS(55,DA,0))
+4 SET X=$PIECE(DIKZ(0),U,1)
+5 IF X'=""
KILL ^PS(55,"B",$EXTRACT(X,1,30),DA)
+6 SET X=$PIECE(DIKZ(0),U,4)
+7 IF X'=""
KILL ^PS(55,"ADIA",$EXTRACT(X,1,30),DA)
+8 SET DIKZ("SAND")=$GET(^PS(55,DA,"SAND"))
+9 SET X=$PIECE(DIKZ("SAND"),U,1)
+10 IF X'=""
KILL ^PS(55,"ASAND",DA)
+11 SET X=$PIECE(DIKZ("SAND"),U,1)
+12 IF X'=""
KILL ^PS(55,"ASAND1",$EXTRACT(X,1,30),DA)
END GOTO ^PSJXR52
