ABMRSVIN.m

ABMRSVIN ; IHS/SD/SDR - Display what insurers have split setup ;     

 ;;2.6;IHS 3P BILLING SYSTEM;**22**;NOV 12, 2009;Build 418

 ;

 ;IHS/SD/SDR 2.6*22 HEAT335246 New routine; displays what insurers have split setup

 ;

START ;EP

 W !!?3,"This option shows any/all split claim setup that has been done"

 W !?3,"for all insurers."

 D PAZ^ABMDRUTL

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

 S ABMY("INS")=0

 D HDR

 F  S ABMY("INS")=$O(^ABMNINS(DUZ(2),ABMY("INS"))) Q:'ABMY("INS")  D

 .Q:+$O(^ABMNINS(DUZ(2),ABMY("INS"),6,0))=0  ;quit because no entries exist

 .W !,$E($P($G(^AUTNINS(ABMY("INS"),0)),U),1,17)

 .D PRINT

 D PAZ^ABMDRUTL

 Q

PRINT ;EP

 S ABMIFLG=1

 S ABMI=0

 F  S ABMI=$O(^ABMNINS(DUZ(2),ABMY("INS"),6,ABMI)) Q:'ABMI  D

 .S ABMREC=$G(^ABMNINS(DUZ(2),ABMY("INS"),6,ABMI,0))

 .S ABMPG=$P(ABMREC,U)  ;page to split

 .S ABMSDT=$P(ABMREC,U,2)  ;start date

 .S ABMSPLHW=$P(ABMREC,U,3)  ;split claim how

 .S ABMEDT=$P(ABMREC,U,4)  ;end date

 .S ABMCRDT=$P(ABMREC,U,5)  ;entry created on

 .S ABMCRU=$P(ABMREC,U,6)  ;entry created by

 .S ABMENDDT=$P(ABMREC,U,7)  ;end date was entered on

 .S ABMENDDU=$P(ABMREC,U,8)  ;entry created by

 .W ?19,ABMPG  ;page to split

 .W ?23,$$SDTO^ABMDUTL(ABMSDT)  ;start date

 .W ?32,$S(ABMSPLHW=1:"1 Clm/CHRG",ABMSPLHW=2:"1 Clm/PAGE",1:"Don't splt")

 .W:ABMEDT ?44,$$SDTO^ABMDUTL(ABMEDT)  ;end date

 .;

 .W ?54,$$SDTO^ABMDUTL(ABMCRDT)  ;created date

 .W ?64,$P($G(^VA(200,ABMCRU,0)),U,2)  ;created by

 .W:ABMENDDT ?68,$$SDTO^ABMDUTL(ABMENDDT)  ;ended date entered

 .W:ABMENDDU ?77,$P($G(^VA(200,ABMENDDU,0)),U,2)  ;entered by

 .W !

 I $Y>(IOSL-5) D HDR Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)  W " (cont)"

 Q

HDR ;EP

 W $$EN^ABMVDF("IOF"),!

 W !,"INSURER",?19,"PG",?23,"START DT",?32,"SPLT CLM",?44,"END DATE",?54,"CREATED",?64,"BY",?69,"ENDED",?77,"BY"

 Q

ABMRSVIN  ; IHS/SD/SDR - Display what insurers have split setup ;     

 +1       ;;2.6;IHS 3P BILLING SYSTEM;**22**;NOV 12, 2009;Build 418

 +2       ;

 +3       ;IHS/SD/SDR 2.6*22 HEAT335246 New routine; displays what insurers have split setup

 +4       ;

START     ;EP

 +1        WRITE !!?3,"This option shows any/all split claim setup that has been done"

 +2        WRITE !?3,"for all insurers."

 +3        DO PAZ^ABMDRUTL

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

               QUIT 

 +5        SET ABMY("INS")=0

 +6        DO HDR

 +7        FOR 

               SET ABMY("INS")=$ORDER(^ABMNINS(DUZ(2),ABMY("INS")))

               IF 'ABMY("INS")

                   QUIT 

               Begin DoDot:1

 +8       ;quit because no entries exist

                   IF +$ORDER(^ABMNINS(DUZ(2),ABMY("INS"),6,0))=0

                       QUIT 

 +9                WRITE !,$EXTRACT($PIECE($GET(^AUTNINS(ABMY("INS"),0)),U),1,17)

 +10               DO PRINT

               End DoDot:1

 +11       DO PAZ^ABMDRUTL

 +12       QUIT 

PRINT     ;EP

 +1        SET ABMIFLG=1

 +2        SET ABMI=0

 +3        FOR 

               SET ABMI=$ORDER(^ABMNINS(DUZ(2),ABMY("INS"),6,ABMI))

               IF 'ABMI

                   QUIT 

               Begin DoDot:1

 +4                SET ABMREC=$GET(^ABMNINS(DUZ(2),ABMY("INS"),6,ABMI,0))

 +5       ;page to split

                   SET ABMPG=$PIECE(ABMREC,U)

 +6       ;start date

                   SET ABMSDT=$PIECE(ABMREC,U,2)

 +7       ;split claim how

                   SET ABMSPLHW=$PIECE(ABMREC,U,3)

 +8       ;end date

                   SET ABMEDT=$PIECE(ABMREC,U,4)

 +9       ;entry created on

                   SET ABMCRDT=$PIECE(ABMREC,U,5)

 +10      ;entry created by

                   SET ABMCRU=$PIECE(ABMREC,U,6)

 +11      ;end date was entered on

                   SET ABMENDDT=$PIECE(ABMREC,U,7)

 +12      ;entry created by

                   SET ABMENDDU=$PIECE(ABMREC,U,8)

 +13      ;page to split

                   WRITE ?19,ABMPG

 +14      ;start date

                   WRITE ?23,$$SDTO^ABMDUTL(ABMSDT)

 +15               WRITE ?32,$SELECT(ABMSPLHW=1:"1 Clm/CHRG",ABMSPLHW=2:"1 Clm/PAGE",1:"Don't splt")

 +16      ;end date

                   IF ABMEDT

                       WRITE ?44,$$SDTO^ABMDUTL(ABMEDT)

 +17      ;

 +18      ;created date

                   WRITE ?54,$$SDTO^ABMDUTL(ABMCRDT)

 +19      ;created by

                   WRITE ?64,$PIECE($GET(^VA(200,ABMCRU,0)),U,2)

 +20      ;ended date entered

                   IF ABMENDDT

                       WRITE ?68,$$SDTO^ABMDUTL(ABMENDDT)

 +21      ;entered by

                   IF ABMENDDU

                       WRITE ?77,$PIECE($GET(^VA(200,ABMENDDU,0)),U,2)

 +22               WRITE !

               End DoDot:1

 +23       IF $Y>(IOSL-5)

               DO HDR

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

                   QUIT 

               WRITE " (cont)"

 +24       QUIT 

HDR       ;EP

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

 +2        WRITE !,"INSURER",?19,"PG",?23,"START DT",?32,"SPLT CLM",?44,"END DATE",?54,"CREATED",?64,"BY",?69,"ENDED",?77,"BY"

 +3        QUIT