APCLRPL.m

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