AGNDX1.m

AGNDX1 ; IHS/ASDS/EFG - PRINT A SELECTED PATIENT'S INDEX CARD ;  

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 D PTLK^AG

DFN ;EP - With Pre-defined DFN.

 Q:'$D(DFN)

 D ALIAS^AGNDXP

 G END:$D(DTOUT)!$D(DFOUT)!$D(DUOUT)

DEV S %ZIS="OPQ" D ^%ZIS I POP S IOP=ION D ^%ZIS Q

 G:'$D(IO("Q")) START K IO("Q") I $D(IO("S"))!($E(IOST)'="P") W *7,!,"Please queue to system printers." D ^%ZISC G DEV

 X ^%ZOSF("UCI") S ZTRTN="START^AGNDX1",ZTUCI=Y,ZTDESC="Index Card for "_$P(^DPT(DFN,0),U)_"." S:$D(AGALIAS) G="AGALIAS",ZTSAVE(G)="" F G="DFN" S ZTSAVE(G)=""

 D ^%ZTLOAD G:'$D(ZTSK) DEV K AG,AGALIAS,G,ZTDESC,ZTRTN,ZTSAVE,ZTSK,ZTUCI D ^%ZISC

 Q

START ;EP - From TaskMan.

 U IO D ^AGNDXP

END D ^%ZISC K AG,AGALIAS,I,AGLINE,IOP,AGTOT,X,Y D:$D(ZTQUEUED) KILL^%ZTLOAD

 Q

AGNDX1    ; IHS/ASDS/EFG - PRINT A SELECTED PATIENT'S INDEX CARD ;  

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2        DO PTLK^AG

DFN       ;EP - With Pre-defined DFN.

 +1        IF '$DATA(DFN)

               QUIT 

 +2        DO ALIAS^AGNDXP

 +3        IF $DATA(DTOUT)!$DATA(DFOUT)!$DATA(DUOUT)

               GOTO END

DEV        SET %ZIS="OPQ"

           DO ^%ZIS

           IF POP

               SET IOP=ION

               DO ^%ZIS

               QUIT 

 +1        IF '$DATA(IO("Q"))

               GOTO START

           KILL IO("Q")

           IF $DATA(IO("S"))!($EXTRACT(IOST)'="P")

               WRITE *7,!,"Please queue to system printers."

               DO ^%ZISC

               GOTO DEV

 +2        XECUTE ^%ZOSF("UCI")

           SET ZTRTN="START^AGNDX1"

           SET ZTUCI=Y

           SET ZTDESC="Index Card for "_$PIECE(^DPT(DFN,0),U)_"."

           IF $DATA(AGALIAS)

               SET G="AGALIAS"

               SET ZTSAVE(G)=""

           FOR G="DFN"

               SET ZTSAVE(G)=""

 +3        DO ^%ZTLOAD

           IF '$DATA(ZTSK)

               GOTO DEV

           KILL AG,AGALIAS,G,ZTDESC,ZTRTN,ZTSAVE,ZTSK,ZTUCI

           DO ^%ZISC

 +4        QUIT 

START     ;EP - From TaskMan.

 +1        USE IO

           DO ^AGNDXP

END        DO ^%ZISC

           KILL AG,AGALIAS,I,AGLINE,IOP,AGTOT,X,Y

           IF $DATA(ZTQUEUED)

               DO KILL^%ZTLOAD

 +1        QUIT