ABMDRCO3.m

ABMDRCO3 ; IHS/ASDST/DMJ - CO VISITS REPORT (PRINT) ; 

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

 ;Original;TMD;

 ;

HEAD ;EP to print page heading

 W $$EN^ABMVDF("IOF"),!,?11,"*****Confidential Patient Data Covered by Privacy Act*****",!

 W !,?132-$L(ABMD("FAC"))/2,ABMD("FAC")

 W !,?45,"COMMISSIONED OFFICERS & DEPENDENTS VISITS"

 W !,?55,ABMD("BDT")_" to "_ABMD("EDT")

 S X=$S(ABMD("II")="O":"OUTPATIENT VISITS",ABMD("II")="I":"INPATIENT VISITS",1:"DENTAL VISITS")

 W !,?132-$L(X)/2,X,!

 F ABMD("J")=1:1:132 W "-"

 W !,"Patient Name",?23,"Chart #",?36,"SSN",?45,"CO or Dep"

 W ?58,"Sponsor",?80,"SSN"

 W ?97,$S(ABMD("II")="I":"Admit Date",1:"Visit Date")

 W ?110,$S(ABMD("II")="I":"Dsch Date",1:"No. of Visits")

 I ABMD("II")="I" W ?122,"# of Days"

 W ! F J=1:1:132 W "-"

 W ! Q

 ;

PAGE ;EP to form feed to new page

 I IOST'?1"C-".E D HEAD Q

 K DIR W ! S DIR(0)="EO",ABMDSTOP=""

 S DIR("A")="Enter <return> to continue or '^' to stop"

 D ^DIR K DIR

 I $D(DTOUT)!$D(DUOUT)!$D(DIROUT) S ABMD("STOP")="^" Q

 D HEAD

 Q

 ;

PRVTINS ;EP does patient have co dep info in prvt ins file?

 G PRV9:ABMD("CHMP")=""

 G PRV9:ABMD("BENP")="CO",PRV9:ABMD("BENP")="RET"

 S ABMD("INS")=$O(^AUPNPRVT("I",ABMD("CHMP"),ABMD("DFN"),0)) G PRV9:ABMD("INS")=""

 Q:$P($G(^AUPNPRVT(ABMD("DFN"),11,ABMD("INS"),0)),U)=""  ;ABM*2.5*8 IHS/SD/TPF 6/14/2005 IM17673

 S ABMD("STR1")=^AUPNPRVT(ABMD("DFN"),11,ABMD("INS"),0) W ?58,$P(ABMD("STR1"),"^",4)

 S X=$P(ABMD("STR1"),"^",2) W ?80,$E(X,1,3)_"-"_$E(X,4,5)_"-"_$E(X,6,9)

PRV9 Q

 ;

TOTAL ;EP to print visit total

 Q:ABMD("STOP")="^"

 I $Y>(IOSL-6) D PAGE

 I ABMD("II")="O" W !!,?80,"TOTAL OUTPATIENT VISITS:",?112,$J(ABMD("TOT"),3)

 I ABMD("II")="I" W !!,?95,"TOTAL INPATIENT DAYS:",?121,$J(ABMD("TOT"),3)

 I ABMD("II")="D" W !!,?80,"TOTAL DENTAL VISITS:",?112,$J(ABMD("TOT"),3)

 S ABMD("TOT")=0 ;reset for next category

 I IOST?1"C-".E W ! K DIR S DIR(0)="EO",DIR("A")="Enter <return> to continue or '^' to stop" D ^DIR K DIR I $D(DTOUT)!$D(DIROUT)!$D(DUOUT) S ABMD("STOP")="^" Q

 Q

ABMDRCO3  ; IHS/ASDST/DMJ - CO VISITS REPORT (PRINT) ; 

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

 +2       ;Original;TMD;

 +3       ;

