PSGDSPN.m

PSGDSPN ;BIR/CML3-PRINT DISCHARGE ORDERS NEW PAGE ;21-Jun-2004 16:47;PLS

 ;;5.0; INPATIENT MEDICATIONS ;**20**;16 DEC 97

 ;

 ; Modified - IHS/CIA/PLS - 06/21/04 - Line NP+4

NP ;

 I 'CML K DIR S DIR(0)="E" W ! D ^DIR S NP=$S($D(DTOUT):"^",1:$E(X)) K DTOUT,DUOUT,DIRUT,DIROUT Q:NP="^"

 I CML W:'NC !!!?44,"PATIENT CONTINUED ON NEXT PAGE..." F Q=$Y:1:IOSL-5 W !

 S PG=PG+1 W:CML !?2,PPN,?40,PSSN,?78-$L(PDOB),PDOB I HDR<22 D ENHDR1^PSGDSP0 Q

 ; IHS/CIA/PLS - 06/21/04 - Removed reference to VA Form

 ;W:$Y @IOF W !?+HDR,"AUTHORIZED ABSENCE/DISCHARGE ",$P(HDR,"^",2),?73-$L(PG),"Page: "_PG,!?+PSGVAMC,$P(PSGVAMC,U,2),!?1,"VA FORM: 10-7978M",!?1,PPN,?40,PSSN,?60,PDOB

 W:$Y @IOF W !?+HDR,"AUTHORIZED ABSENCE/DISCHARGE ",$P(HDR,"^",2),?73-$L(PG),"Page: "_PG,!?+PSGVAMC,$P(PSGVAMC,U,2),!?1," ",!?1,PPN,?40,PSSN,?60,PDOB

 W:DRG]"" !,LINE,!,?56,"Schedule",?72,"Cost per",!," No.",?10,"Medication",?56,"Type",?72,"Dose" Q

PSGDSPN   ;BIR/CML3-PRINT DISCHARGE ORDERS NEW PAGE ;21-Jun-2004 16:47;PLS

 +1       ;;5.0; INPATIENT MEDICATIONS ;**20**;16 DEC 97

 +2       ;

 +3       ; Modified - IHS/CIA/PLS - 06/21/04 - Line NP+4

NP        ;

 +1        IF 'CML

               KILL DIR

               SET DIR(0)="E"

               WRITE !

               DO ^DIR

               SET NP=$SELECT($DATA(DTOUT):"^",1:$EXTRACT(X))

               KILL DTOUT,DUOUT,DIRUT,DIROUT

               IF NP="^"

                   QUIT 

 +2        IF CML

               IF 'NC

                   WRITE !!!?44,"PATIENT CONTINUED ON NEXT PAGE..."

               FOR Q=$Y:1:IOSL-5

                   WRITE !

 +3        SET PG=PG+1

           IF CML

               WRITE !?2,PPN,?40,PSSN,?78-$LENGTH(PDOB),PDOB

           IF HDR<22

               DO ENHDR1^PSGDSP0

               QUIT 

 +4       ; IHS/CIA/PLS - 06/21/04 - Removed reference to VA Form

 +5       ;W:$Y @IOF W !?+HDR,"AUTHORIZED ABSENCE/DISCHARGE ",$P(HDR,"^",2),?73-$L(PG),"Page: "_PG,!?+PSGVAMC,$P(PSGVAMC,U,2),!?1,"VA FORM: 10-7978M",!?1,PPN,?40,PSSN,?60,PDOB

 +6        IF $Y

               WRITE @IOF

           WRITE !?+HDR,"AUTHORIZED ABSENCE/DISCHARGE ",$PIECE(HDR,"^",2),?73-$LENGTH(PG),"Page: "_PG,!?+PSGVAMC,$PIECE(PSGVAMC,U,2),!?1," ",!?1,PPN,?40,PSSN,?60,PDOB

 +7        IF DRG]""

               WRITE !,LINE,!,?56,"Schedule",?72,"Cost per",!," No.",?10,"Medication",?56,"Type",?72,"Dose"

           QUIT