- 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
