ABMDES24.m

ABMDES24 ; IHS/ASDST/DMJ - Display Summarized NCPDP charges ;  

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

 ;

 ; IHS/SD/SDR - v2.5 p10 - IM21581

 ;   Added active insurer print to summary

 ;

HCFA ;EP for displaying charge summary for HCFA-1500

 ;

 D HD

 S ABMP("TOT")=0

 S ABMS=0 F  S ABMS=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),23,ABMS)) Q:'ABMS  D

 .S ABMRX0=^ABMDCLM(DUZ(2),ABMP("CDFN"),23,ABMS,0)

 .S ABMDRUG=$P(ABMRX0,U)

 .S ABMDESC=$P(^PSDRUG(ABMDRUG,0),U)

 .S ABMCDATE=$P(ABMRX0,"^",14)

 .S ABMITOT=$P(ABMRX0,"^",3)*$P(ABMRX0,"^",4)

 .S ABMDTOT=$P(ABMRX0,"^",5)

 .S ABMSTOT=ABMITOT+ABMDTOT

 .S ABMSTOT=$J(ABMSTOT,1,2)

 .S ABMP("TOT")=ABMP("TOT")+ABMSTOT

 .I $Y>(IOSL-5) D

 ..S DIR(0)="EO"

 ..D ^DIR

 ..W $$EN^ABMVDF("IOF")

 ..Q:$D(DUOUT)!$D(DTOUT)!$D(DIROUT)

 ..D HD

 .W !," ",$$HDT^ABMDUTL(ABMCDATE)

 .W ?15,ABMDESC

 .W ?46,$J(ABMDTOT,5,2)

 .W ?53,$J($P(ABMRX0,"^",3),4)

 .W ?60,$J($P(ABMRX0,"^",4),5,3)

 .W ?66,$J(ABMSTOT,10,2)

 W !?66,"----------"

 S ABMP("EXP",24)=ABMP("TOT")

 W !,?10,"TOTAL CHARGE",?66,$J($FN(ABMP("TOT"),",",2),10)

 F  W ! Q:$Y+4>IOSL

 S DIR(0)="E" D ^DIR K DIR

 Q

 ;

HD ;SCREEN HEADER

 W $$EN^ABMVDF("IOF")

 W !,?20,"***** "

 W $P(^ABMDEXP(ABMP("EXP"),0),U)

 W " CHARGE SUMMARY *****"

 W !!,"Active Insurer: ",$P($G(^AUTNINS(ABMP("INS"),0)),U),!

 W !,?47,"Disp",?60,"Unit"

 W !?1,"Charge Date  ",?19,"Description",?47,"Fee",?54,"Qty",?60,"Price",?71,"Total"

 S $P(ABMS("I"),"-",80)="" W !,ABMS("I")

 Q

ABMDES24  ; IHS/ASDST/DMJ - Display Summarized NCPDP charges ;  

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

 +2       ;

 +3       ; IHS/SD/SDR - v2.5 p10 - IM21581

 +4       ;   Added active insurer print to summary

 +5       ;

HCFA      ;EP for displaying charge summary for HCFA-1500

 +1       ;

 +2        DO HD

 +3        SET ABMP("TOT")=0

 +4        SET ABMS=0

           FOR 

               SET ABMS=$ORDER(^ABMDCLM(DUZ(2),ABMP("CDFN"),23,ABMS))

               IF 'ABMS

                   QUIT 

               Begin DoDot:1

 +5                SET ABMRX0=^ABMDCLM(DUZ(2),ABMP("CDFN"),23,ABMS,0)

 +6                SET ABMDRUG=$PIECE(ABMRX0,U)

 +7                SET ABMDESC=$PIECE(^PSDRUG(ABMDRUG,0),U)

 +8                SET ABMCDATE=$PIECE(ABMRX0,"^",14)

 +9                SET ABMITOT=$PIECE(ABMRX0,"^",3)*$PIECE(ABMRX0,"^",4)

 +10               SET ABMDTOT=$PIECE(ABMRX0,"^",5)

 +11               SET ABMSTOT=ABMITOT+ABMDTOT

 +12               SET ABMSTOT=$JUSTIFY(ABMSTOT,1,2)

 +13               SET ABMP("TOT")=ABMP("TOT")+ABMSTOT

 +14               IF $Y>(IOSL-5)

                       Begin DoDot:2

 +15                       SET DIR(0)="EO"

 +16                       DO ^DIR

 +17                       WRITE $$EN^ABMVDF("IOF")

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

                               QUIT 

 +19                       DO HD

                       End DoDot:2

 +20               WRITE !," ",$$HDT^ABMDUTL(ABMCDATE)

 +21               WRITE ?15,ABMDESC

 +22               WRITE ?46,$JUSTIFY(ABMDTOT,5,2)

 +23               WRITE ?53,$JUSTIFY($PIECE(ABMRX0,"^",3),4)

 +24               WRITE ?60,$JUSTIFY($PIECE(ABMRX0,"^",4),5,3)

 +25               WRITE ?66,$JUSTIFY(ABMSTOT,10,2)

               End DoDot:1

 +26       WRITE !?66,"----------"

 +27       SET ABMP("EXP",24)=ABMP("TOT")

 +28       WRITE !,?10,"TOTAL CHARGE",?66,$JUSTIFY($FNUMBER(ABMP("TOT"),",",2),10)

 +29       FOR 

               WRITE !

               IF $Y+4>IOSL

                   QUIT 

 +30       SET DIR(0)="E"

           DO ^DIR

           KILL DIR

 +31       QUIT 

 +32      ;

HD        ;SCREEN HEADER

 +1        WRITE $$EN^ABMVDF("IOF")

 +2        WRITE !,?20,"***** "

 +3        WRITE $PIECE(^ABMDEXP(ABMP("EXP"),0),U)

 +4        WRITE " CHARGE SUMMARY *****"

 +5        WRITE !!,"Active Insurer: ",$PIECE($GET(^AUTNINS(ABMP("INS"),0)),U),!

 +6        WRITE !,?47,"Disp",?60,"Unit"

 +7        WRITE !?1,"Charge Date  ",?19,"Description",?47,"Fee",?54,"Qty",?60,"Price",?71,"Total"

 +8        SET $PIECE(ABMS("I"),"-",80)=""

           WRITE !,ABMS("I")

 +9        QUIT