HEAD      ;EP to print page heading

 +1        WRITE $$EN^ABMVDF("IOF"),!,?11,"*****Confidential Patient Data Covered by Privacy Act*****",!

 +2        WRITE !,?132-$LENGTH(ABMD("FAC"))/2,ABMD("FAC")

 +3        WRITE !,?45,"COMMISSIONED OFFICERS & DEPENDENTS VISITS"

 +4        WRITE !,?55,ABMD("BDT")_" to "_ABMD("EDT")

 +5        SET X=$SELECT(ABMD("II")="O":"OUTPATIENT VISITS",ABMD("II")="I":"INPATIENT VISITS",1:"DENTAL VISITS")

 +6        WRITE !,?132-$LENGTH(X)/2,X,!

 +7        FOR ABMD("J")=1:1:132

               WRITE "-"

 +8        WRITE !,"Patient Name",?23,"Chart #",?36,"SSN",?45,"CO or Dep"

 +9        WRITE ?58,"Sponsor",?80,"SSN"

 +10       WRITE ?97,$SELECT(ABMD("II")="I":"Admit Date",1:"Visit Date")

 +11       WRITE ?110,$SELECT(ABMD("II")="I":"Dsch Date",1:"No. of Visits")

 +12       IF ABMD("II")="I"

               WRITE ?122,"# of Days"

 +13       WRITE !

           FOR J=1:1:132

               WRITE "-"

 +14       WRITE !

           QUIT 

 +15      ;

PAGE      ;EP to form feed to new page

 +1        IF IOST'?1"C-".E

               DO HEAD

               QUIT 

 +2        KILL DIR

           WRITE !

           SET DIR(0)="EO"

           SET ABMDSTOP=""

 +3        SET DIR("A")="Enter <return> to continue or '^' to stop"

 +4        DO ^DIR

           KILL DIR

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

               SET ABMD("STOP")="^"

               QUIT 

 +6        DO HEAD

 +7        QUIT 

 +8       ;

PRVTINS   ;EP does patient have co dep info in prvt ins file?

 +1        IF ABMD("CHMP")=""

               GOTO PRV9

 +2        IF ABMD("BENP")="CO"

               GOTO PRV9

           IF ABMD("BENP")="RET"

               GOTO PRV9

 +3        SET ABMD("INS")=$ORDER(^AUPNPRVT("I",ABMD("CHMP"),ABMD("DFN"),0))

           IF ABMD("INS")=""

               GOTO PRV9

 +4       ;ABM*2.5*8 IHS/SD/TPF 6/14/2005 IM17673

           IF $PIECE($GET(^AUPNPRVT(ABMD("DFN"),11,ABMD("INS"),0)),U)=""

               QUIT 

 +5        SET ABMD("STR1")=^AUPNPRVT(ABMD("DFN"),11,ABMD("INS"),0)

           WRITE ?58,$PIECE(ABMD("STR1"),"^",4)

 +6        SET X=$PIECE(ABMD("STR1"),"^",2)

           WRITE ?80,$EXTRACT(X,1,3)_"-"_$EXTRACT(X,4,5)_"-"_$EXTRACT(X,6,9)

PRV9       QUIT 

 +1       ;

TOTAL     ;EP to print visit total

 +1        IF ABMD("STOP")="^"

               QUIT 

 +2        IF $Y>(IOSL-6)

               DO PAGE

 +3        IF ABMD("II")="O"

               WRITE !!,?80,"TOTAL OUTPATIENT VISITS:",?112,$JUSTIFY(ABMD("TOT"),3)

 +4        IF ABMD("II")="I"

               WRITE !!,?95,"TOTAL INPATIENT DAYS:",?121,$JUSTIFY(ABMD("TOT"),3)

 +5        IF ABMD("II")="D"

               WRITE !!,?80,"TOTAL DENTAL VISITS:",?112,$JUSTIFY(ABMD("TOT"),3)

 +6       ;reset for next category

           SET ABMD("TOT")=0

 +7        IF IOST?1"C-".E

               WRITE !

               KILL DIR

               SET DIR(0)="EO"

               SET DIR("A")="Enter <return> to continue or '^' to stop"

               DO ^DIR

               KILL DIR

               IF $DATA(DTOUT)!$DATA(DIROUT)!$DATA(DUOUT)

                   SET ABMD("STOP")="^"

                   QUIT 

 +8        QUIT