PSJXR517 ; COMPILED XREF FOR FILE #55.06 ; 11/17/04
;
I X'="" I '$D(DIU(0)) D:$D(PSGAL(74)) KILL^PSGAL5:PSGAL(74)=X K PSGAL
S X=$P(DIKZ(4),U,22)
I X'="" I '$D(DIU(0)) D:$D(PSGAL(75)) KILL^PSGAL5:PSGAL(75)=X K PSGAL
S X=$P(DIKZ(4),U,23)
I X'="" I '$D(DIU(0)) D:$D(PSGAL(76)) KILL^PSGAL5:PSGAL(76)=X K PSGAL
S X=$P(DIKZ(4),U,24)
I X'="" I '$D(DIU(0)) D:$D(PSGAL(77)) KILL^PSGAL5:PSGAL(77)=X K PSGAL
S X=$P(DIKZ(0),U,20)
I X'="" I '$D(DIU(0)) D:$D(PSGAL(79)) KILL^PSGAL5:PSGAL(79)=X K PSGAL
S X=$P(DIKZ(0),U,20)
I X'="" S ^PS(55,"AUDDD",$E(X,1,30),DA(1),DA)=""
S DIKZ(6.5)=$G(^PS(55,DA(1),5,DA,6.5))
S X=$P(DIKZ(6.5),U,1)
I X'="" I '$D(DIU(0)) D:$D(PSGAL(78)) KILL^PSGAL5:PSGAL(78)=X K PSGAL
S X=$P(DIKZ(0),U,21)
I X'="" I '$D(DIU(0)) D:$D(PSGAL(80)) KILL^PSGAL5:PSGAL(80)=X K PSGAL
S DIKZ(.1)=$G(^PS(55,DA(1),5,DA,.1))
S X=$P(DIKZ(.1),U,1)
I X'="" S ^PS(55,DA(1),5,"C",$E(X,1,30),DA)=""
S X=$P(DIKZ(.1),U,1)
I X'="" I '$D(DIU(0)) D:$D(PSGAL(101)) KILL^PSGAL5:PSGAL(101)=X K PSGAL
S X=$P(DIKZ(.1),U,2)
I X'="" I '$D(DIU(0)) D:$D(PSGAL(102)) KILL^PSGAL5:PSGAL(102)=X K PSGAL
S X=$P(DIKZ(0),U,24)
I X'="" I '$D(DIU(0)) D:$D(PSGAL(103)) KILL^PSGAL5:PSGAL(103)=X K PSGAL
S X=$P(DIKZ(0),U,25)
I X'="" I '$D(DIU(0)) D:$D(PSGAL(104)) KILL^PSGAL5:PSGAL(104)=X K PSGAL
S X=$P(DIKZ(0),U,26)
I X'="" I '$D(DIU(0)) D:$D(PSGAL(105)) KILL^PSGAL5:PSGAL(105)=X K PSGAL
S X=$P(DIKZ(.1),U,3)
I X'="" I '$D(DIU(0)) D:$D(PSGAL(106)) KILL^PSGAL5:PSGAL(106)=X K PSGAL
S X=$P(DIKZ(0),U,27)
I X'="" I '$D(DIU(0)) D:$D(PSGAL(107)) KILL^PSGAL5:PSGAL(107)=X K PSGAL
G:'$D(DIKLM) A^PSJXR516 Q:$D(DISET)
END G ^PSJXR518
PSJXR517 ; COMPILED XREF FOR FILE #55.06 ; 11/17/04
+1 ;
+2 IF X'=""
IF '$DATA(DIU(0))
IF $DATA(PSGAL(74))
IF PSGAL(74)=X
DO KILL^PSGAL5
KILL PSGAL
+3 SET X=$PIECE(DIKZ(4),U,22)
+4 IF X'=""
IF '$DATA(DIU(0))
IF $DATA(PSGAL(75))
IF PSGAL(75)=X
DO KILL^PSGAL5
KILL PSGAL
+5 SET X=$PIECE(DIKZ(4),U,23)
+6 IF X'=""
IF '$DATA(DIU(0))
IF $DATA(PSGAL(76))
IF PSGAL(76)=X
DO KILL^PSGAL5
KILL PSGAL
+7 SET X=$PIECE(DIKZ(4),U,24)
+8 IF X'=""
IF '$DATA(DIU(0))
IF $DATA(PSGAL(77))
IF PSGAL(77)=X
DO KILL^PSGAL5
KILL PSGAL
+9 SET X=$PIECE(DIKZ(0),U,20)
+10 IF X'=""
IF '$DATA(DIU(0))
IF $DATA(PSGAL(79))
IF PSGAL(79)=X
DO KILL^PSGAL5
KILL PSGAL
+11 SET X=$PIECE(DIKZ(0),U,20)
+12 IF X'=""
SET ^PS(55,"AUDDD",$EXTRACT(X,1,30),DA(1),DA)=""
+13 SET DIKZ(6.5)=$GET(^PS(55,DA(1),5,DA,6.5))
+14 SET X=$PIECE(DIKZ(6.5),U,1)
+15 IF X'=""
IF '$DATA(DIU(0))
IF $DATA(PSGAL(78))
IF PSGAL(78)=X
DO KILL^PSGAL5
KILL PSGAL
+16 SET X=$PIECE(DIKZ(0),U,21)
+17 IF X'=""
IF '$DATA(DIU(0))
IF $DATA(PSGAL(80))
IF PSGAL(80)=X
DO KILL^PSGAL5
KILL PSGAL
+18 SET DIKZ(.1)=$GET(^PS(55,DA(1),5,DA,.1))
+19 SET X=$PIECE(DIKZ(.1),U,1)
+20 IF X'=""
SET ^PS(55,DA(1),5,"C",$EXTRACT(X,1,30),DA)=""
+21 SET X=$PIECE(DIKZ(.1),U,1)
+22 IF X'=""
IF '$DATA(DIU(0))
IF $DATA(PSGAL(101))
IF PSGAL(101)=X
DO KILL^PSGAL5
KILL PSGAL
+23 SET X=$PIECE(DIKZ(.1),U,2)
+24 IF X'=""
IF '$DATA(DIU(0))
IF $DATA(PSGAL(102))
IF PSGAL(102)=X
DO KILL^PSGAL5
KILL PSGAL
+25 SET X=$PIECE(DIKZ(0),U,24)
+26 IF X'=""
IF '$DATA(DIU(0))
IF $DATA(PSGAL(103))
IF PSGAL(103)=X
DO KILL^PSGAL5
KILL PSGAL
+27 SET X=$PIECE(DIKZ(0),U,25)
+28 IF X'=""
IF '$DATA(DIU(0))
IF $DATA(PSGAL(104))
IF PSGAL(104)=X
DO KILL^PSGAL5
KILL PSGAL
+29 SET X=$PIECE(DIKZ(0),U,26)
+30 IF X'=""
IF '$DATA(DIU(0))
IF $DATA(PSGAL(105))
IF PSGAL(105)=X
DO KILL^PSGAL5
KILL PSGAL
+31 SET X=$PIECE(DIKZ(.1),U,3)
+32 IF X'=""
IF '$DATA(DIU(0))
IF $DATA(PSGAL(106))
IF PSGAL(106)=X
DO KILL^PSGAL5
KILL PSGAL
+33 SET X=$PIECE(DIKZ(0),U,27)
+34 IF X'=""
IF '$DATA(DIU(0))
IF $DATA(PSGAL(107))
IF PSGAL(107)=X
DO KILL^PSGAL5
KILL PSGAL
+35 IF '$DATA(DIKLM)
GOTO A^PSJXR516
IF $DATA(DISET)
QUIT
END GOTO ^PSJXR518
