PSJXR56.m

PSJXR56 ; COMPILED XREF FOR FILE #55.06 ; 11/17/04

 ; 

 I X'="" I '$D(DIU(0)),'$D(PSGPO) S PSGAL(101)=X,PSGAL("C")=6000,PSGALFF=101,PSGALFN=55.06 D ^PSGAL5

 S X=$P(DIKZ(.1),U,2)

 I X'="" I '$D(DIU(0)),'$D(PSGPO) S PSGAL(102)=X,PSGAL("C")=6000,PSGALFF=102,PSGALFN=55.06 D ^PSGAL5

 S X=$P(DIKZ(0),U,24)

 I X'="" I '$D(DIU(0)),'$D(PSGPO) S PSGAL(103)=X,PSGAL("C")=6000,PSGALFF=103,PSGALFN=55.06 D ^PSGAL5

 S X=$P(DIKZ(0),U,25)

 I X'="" I '$D(DIU(0)),'$D(PSGPO) S PSGAL(104)=X,PSGAL("C")=6000,PSGALFF=104,PSGALFN=55.06 D ^PSGAL5

 S X=$P(DIKZ(0),U,26)

 I X'="" I '$D(DIU(0)),'$D(PSGPO) S PSGAL(105)=X,PSGAL("C")=6000,PSGALFF=105,PSGALFN=55.06 D ^PSGAL5

 S X=$P(DIKZ(.1),U,3)

 I X'="" I '$D(DIU(0)),'$D(PSGPO) S PSGAL(106)=X,PSGAL("C")=6000,PSGALFF=106,PSGALFN=55.06 D ^PSGAL5

 S X=$P(DIKZ(0),U,27)

 I X'="" I '$D(DIU(0)),'$D(PSGPO) S PSGAL(107)=X,PSGAL("C")=6000,PSGALFF=107,PSGALFN=55.06 D ^PSGAL5

 S X=$P(DIKZ(0),U,1)

 I X'="" I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1)=X,PSGAL("C")=6000,PSGALFF=.01 D ^PSGAL5

 S X=$P(DIKZ(0),U,1)

 I X'="" K ^PS(55,DA(1),5,"B",$E(X,1,30),DA)

 S X=$P(DIKZ(0),U,1)

 I X'="" I '$D(DIU(0)) K ^PS(55,"AUE",DA(1),DA)

 G:'$D(DIKLM) A^PSJXR55 Q:$D(DIKILL)

END G ^PSJXR57

PSJXR56   ; COMPILED XREF FOR FILE #55.06 ; 11/17/04

 +1       ; 

 +2        IF X'=""

               IF '$DATA(DIU(0))

                   IF '$DATA(PSGPO)

                       SET PSGAL(101)=X

                       SET PSGAL("C")=6000

                       SET PSGALFF=101

                       SET PSGALFN=55.06

                       DO ^PSGAL5

 +3        SET X=$PIECE(DIKZ(.1),U,2)

 +4        IF X'=""

               IF '$DATA(DIU(0))

                   IF '$DATA(PSGPO)

                       SET PSGAL(102)=X

                       SET PSGAL("C")=6000

                       SET PSGALFF=102

                       SET PSGALFN=55.06

                       DO ^PSGAL5

 +5        SET X=$PIECE(DIKZ(0),U,24)

 +6        IF X'=""

               IF '$DATA(DIU(0))

                   IF '$DATA(PSGPO)

                       SET PSGAL(103)=X

                       SET PSGAL("C")=6000

                       SET PSGALFF=103

                       SET PSGALFN=55.06

                       DO ^PSGAL5

 +7        SET X=$PIECE(DIKZ(0),U,25)

 +8        IF X'=""

               IF '$DATA(DIU(0))

                   IF '$DATA(PSGPO)

                       SET PSGAL(104)=X

                       SET PSGAL("C")=6000

                       SET PSGALFF=104

                       SET PSGALFN=55.06

                       DO ^PSGAL5

 +9        SET X=$PIECE(DIKZ(0),U,26)

 +10       IF X'=""

               IF '$DATA(DIU(0))

                   IF '$DATA(PSGPO)

                       SET PSGAL(105)=X

                       SET PSGAL("C")=6000

                       SET PSGALFF=105

                       SET PSGALFN=55.06

                       DO ^PSGAL5

 +11       SET X=$PIECE(DIKZ(.1),U,3)

 +12       IF X'=""

               IF '$DATA(DIU(0))

                   IF '$DATA(PSGPO)

                       SET PSGAL(106)=X

                       SET PSGAL("C")=6000

                       SET PSGALFF=106

                       SET PSGALFN=55.06

                       DO ^PSGAL5

 +13       SET X=$PIECE(DIKZ(0),U,27)

 +14       IF X'=""

               IF '$DATA(DIU(0))

                   IF '$DATA(PSGPO)

                       SET PSGAL(107)=X

                       SET PSGAL("C")=6000

                       SET PSGALFF=107

                       SET PSGALFN=55.06

                       DO ^PSGAL5

 +15       SET X=$PIECE(DIKZ(0),U,1)

 +16       IF X'=""

               IF '$DATA(DIU(0))

                   IF '$DATA(PSGPO)

                       SET PSGAL(1)=X

                       SET PSGAL("C")=6000

                       SET PSGALFF=.01

                       DO ^PSGAL5

 +17       SET X=$PIECE(DIKZ(0),U,1)

 +18       IF X'=""

               KILL ^PS(55,DA(1),5,"B",$EXTRACT(X,1,30),DA)

 +19       SET X=$PIECE(DIKZ(0),U,1)

 +20       IF X'=""

               IF '$DATA(DIU(0))

                   KILL ^PS(55,"AUE",DA(1),DA)

 +21       IF '$DATA(DIKLM)

               GOTO A^PSJXR55

           IF $DATA(DIKILL)

               QUIT 

END        GOTO ^PSJXR57