- AGREPRT ; IHS/ASDS/EFG - QUE DAILY REGISTRATION ACTIVITY REPORT ;
- ;;7.1;PATIENT REGISTRATION;**5**;AUG 25,2005
- I '$D(DT) S %DT="",X="T" D ^%DT S DT=Y
- K %DT S AG("FD")="W !!,*7,""Do not use future dates."""
- A2 W !!,"Enter the BEGINNING DATE for this report: " D READ^AG Q:$D(DUOUT)!$D(DFOUT)!$D(DTOUT)!$D(DLOUT) S:$D(DQOUT) Y="?" S DTIME=300,X=Y,%DT="XEP" D ^%DT G A2:Y<1 S AG("B")=Y I Y>DT X AG("FD") G A2
- A3 W !!,"Enter the ENDING DATE for this report: " D READ^AG Q:$D(DFOUT)!$D(DTOUT)!$D(DLOUT) G A2:$D(DUOUT) S:$D(DQOUT) Y="?" S DTIME=300,X=Y,%DT="XEP" D ^%DT G A3:Y<1 S AG("E")=Y I Y>DT X AG("FD") G A3
- G A44:AG("B")'>AG("E") W !!,*7,"INVALID ENTRY - The END is before the BEGINNING." G A2
- A44 ;
- S AGB=$$FMTE^XLFDT(AG("B"),5),AGE=$$FMTE^XLFDT(AG("E"),5)
- A5 W !!!,"Which type of report do you wish? (1,2 ,3 or 4)",!!
- W " 1... `NEW, EDITED, REMOVED` Statistics only",!!
- W " 2... `NEW, EDITED, REMOVED` Statistics and patient names",!!
- W " 3... `NEW / REGISTERED` Statistics from ",AGB," To ",AGE,!!
- W " 4... `NEW / REGISTERED` Statistics and Patients from ",AGB," To ",AGE,!!,"Enter: "
- D READ^AG G A3:$D(DUOUT) Q:$D(DTOUT)!$D(DFOUT)!$D(DLOUT) I Y<1!(Y>4) W !!,*7,"Please Enter only ""1"" ,""2"",""3"" or ""4""." G A5
- S AG("TYPE")=Y S AGIO=IO,AG("HAT")=""
- DEV S %ZIS="OPQ" D ^%ZIS I POP S IOP=ION D ^%ZIS Q
- G:'$D(IO("Q")) ^AGREPRT1 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="^AGREPRT1",ZTUCI=Y,ZTDESC="REGISTRATION ACTIVITY REPORT for "_$P(^AUTTLOC(DUZ(2),0),U,2)_", "_AGB_" to "_AGE_"." F G="AG(""TYPE"")","AG(""B"")","AG(""E"")" S ZTSAVE(G)=""
- S ZTSAVE("AGB")="",ZTSAVE("AGE")="" ;AG*7.1*5 H4512
- D ^%ZTLOAD G:'$D(ZTSK) DEV K AG,AGB,AGE,AGIO,G,ZTDESC,ZTRTN,ZTSAVE,ZTSK,ZTUCI D ^%ZISC
- Q
- AGREPRT ; IHS/ASDS/EFG - QUE DAILY REGISTRATION ACTIVITY REPORT ;
- +1 ;;7.1;PATIENT REGISTRATION;**5**;AUG 25,2005
- +2 IF '$DATA(DT)
- SET %DT=""
- SET X="T"
- DO ^%DT
- SET DT=Y
- +3 KILL %DT
- SET AG("FD")="W !!,*7,""Do not use future dates."""
- A2 WRITE !!,"Enter the BEGINNING DATE for this report: "
- DO READ^AG
- IF $DATA(DUOUT)!$DATA(DFOUT)!$DATA(DTOUT)!$DATA(DLOUT)
- QUIT
- IF $DATA(DQOUT)
- SET Y="?"
- SET DTIME=300
- SET X=Y
- SET %DT="XEP"
- DO ^%DT
- IF Y<1
- GOTO A2
- SET AG("B")=Y
- IF Y>DT
- XECUTE AG("FD")
- GOTO A2
- A3 WRITE !!,"Enter the ENDING DATE for this report: "
- DO READ^AG
- IF $DATA(DFOUT)!$DATA(DTOUT)!$DATA(DLOUT)
- QUIT
- IF $DATA(DUOUT)
- GOTO A2
- IF $DATA(DQOUT)
- SET Y="?"
- SET DTIME=300
- SET X=Y
- SET %DT="XEP"
- DO ^%DT
- IF Y<1
- GOTO A3
- SET AG("E")=Y
- IF Y>DT
- XECUTE AG("FD")
- GOTO A3
- +1 IF AG("B")'>AG("E")
- GOTO A44
- WRITE !!,*7,"INVALID ENTRY - The END is before the BEGINNING."
- GOTO A2
- A44 ;
- +1 SET AGB=$$FMTE^XLFDT(AG("B"),5)
- SET AGE=$$FMTE^XLFDT(AG("E"),5)
- A5 WRITE !!!,"Which type of report do you wish? (1,2 ,3 or 4)",!!
- +1 WRITE " 1... `NEW, EDITED, REMOVED` Statistics only",!!
- +2 WRITE " 2... `NEW, EDITED, REMOVED` Statistics and patient names",!!
- +3 WRITE " 3... `NEW / REGISTERED` Statistics from ",AGB," To ",AGE,!!
- +4 WRITE " 4... `NEW / REGISTERED` Statistics and Patients from ",AGB," To ",AGE,!!,"Enter: "
- +5 DO READ^AG
- IF $DATA(DUOUT)
- GOTO A3
- IF $DATA(DTOUT)!$DATA(DFOUT)!$DATA(DLOUT)
- QUIT
- IF Y<1!(Y>4)
- WRITE !!,*7,"Please Enter only ""1"" ,""2"",""3"" or ""4""."
- GOTO A5
- +6 SET AG("TYPE")=Y
- SET AGIO=IO
- SET AG("HAT")=""
- DEV SET %ZIS="OPQ"
- DO ^%ZIS
- IF POP
- SET IOP=ION
- DO ^%ZIS
- QUIT
- +1 IF '$DATA(IO("Q"))
- GOTO ^AGREPRT1
- 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="^AGREPRT1"
- SET ZTUCI=Y
- SET ZTDESC="REGISTRATION ACTIVITY REPORT for "_$PIECE(^AUTTLOC(DUZ(2),0),U,2)_", "_AGB_" to "_AGE_"."
- FOR G="AG(""TYPE"")","AG(""B"")","AG(""E"")"
- SET ZTSAVE(G)=""
- +3 ;AG*7.1*5 H4512
- SET ZTSAVE("AGB")=""
- SET ZTSAVE("AGE")=""
- +4 DO ^%ZTLOAD
- IF '$DATA(ZTSK)
- GOTO DEV
- KILL AG,AGB,AGE,AGIO,G,ZTDESC,ZTRTN,ZTSAVE,ZTSK,ZTUCI
- DO ^%ZISC
- +5 QUIT
