ABMDRCO.m

ABMDRCO ; IHS/ASDST/DMJ - PRINT LIST OF CO & DEPEN VISITS ;

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 ;Original;TMD;02/07/96 12:22 PM

 ;This report lists outpatient and inpatients visits to a

 ;facility by commissioned officers and their dependents

 ;

 W !!,$C(7),$C(7),"THIS REPORT MUST BE PRINTED ON 132 COLUMN PAPER OR ON A PRINTER THAT IS",!,"SET UP FOR CONDENSED PRINT!!!",!,"IF YOU DO NOT HAVE SUCH A PRINTER AVAILABLE - SEE YOUR SITE MANAGER.",!

BDATE K ABMD S %DT="AEPQ",%DT("A")="Select beginning date: ",X="" D ^%DT

 G END:Y=-1 S ABMD("BDT")=Y

EDATE S %DT="AEPQ",%DT("A")="Select ending date: ",X="" D ^%DT

 G END:Y=-1 S ABMD("EDT")=Y

 ;

VST S DIR(0)="S^1:Outpatient Visits Only;2:Inpatient Visits Only;3:Dental Visits Only;4:All"

 S DIR("?")="Enter either 1, 2, 3, or 4 for the report desired."

 S DIR("A")="Select (1, 2, 3, or 4)"

 S DIR("B")=4

 D ^DIR K DIR

 I $D(DUOUT)!($D(DIRUT))!($D(DIROUT))!($D(DTOUT)) G END

 I Y=1!(Y=4) S ABMD("TOP")=""

 I Y=2!(Y=4) S ABMD("TIP")=""

 I Y=3!(Y=4) S ABMD("TDEN")=""

 ;

 S ABMD("$J")=DUZ_"-"_$P($H,",",1)_"-"_$P($H,",",2)

 D INIT^ABMDRCO1

 S ABMQ("RC")="MAIN^ABMDRCO1",ABMQ("RP")="^ABMDRCO2",ABMQ("NS")="ABMD",ABMQ("RX")="END^ABMDRCO2"

 D ^ABMDRDBQ

 Q

END ;CLEAN UP AND QUIT

 K ABMD,ABMDSTOP Q

ABMDRCO   ; IHS/ASDST/DMJ - PRINT LIST OF CO & DEPEN VISITS ;

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2       ;Original;TMD;02/07/96 12:22 PM

 +3       ;This report lists outpatient and inpatients visits to a

 +4       ;facility by commissioned officers and their dependents

 +5       ;

 +6        WRITE !!,$CHAR(7),$CHAR(7),"THIS REPORT MUST BE PRINTED ON 132 COLUMN PAPER OR ON A PRINTER THAT IS",!,"SET UP FOR CONDENSED PRINT!!!",!,"IF YOU DO NOT HAVE SUCH A PRINTER AVAILABLE - SEE YOUR SITE MANAGER.",!

BDATE      KILL ABMD

           SET %DT="AEPQ"

           SET %DT("A")="Select beginning date: "

           SET X=""

           DO ^%DT

 +1        IF Y=-1

               GOTO END

           SET ABMD("BDT")=Y

EDATE      SET %DT="AEPQ"

           SET %DT("A")="Select ending date: "

           SET X=""

           DO ^%DT

 +1        IF Y=-1

               GOTO END

           SET ABMD("EDT")=Y

 +2       ;

VST        SET DIR(0)="S^1:Outpatient Visits Only;2:Inpatient Visits Only;3:Dental Visits Only;4:All"

 +1        SET DIR("?")="Enter either 1, 2, 3, or 4 for the report desired."

 +2        SET DIR("A")="Select (1, 2, 3, or 4)"

 +3        SET DIR("B")=4

 +4        DO ^DIR

           KILL DIR

 +5        IF $DATA(DUOUT)!($DATA(DIRUT))!($DATA(DIROUT))!($DATA(DTOUT))

               GOTO END

 +6        IF Y=1!(Y=4)

               SET ABMD("TOP")=""

 +7        IF Y=2!(Y=4)

               SET ABMD("TIP")=""

 +8        IF Y=3!(Y=4)

               SET ABMD("TDEN")=""

 +9       ;

 +10       SET ABMD("$J")=DUZ_"-"_$PIECE($HOROLOG,",",1)_"-"_$PIECE($HOROLOG,",",2)

 +11       DO INIT^ABMDRCO1

 +12       SET ABMQ("RC")="MAIN^ABMDRCO1"

           SET ABMQ("RP")="^ABMDRCO2"

           SET ABMQ("NS")="ABMD"

           SET ABMQ("RX")="END^ABMDRCO2"

 +13       DO ^ABMDRDBQ

 +14       QUIT 

END       ;CLEAN UP AND QUIT

 +1        KILL ABMD,ABMDSTOP

           QUIT