- 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
