AGNDX2.m

AGNDX2 ; IHS/ASDS/EFG - PRINT ALL PATIENT'S INDEX CARDS ;  

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

SURE W !!!,"Are you sure you want to print index cards for ALL patients?  (Y/N) Y// " D READ^AG S Y=$E(Y_"Y") I $D(DQOUT) W !!,"This routine will print an index card for EVERY patient on your data base!!!" G SURE

 G END:("N"=Y)!$D(DTOUT)!$D(DFOUT)!$D(DUOUT) I "Y"'=Y D YN^AG G SURE

 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^AGNDX2",ZTUCI=Y,ZTDESC="Print Index Cards, All Patients, for "_$P(^AUTTLOC(DUZ(2),0),U,2)_".",ZTSAVE="" S:$D(AGALIAS) ZTSAVE("AGALIAS")=""

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

 Q

START ;EP - From TaskMan.

 U IO S AGNAME=0 F I=0:0 S AGNAME=$O(^DPT("B",AGNAME)) Q:AGNAME=""  F IEN=0:0 S IEN=$O(^DPT("B",AGNAME,IEN)) Q:IEN=""  I $D(^(IEN))=1 S DFN=IEN D ^AGNDXP

 D ^%ZISC

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

 Q

AGNDX2    ; IHS/ASDS/EFG - PRINT ALL PATIENT'S INDEX CARDS ;  

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

SURE       WRITE !!!,"Are you sure you want to print index cards for ALL patients?  (Y/N) Y// "

           DO READ^AG

           SET Y=$EXTRACT(Y_"Y")

           IF $DATA(DQOUT)

               WRITE !!,"This routine will print an index card for EVERY patient on your data base!!!"

               GOTO SURE

 +1        IF ("N"=Y)!$DATA(DTOUT)!$DATA(DFOUT)!$DATA(DUOUT)

               GOTO END

           IF "Y"'=Y

               DO YN^AG

               GOTO SURE

 +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^AGNDX2"

           SET ZTUCI=Y

           SET ZTDESC="Print Index Cards, All Patients, for "_$PIECE(^AUTTLOC(DUZ(2),0),U,2)_"."

           SET ZTSAVE=""

           IF $DATA(AGALIAS)

               SET ZTSAVE("AGALIAS")=""

 +3        DO ^%ZTLOAD

           IF '$DATA(ZTSK)

               GOTO DEV

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

           DO ^%ZISC

 +4        QUIT 

START     ;EP - From TaskMan.

 +1        USE IO

           SET AGNAME=0

           FOR I=0:0

               SET AGNAME=$ORDER(^DPT("B",AGNAME))

               IF AGNAME=""

                   QUIT 

               FOR IEN=0:0

                   SET IEN=$ORDER(^DPT("B",AGNAME,IEN))

                   IF IEN=""

                       QUIT 

                   IF $DATA(^(IEN))=1

                       SET DFN=IEN

                       DO ^AGNDXP

 +2        DO ^%ZISC

END        KILL AG,AGALIAS,DFN,IEN,I,J,AGLINE,IEN,IOP,AGNAME,AGTOT,X,Y

           IF $DATA(ZTQUEUED)

               DO KILL^%ZTLOAD

 +1        QUIT