- APCLRPL ; IHS/CMI/LAB - r-dmg-510 PATIENT LIST ;
- ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- ;
- ;
- START ;
- K APCLQUIT
- D INIT
- G:$D(APCLQUIT) QUIT
- F ;
- W !!
- K APCLLOC S DIC("A")="Run report for patients registered at which Facility: ",DIC="^AUTTLOC(",DIC(0)="AEMQ" D ^DIC K DIC,DA G:Y<0 QUIT
- S APCLLOC=+Y
- W !!
- S APCLNCAN=1 D ADD^APCLVL01 I $D(APCLQUIT) D DEL^APCLVL K APCLQUIT G QUIT
- SCREEN ;
- S APCLTCW=0,APCLPTVS="P",APCLTYPE="P",APCLCTYP=""
- K ^APCLVRPT(APCLRPT,11) S APCLCNTL="S" D ^APCLVL4 K APCLCNTL I $D(APCLQUIT) D DEL^APCLVL G QUIT
- D SORT^APCLVL3
- I $D(APCLQUIT) D DEL^APCLVL G QUIT
- ZIS ;
- DEMO ;
- D DEMOCHK^APCLUTL(.APCLDEMO)
- I APCLDEMO=-1 G F
- K APCLSEL,APCLDISP
- S XBRP="^APCLRPLP",XBRC="^APCLRPL1",XBRX="QUIT^APCLRPL",XBNS="APCL"
- D ^XBDBQUE
- D QUIT
- Q
- QUIT ;
- K APCLLOC,APCLNCAN,APCLQUIT,APCLTCW,APCLSEL,APCLDISP,APCLPTVS,APCLTYPE,APCLCTYP,APCLRPT,APCLBT,APCLBTH,APCLET,APCLRCNT,APCLPTCT,APCLJOB,APCLSPEC,APCLSKIP,APCLSRT,APCSRTV,APCLPRNT,APCLCRIT,APCLSORT,APCLX,APCLI,APCLFOUN,APCLPG,APCLFRST
- K DFN
- Q
- INIT ;
- W:$D(IOF) @IOF
- W !,?15,"********** DETAILED PATIENT REGISTER *********",!!
- W !,"This Option will search the Patient file for all patients that you select.",!
- W "A Report will result which will resemble the output from the R-DMG-510 report"
- W !,"received from the data center.",!
- W !,"You will be asked to select which facilities chart number should be displayed",!,"on the report.",!
- W !,"Two additional screens will also be displayed. The 1st Screen allows the User",!,"SEARCH for a selected group of patients."
- W " The 2nd Screen allows the User",!," to SORT the report output as desired",!
- S DIR(0)="Y",DIR("A")="Do you want to continue",DIR("B")="Y" K DA D ^DIR K DIR
- I $D(DIRUT)!('Y) S APCLQUIT=""
- Q
- APCLRPL ; IHS/CMI/LAB - r-dmg-510 PATIENT LIST ;
- +1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- +2 ;
- +3 ;
- START ;
- +1 KILL APCLQUIT
- +2 DO INIT
- +3 IF $DATA(APCLQUIT)
- GOTO QUIT
- F ;
- +1 WRITE !!
- +2 KILL APCLLOC
- SET DIC("A")="Run report for patients registered at which Facility: "
- SET DIC="^AUTTLOC("
- SET DIC(0)="AEMQ"
- DO ^DIC
- KILL DIC,DA
- IF Y<0
- GOTO QUIT
- +3 SET APCLLOC=+Y
- +4 WRITE !!
- +5 SET APCLNCAN=1
- DO ADD^APCLVL01
- IF $DATA(APCLQUIT)
- DO DEL^APCLVL
- KILL APCLQUIT
- GOTO QUIT
- SCREEN ;
- +1 SET APCLTCW=0
- SET APCLPTVS="P"
- SET APCLTYPE="P"
- SET APCLCTYP=""
- +2 KILL ^APCLVRPT(APCLRPT,11)
- SET APCLCNTL="S"
- DO ^APCLVL4
- KILL APCLCNTL
- IF $DATA(APCLQUIT)
- DO DEL^APCLVL
- GOTO QUIT
- +3 DO SORT^APCLVL3
- +4 IF $DATA(APCLQUIT)
- DO DEL^APCLVL
- GOTO QUIT
- ZIS ;
- DEMO ;
- +1 DO DEMOCHK^APCLUTL(.APCLDEMO)
- +2 IF APCLDEMO=-1
- GOTO F
- +3 KILL APCLSEL,APCLDISP
- +4 SET XBRP="^APCLRPLP"
- SET XBRC="^APCLRPL1"
- SET XBRX="QUIT^APCLRPL"
- SET XBNS="APCL"
- +5 DO ^XBDBQUE
- +6 DO QUIT
- +7 QUIT
- QUIT ;
- +1 KILL APCLLOC,APCLNCAN,APCLQUIT,APCLTCW,APCLSEL,APCLDISP,APCLPTVS,APCLTYPE,APCLCTYP,APCLRPT,APCLBT,APCLBTH,APCLET,APCLRCNT,APCLPTCT,APCLJOB,APCLSPEC,APCLSKIP,APCLSRT,APCSRTV,APCLPRNT,APCLCRIT,APCLSORT,APCLX,APCLI,APCLFOUN,APCLPG,APCLFRST
- +2 KILL DFN
- +3 QUIT
- INIT ;
- +1 IF $DATA(IOF)
- WRITE @IOF
- +2 WRITE !,?15,"********** DETAILED PATIENT REGISTER *********",!!
- +3 WRITE !,"This Option will search the Patient file for all patients that you select.",!
- +4 WRITE "A Report will result which will resemble the output from the R-DMG-510 report"
- +5 WRITE !,"received from the data center.",!
- +6 WRITE !,"You will be asked to select which facilities chart number should be displayed",!,"on the report.",!
- +7 WRITE !,"Two additional screens will also be displayed. The 1st Screen allows the User",!,"SEARCH for a selected group of patients."
- +8 WRITE " The 2nd Screen allows the User",!," to SORT the report output as desired",!
- +9 SET DIR(0)="Y"
- SET DIR("A")="Do you want to continue"
- SET DIR("B")="Y"
- KILL DA
- DO ^DIR
- KILL DIR
- +10 IF $DATA(DIRUT)!('Y)
- SET APCLQUIT=""
- +11 QUIT
