- ABMRSTIN ; IHS/SD/SDR - Split Claim Billing;
- ;;2.6;IHS 3P BILLING SYSTEM;**22**;NOV 12, 2009;Build 418
- ;IHS/SD/SDR 2.6*22 HEAT335246 - New routine
- ;
- Q
- START ;
- S ABMP("RTN")="ABMRSTIN" ;Routine used to get data
- S ABMMENU="Split Claim Billing Report"
- K ^TMP("ABM-SPIN",$J) ;this is from routine ABMRSPIN to gather data before splitting
- K ^TMP("ABM-SPIN-DATA",$J) ;detail from ABMRSPIN
- K ^TMP("ABM-SPIN-CNT",$J)
- K ^TMP("ABM-STIN",$J)
- K ABMY,ABM
- K DTOUT,DIRUT,DUOUT,DIROUT
- I $D(ABMY("RTYP")) S ABM("HD",0)=ABMY("RTYP","NM")_" "_ABMMENU
- E S ABM("HD",0)=ABMMENU
- W !!,"This menu option is going to take one claim and split it as many times as"
- W !,"necessary to get either 1) one claim with one claim editor page of line items"
- W !,"OR 2) one claim with 1 line item charge. The user will be prompted if they"
- W !,"want the system to automatically find the claims, or if they would rather do"
- W !,"it manually, one claim at a time. Either way, the user will get messages"
- W !,"to the screen telling them the new claim numbers that generated based on"
- W !,"their selection."
- W !!,"This option should be used VERY CAUTIOUSLY since it could generate a LOT of"
- W !,"claims based on how the prompts are answered."
- ;
- MANORAUT ;
- D ^XBFMK
- S DIR(0)="SO^A:Automatically find and split claims;M:Manually select claims one at a time to split"
- S DIR("A")="Select"
- D ^DIR
- Q:$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- S ABMY("SPLIT")=Y
- I ABMY("SPLIT")="M" D MANUAL Q ;prompt user to split one claim one at a time
- I ABMY("SPLIT")="A" D AUTO Q ;split multiple claims/bills based on selection criteria
- Q
- MANUAL ;EP
- K ABMP
- MANUAL2 ;EP
- D ^ABMDEDIC ;prompt for bill/claim number
- Q:$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- S ABMY("PGS")="^8Z^" ;make it capture everything
- S ABMVSTCK=0 ;flag for if visit contains H or I visit
- D DATA2^ABMRSPI1 ;get list of files
- W !!
- W !,"ST",?4,"SelectedClm#",?17,"HRN",?24,"Active Insurer",?40,"Visit Date",?51,"VTYP",?56,"Clinic",?65,"ServCat (VST)",!
- F I=1:1:80 W "-"
- S ABMCS=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,4)
- W !,$S(ABMCS="F":"FAB",ABMCS="E":"EDT",ABMCS="O":"ROL",ABMCS="C":"COM",ABMCS="P":"PEN",ABMCS="U":"UNB",ABMCS="X":"CLO",1:"")
- W ?4,ABMP("CDFN")
- W ?17,$P($G(^AUPNPAT($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U),41,$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,3),0)),U,2) ;HRN
- W ?24,$E($P($G(^AUTNINS($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,8),0)),U),1,15) ;active insurer
- W ?40,$$SDTO^ABMDUTL($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,2)) ;visit date
- W ?51,$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,7) ;visit type
- W ?56,$E($P($G(^DIC(40.7,$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,6),0)),U),1,8) ;clinic
- S ABMV=0
- F S ABMV=$O(^TMP("ABM-SPIN",$J,"VSTS",ABMV)) Q:'ABMV W ?65,$G(^TMP("ABM-SPIN",$J,"VSTS",ABMV))_" ("_ABMV_")",!
- D VSTDISP^ABMRSTI1 ;display visit info
- ;
- K ABMCK
- I $P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,22)'="" D SPLTCHK^ABMRSTI1 ;check if any portion of claim has already been split
- I $D(ABMCK) D CLMDISP^ABMRSTI1 ;if there are orig/split claims, display them
- ;
- I +$G(ABMVSTCK)=1 D G MANUAL2
- .W !!?5,"At least one visit on this claim has a Service Category of"
- .W !?5,"Hospitalization (H) or In Hospital (I) and is therefore unsplittable",!!
- .H 2
- ;
- ;ask if they wish to continue since claim has already been split at least once
- I $D(ABMCK) D G:Y<1 MANUAL
- .D ^XBFMK
- .S DIR(0)="Y",DIR("A")="This claim has already been split at least once. Do you wish to continue" D ^DIR K DIR
- K ABMY("PGS") ;reset because it was set to 8Z to pull everything for display first
- D PGS ;have user select pages; will be in ABMY("PGS") variable
- I +$D(ABMY("PGS"))=0 Q ;don't ask anything more if they didn't pick pages
- D SPLITHOW ;do they want one claim per charge or one claim per category picked?
- I +$G(ABMY("SPLITHOW"))=0 Q
- D ASKDEL ;ask if they want to delete sections after new claims are generated
- ;I +$G(ABMDLT)=0 Q
- Q:$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- K ^TMP("ABM-STIN",$J,"NEWCLMLST")
- D INSSTMP^ABMRSTI4 ;abm*2.6*22 IHS/SD/SDR CR9700
- D SPLITCLM^ABMRSTI2 ;creates the new claims and deletes from original
- S ABMCDFN=ABMP("CDFN")
- W $$EN^ABMVDF("IOF"),!
- W "Split complete.",!
- D PRINT2^ABMRSTI3 ;print claim summary with split info
- D PAZ^ABMDRUTL
- D ^XBFMK
- K ^TMP("ABM-SPIN",$J) ;this is from routine ABMRSPIN to gather data before splitting
- K ^TMP("ABM-SPIN-DATA",$J) ;detail from ABMRSPIN
- K ^TMP("ABM-SPIN-CNT",$J)
- K ^TMP("ABM-STIN",$J)
- K ABMY,ABM
- G MANUAL2
- Q
- PGS ;
- S ABMSTRG=""
- S ABMPG=""
- S ABMPCNT=0
- S DIR(0)="SO^"
- F S ABMPG=$O(^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),ABMPG)) Q:$G(ABMPG)="" D
- .S DIR(0)=DIR(0)_ABMPG_":"_$S(ABMPG["D":"MEDICATIONS",ABMPG["E":"LABORATORY",ABMPG["F":"RADIOLOGY",1:"HCPCS")_";"
- .S ABMPCNT=+$G(ABMPCNT)+1 ;total pages to choose from
- S:$L(DIR(0),":")>2 DIR(0)=DIR(0)_"8Z:ALL"
- S DIR("A")="Move Which Section(s)? "
- S ABMTPCNT=0
- F D Q:(('Y)!(Y["8Z"))!(ABMTPCNT=ABMPCNT)
- .D ^DIR
- .Q:'Y
- .S ABMY("PGS")=$S($G(ABMY("PGS"))="":"^"_Y,1:ABMY("PGS")_"^"_Y)
- .S ABMTPCNT=+$G(ABMTPCNT)+1
- I $G(ABMY("PGS"))["8Z" D
- .K ABMY("PGS")
- .S ABMPG=""
- .F S ABMPG=$O(^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),ABMPG)) Q:$G(ABMPG)="" D
- ..S ABMY("PGS")=$G(ABMY("PGS"))_"^"_ABMPG
- S:$G(ABMY("PGS"))'="" ABMY("PGS")=ABMY("PGS")_"^"
- Q
- SPLITHOW ;EP
- D ^XBFMK
- S DIR(0)="SO^C:1 Claim for each CHARGE;P:1 Claim for each PAGE"
- S DIR("A")="Split it how? "
- D ^DIR
- I $G(Y)=""!$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT) Q ;exit option if they '^'
- S ABMY("SPLITHOW")=$S(Y="C":1,1:2)
- Q
- ASKDEL ;EP
- I ABMY("PGS")'["8Z" D Q:$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- .S DIR(0)="Y",DIR("A")="Delete sections from original claim after split"
- .S DIR("B")="NO"
- .D ^DIR K DIR
- .Q:$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- .S:Y=1 ABMDLT=1
- Q
- AUTO ;
- S ABMY("RTYP")=1
- D INS^ABMRSPIN ;select insurer(s)
- I '$D(ABMY("INS")) Q ;no insurer was selected
- Q:$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- D DT^ABMRSPIN ;select visit or approval date range
- I '$D(ABMY("DT",1)) Q ;no dates were entered
- Q:$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- D CLMSTAT^ABMRSPIN ;What claim status (Open, complete, or both)
- I '$D(ABMY("STA")) Q ;no claim status was selected
- Q:$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- D PGS^ABMRSPIN ;what pages do you want to split (8D, 8E, 8F, 8H, 8Z)
- I '$D(ABMY("PGS")) Q ;no pages were selected
- Q:$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- I ABMY("PGS")["8Z" S ABMY("PGS")="^8D^8E^8F^8H^"
- ;
- W !!,"You selected: "
- W !?3,"Insurers: "
- S ABMI=0
- F S ABMI=$O(ABMY("INS",ABMI)) Q:'ABMI W !?6,$P($G(^AUTNINS(ABMI,0)),U)
- W !?3,$S(ABMY("DT")="V":"Visit",1:"Approval")_" Dates: ",$$SDT^ABMDUTL(ABMY("DT",1))_" to "_$$SDT^ABMDUTL(ABMY("DT",2))
- W !?3,"Claim Status: "
- F ABMI=1:1:$L(ABMY("STA","NM"),",") W !?6,$$TRIM^ABMUTLP($P(ABMY("STA","NM"),",",ABMI),"L")
- W !?3,"Check pages: "_$E($TR(ABMY("PGS"),"^",","),2,($L(ABMY("PGS"))-1))
- W !?3,"Report Type: "_$S(ABMY("RTYP")=2:"Statistical Summary Only",1:"Brief Listing"),!!
- S DIR(0)="Y",DIR("A")="Do you wish to continue" D ^DIR K DIR
- Q:$D(DUOUT)!$D(DTOUT)!$D(DIROUT)!$D(DIRUT)
- ;
- I Y S ABMANS="A" ;they user said they want to continue, act like 'A'
- I 'Y D
- .K DIR,DIC,DIE,X,Y,DA,DR
- .S DIR(0)="S^E:Exit Report;R:Reselect Parameters;A:Accept selection and continue"
- .D ^DIR
- S ABMANS=Y
- K DIR
- I ABMANS="E" Q ;exit report
- I ABMANS="R" G AUTO ;reselect criteria
- ;note - ABMANS="A" should just continue on through code
- ;
- W !!,"Now searching for claims that meet the selected criteria . . ."
- K ^TMP("ABM-SPIN",$J,"VLST") ;this will be a list of counters
- D COMPUTE^ABMRSPIN
- D SPLIT
- D ^XBFMK
- K ^TMP("ABM-SPIN",$J) ;this is from routine ABMRSPIN to gather data before splitting
- K ^TMP("ABM-SPIN-DATA",$J) ;detail from ABMRSPIN
- K ^TMP("ABM-SPIN-CNT",$J)
- K ^TMP("ABM-STIN",$J)
- K ABMY,ABM
- Q
- SPLIT ;EP
- W !!,"OK, "_+$G(^TMP("ABM-SPIN-CNT",$J))_" claims were found to split."
- W !!
- I +$G(^TMP("ABM-SPIN-CNT",$J))=0 W "Exiting option since no claims were found matching selected criteria." D PAZ^ABMDRUTL Q
- D ^XBFMK
- S DIR(0)="Y",DIR("A")="Do you wish to continue" D ^DIR K DIR
- Q:+Y<1
- Q:$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- D SPLITHOW ;do they want one claim per charge or one claim per category picked?
- Q:$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- D ASKDEL ;ask if they want to delete sections after new claims are generated
- Q:$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- D INSSTMP^ABMRSTI4 ;stamp insurer with run info ;abm*2.6*22 IHS/SD/SDR CR9700
- W !!,"Splitting claims..."
- ;loop thru claims and split them
- K ^TMP("ABM-STIN",$J,"NEWCLMLST")
- S ABMVLOC=""
- F S ABMVLOC=$O(^TMP("ABM-SPIN",$J,ABMVLOC)) Q:$G(ABMVLOC)="" D
- .S ABMVTYP=""
- .F S ABMVTYP=$O(^TMP("ABM-SPIN",$J,ABMVLOC,ABMVTYP)) Q:$G(ABMVTYP)="" D
- ..S ABMVDT=0
- ..F S ABMVDT=$O(^TMP("ABM-SPIN",$J,ABMVLOC,ABMVTYP,ABMVDT)) Q:'ABMVDT D
- ...S ABMP("CDFN")=0
- ...F S ABMP("CDFN")=$O(^TMP("ABM-SPIN",$J,ABMVLOC,ABMVTYP,ABMVDT,ABMP("CDFN"))) Q:'ABMP("CDFN") D
- ....K ABMP("VDETAIL")
- ....D SPLITCLM^ABMRSTI2
- D PRINT ;output report of original and split claims
- Q
- PRINT ;EP
- S DIR(0)="Y"
- S DIR("A","1")="Would you like a listing of the original claims and the new"
- S DIR("A")="associated claim numbers"
- D ^DIR K DIR
- Q:Y<1
- S %ZIS="QM"
- D ^%ZIS Q:POP
- I $D(IO("Q")) D Q
- .S ZTRTN="PRINT^ABMRSTI3",ZTDESC=XQY0
- .S ZTSAVE("ABM*")=""
- .D ^%ZTLOAD
- .I $D(ZTSK)[0 W !!?5,"Report Cancelled!"
- .E W !!?5,"Report queued to run on ",ZTSK," #"
- .D HOME^%ZIS
- .K IO("Q")
- D PRINT^ABMRSTI3
- D PAZ^ABMDRUTL
- Q
- ABMRSTIN ; IHS/SD/SDR - Split Claim Billing;
- +1 ;;2.6;IHS 3P BILLING SYSTEM;**22**;NOV 12, 2009;Build 418
- +2 ;IHS/SD/SDR 2.6*22 HEAT335246 - New routine
- +3 ;
- +4 QUIT
- START ;
- +1 ;Routine used to get data
- SET ABMP("RTN")="ABMRSTIN"
- +2 SET ABMMENU="Split Claim Billing Report"
- +3 ;this is from routine ABMRSPIN to gather data before splitting
- KILL ^TMP("ABM-SPIN",$JOB)
- +4 ;detail from ABMRSPIN
- KILL ^TMP("ABM-SPIN-DATA",$JOB)
- +5 KILL ^TMP("ABM-SPIN-CNT",$JOB)
- +6 KILL ^TMP("ABM-STIN",$JOB)
- +7 KILL ABMY,ABM
- +8 KILL DTOUT,DIRUT,DUOUT,DIROUT
- +9 IF $DATA(ABMY("RTYP"))
- SET ABM("HD",0)=ABMY("RTYP","NM")_" "_ABMMENU
- +10 IF '$TEST
- SET ABM("HD",0)=ABMMENU
- +11 WRITE !!,"This menu option is going to take one claim and split it as many times as"
- +12 WRITE !,"necessary to get either 1) one claim with one claim editor page of line items"
- +13 WRITE !,"OR 2) one claim with 1 line item charge. The user will be prompted if they"
- +14 WRITE !,"want the system to automatically find the claims, or if they would rather do"
- +15 WRITE !,"it manually, one claim at a time. Either way, the user will get messages"
- +16 WRITE !,"to the screen telling them the new claim numbers that generated based on"
- +17 WRITE !,"their selection."
- +18 WRITE !!,"This option should be used VERY CAUTIOUSLY since it could generate a LOT of"
- +19 WRITE !,"claims based on how the prompts are answered."
- +20 ;
- MANORAUT ;
- +1 DO ^XBFMK
- +2 SET DIR(0)="SO^A:Automatically find and split claims;M:Manually select claims one at a time to split"
- +3 SET DIR("A")="Select"
- +4 DO ^DIR
- +5 IF $DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- +6 SET ABMY("SPLIT")=Y
- +7 ;prompt user to split one claim one at a time
- IF ABMY("SPLIT")="M"
- DO MANUAL
- QUIT
- +8 ;split multiple claims/bills based on selection criteria
- IF ABMY("SPLIT")="A"
- DO AUTO
- QUIT
- +9 QUIT
- MANUAL ;EP
- +1 KILL ABMP
- MANUAL2 ;EP
- +1 ;prompt for bill/claim number
- DO ^ABMDEDIC
- +2 IF $DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- +3 ;make it capture everything
- SET ABMY("PGS")="^8Z^"
- +4 ;flag for if visit contains H or I visit
- SET ABMVSTCK=0
- +5 ;get list of files
- DO DATA2^ABMRSPI1
- +6 WRITE !!
- +7 WRITE !,"ST",?4,"SelectedClm#",?17,"HRN",?24,"Active Insurer",?40,"Visit Date",?51,"VTYP",?56,"Clinic",?65,"ServCat (VST)",!
- +8 FOR I=1:1:80
- WRITE "-"
- +9 SET ABMCS=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,4)
- +10 WRITE !,$SELECT(ABMCS="F":"FAB",ABMCS="E":"EDT",ABMCS="O":"ROL",ABMCS="C":"COM",ABMCS="P":"PEN",ABMCS="U":"UNB",ABMCS="X":"CLO",1:"")
- +11 WRITE ?4,ABMP("CDFN")
- +12 ;HRN
- WRITE ?17,$PIECE($GET(^AUPNPAT($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U),41,$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,3),0)),U,2)
- +13 ;active insurer
- WRITE ?24,$EXTRACT($PIECE($GET(^AUTNINS($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,8),0)),U),1,15)
- +14 ;visit date
- WRITE ?40,$$SDTO^ABMDUTL($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,2))
- +15 ;visit type
- WRITE ?51,$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,7)
- +16 ;clinic
- WRITE ?56,$EXTRACT($PIECE($GET(^DIC(40.7,$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,6),0)),U),1,8)
- +17 SET ABMV=0
- +18 FOR
- SET ABMV=$ORDER(^TMP("ABM-SPIN",$JOB,"VSTS",ABMV))
- IF 'ABMV
- QUIT
- WRITE ?65,$GET(^TMP("ABM-SPIN",$JOB,"VSTS",ABMV))_" ("_ABMV_")",!
- +19 ;display visit info
- DO VSTDISP^ABMRSTI1
- +20 ;
- +21 KILL ABMCK
- +22 ;check if any portion of claim has already been split
- IF $PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,22)'=""
- DO SPLTCHK^ABMRSTI1
- +23 ;if there are orig/split claims, display them
- IF $DATA(ABMCK)
- DO CLMDISP^ABMRSTI1
- +24 ;
- +25 IF +$GET(ABMVSTCK)=1
- Begin DoDot:1
- +26 WRITE !!?5,"At least one visit on this claim has a Service Category of"
- +27 WRITE !?5,"Hospitalization (H) or In Hospital (I) and is therefore unsplittable",!!
- +28 HANG 2
- End DoDot:1
- GOTO MANUAL2
- +29 ;
- +30 ;ask if they wish to continue since claim has already been split at least once
- +31 IF $DATA(ABMCK)
- Begin DoDot:1
- +32 DO ^XBFMK
- +33 SET DIR(0)="Y"
- SET DIR("A")="This claim has already been split at least once. Do you wish to continue"
- DO ^DIR
- KILL DIR
- End DoDot:1
- IF Y<1
- GOTO MANUAL
- +34 ;reset because it was set to 8Z to pull everything for display first
- KILL ABMY("PGS")
- +35 ;have user select pages; will be in ABMY("PGS") variable
- DO PGS
- +36 ;don't ask anything more if they didn't pick pages
- IF +$DATA(ABMY("PGS"))=0
- QUIT
- +37 ;do they want one claim per charge or one claim per category picked?
- DO SPLITHOW
- +38 IF +$GET(ABMY("SPLITHOW"))=0
- QUIT
- +39 ;ask if they want to delete sections after new claims are generated
- DO ASKDEL
- +40 ;I +$G(ABMDLT)=0 Q
- +41 IF $DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- +42 KILL ^TMP("ABM-STIN",$JOB,"NEWCLMLST")
- +43 ;abm*2.6*22 IHS/SD/SDR CR9700
- DO INSSTMP^ABMRSTI4
- +44 ;creates the new claims and deletes from original
- DO SPLITCLM^ABMRSTI2
- +45 SET ABMCDFN=ABMP("CDFN")
- +46 WRITE $$EN^ABMVDF("IOF"),!
- +47 WRITE "Split complete.",!
- +48 ;print claim summary with split info
- DO PRINT2^ABMRSTI3
- +49 DO PAZ^ABMDRUTL
- +50 DO ^XBFMK
- +51 ;this is from routine ABMRSPIN to gather data before splitting
- KILL ^TMP("ABM-SPIN",$JOB)
- +52 ;detail from ABMRSPIN
- KILL ^TMP("ABM-SPIN-DATA",$JOB)
- +53 KILL ^TMP("ABM-SPIN-CNT",$JOB)
- +54 KILL ^TMP("ABM-STIN",$JOB)
- +55 KILL ABMY,ABM
- +56 GOTO MANUAL2
- +57 QUIT
- PGS ;
- +1 SET ABMSTRG=""
- +2 SET ABMPG=""
- +3 SET ABMPCNT=0
- +4 SET DIR(0)="SO^"
- +5 FOR
- SET ABMPG=$ORDER(^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),ABMPG))
- IF $GET(ABMPG)=""
- QUIT
- Begin DoDot:1
- +6 SET DIR(0)=DIR(0)_ABMPG_":"_$SELECT(ABMPG["D":"MEDICATIONS",ABMPG["E":"LABORATORY",ABMPG["F":"RADIOLOGY",1:"HCPCS")_";"
- +7 ;total pages to choose from
- SET ABMPCNT=+$GET(ABMPCNT)+1
- End DoDot:1
- +8 IF $LENGTH(DIR(0),"
- SET DIR(0)=DIR(0)_"8Z:ALL"
- +9 SET DIR("A")="Move Which Section(s)? "
- +10 SET ABMTPCNT=0
- +11 FOR
- Begin DoDot:1
- +12 DO ^DIR
- +13 IF 'Y
- QUIT
- +14 SET ABMY("PGS")=$SELECT($GET(ABMY("PGS"))="":"^"_Y,1:ABMY("PGS")_"^"_Y)
- +15 SET ABMTPCNT=+$GET(ABMTPCNT)+1
- End DoDot:1
- IF (('Y)!(Y["8Z"))!(ABMTPCNT=ABMPCNT)
- QUIT
- +16 IF $GET(ABMY("PGS"))["8Z"
- Begin DoDot:1
- +17 KILL ABMY("PGS")
- +18 SET ABMPG=""
- +19 FOR
- SET ABMPG=$ORDER(^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),ABMPG))
- IF $GET(ABMPG)=""
- QUIT
- Begin DoDot:2
- +20 SET ABMY("PGS")=$GET(ABMY("PGS"))_"^"_ABMPG
- End DoDot:2
- End DoDot:1
- +21 IF $GET(ABMY("PGS"))'=""
- SET ABMY("PGS")=ABMY("PGS")_"^"
- +22 QUIT
- SPLITHOW ;EP
- +1 DO ^XBFMK
- +2 SET DIR(0)="SO^C:1 Claim for each CHARGE;P:1 Claim for each PAGE"
- +3 SET DIR("A")="Split it how? "
- +4 DO ^DIR
- +5 ;exit option if they '^'
- IF $GET(Y)=""!$DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- +6 SET ABMY("SPLITHOW")=$SELECT(Y="C":1,1:2)
- +7 QUIT
- ASKDEL ;EP
- +1 IF ABMY("PGS")'["8Z"
- Begin DoDot:1
- +2 SET DIR(0)="Y"
- SET DIR("A")="Delete sections from original claim after split"
- +3 SET DIR("B")="NO"
- +4 DO ^DIR
- KILL DIR
- +5 IF $DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- +6 IF Y=1
- SET ABMDLT=1
- End DoDot:1
- IF $DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- +7 QUIT
- AUTO ;
- +1 SET ABMY("RTYP")=1
- +2 ;select insurer(s)
- DO INS^ABMRSPIN
- +3 ;no insurer was selected
- IF '$DATA(ABMY("INS"))
- QUIT
- +4 IF $DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- +5 ;select visit or approval date range
- DO DT^ABMRSPIN
- +6 ;no dates were entered
- IF '$DATA(ABMY("DT",1))
- QUIT
- +7 IF $DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- +8 ;What claim status (Open, complete, or both)
- DO CLMSTAT^ABMRSPIN
- +9 ;no claim status was selected
- IF '$DATA(ABMY("STA"))
- QUIT
- +10 IF $DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- +11 ;what pages do you want to split (8D, 8E, 8F, 8H, 8Z)
- DO PGS^ABMRSPIN
- +12 ;no pages were selected
- IF '$DATA(ABMY("PGS"))
- QUIT
- +13 IF $DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- +14 IF ABMY("PGS")["8Z"
- SET ABMY("PGS")="^8D^8E^8F^8H^"
- +15 ;
- +16 WRITE !!,"You selected: "
- +17 WRITE !?3,"Insurers: "
- +18 SET ABMI=0
- +19 FOR
- SET ABMI=$ORDER(ABMY("INS",ABMI))
- IF 'ABMI
- QUIT
- WRITE !?6,$PIECE($GET(^AUTNINS(ABMI,0)),U)
- +20 WRITE !?3,$SELECT(ABMY("DT")="V":"Visit",1:"Approval")_" Dates: ",$$SDT^ABMDUTL(ABMY("DT",1))_" to "_$$SDT^ABMDUTL(ABMY("DT",2))
- +21 WRITE !?3,"Claim Status: "
- +22 FOR ABMI=1:1:$LENGTH(ABMY("STA","NM"),",")
- WRITE !?6,$$TRIM^ABMUTLP($PIECE(ABMY("STA","NM"),",",ABMI),"L")
- +23 WRITE !?3,"Check pages: "_$EXTRACT($TRANSLATE(ABMY("PGS"),"^",","),2,($LENGTH(ABMY("PGS"))-1))
- +24 WRITE !?3,"Report Type: "_$SELECT(ABMY("RTYP")=2:"Statistical Summary Only",1:"Brief Listing"),!!
- +25 SET DIR(0)="Y"
- SET DIR("A")="Do you wish to continue"
- DO ^DIR
- KILL DIR
- +26 IF $DATA(DUOUT)!$DATA(DTOUT)!$DATA(DIROUT)!$DATA(DIRUT)
- QUIT
- +27 ;
- +28 ;they user said they want to continue, act like 'A'
- IF Y
- SET ABMANS="A"
- +29 IF 'Y
- Begin DoDot:1
- +30 KILL DIR,DIC,DIE,X,Y,DA,DR
- +31 SET DIR(0)="S^E:Exit Report;R:Reselect Parameters;A:Accept selection and continue"
- +32 DO ^DIR
- End DoDot:1
- +33 SET ABMANS=Y
- +34 KILL DIR
- +35 ;exit report
- IF ABMANS="E"
- QUIT
- +36 ;reselect criteria
- IF ABMANS="R"
- GOTO AUTO
- +37 ;note - ABMANS="A" should just continue on through code
- +38 ;
- +39 WRITE !!,"Now searching for claims that meet the selected criteria . . ."
- +40 ;this will be a list of counters
- KILL ^TMP("ABM-SPIN",$JOB,"VLST")
- +41 DO COMPUTE^ABMRSPIN
- +42 DO SPLIT
- +43 DO ^XBFMK
- +44 ;this is from routine ABMRSPIN to gather data before splitting
- KILL ^TMP("ABM-SPIN",$JOB)
- +45 ;detail from ABMRSPIN
- KILL ^TMP("ABM-SPIN-DATA",$JOB)
- +46 KILL ^TMP("ABM-SPIN-CNT",$JOB)
- +47 KILL ^TMP("ABM-STIN",$JOB)
- +48 KILL ABMY,ABM
- +49 QUIT
- SPLIT ;EP
- +1 WRITE !!,"OK, "_+$GET(^TMP("ABM-SPIN-CNT",$JOB))_" claims were found to split."
- +2 WRITE !!
- +3 IF +$GET(^TMP("ABM-SPIN-CNT",$JOB))=0
- WRITE "Exiting option since no claims were found matching selected criteria."
- DO PAZ^ABMDRUTL
- QUIT
- +4 DO ^XBFMK
- +5 SET DIR(0)="Y"
- SET DIR("A")="Do you wish to continue"
- DO ^DIR
- KILL DIR
- +6 IF +Y<1
- QUIT
- +7 IF $DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- +8 ;do they want one claim per charge or one claim per category picked?
- DO SPLITHOW
- +9 IF $DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- +10 ;ask if they want to delete sections after new claims are generated
- DO ASKDEL
- +11 IF $DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- QUIT
- +12 ;stamp insurer with run info ;abm*2.6*22 IHS/SD/SDR CR9700
- DO INSSTMP^ABMRSTI4
- +13 WRITE !!,"Splitting claims..."
- +14 ;loop thru claims and split them
- +15 KILL ^TMP("ABM-STIN",$JOB,"NEWCLMLST")
- +16 SET ABMVLOC=""
- +17 FOR
- SET ABMVLOC=$ORDER(^TMP("ABM-SPIN",$JOB,ABMVLOC))
- IF $GET(ABMVLOC)=""
- QUIT
- Begin DoDot:1
- +18 SET ABMVTYP=""
- +19 FOR
- SET ABMVTYP=$ORDER(^TMP("ABM-SPIN",$JOB,ABMVLOC,ABMVTYP))
- IF $GET(ABMVTYP)=""
- QUIT
- Begin DoDot:2
- +20 SET ABMVDT=0
- +21 FOR
- SET ABMVDT=$ORDER(^TMP("ABM-SPIN",$JOB,ABMVLOC,ABMVTYP,ABMVDT))
- IF 'ABMVDT
- QUIT
- Begin DoDot:3
- +22 SET ABMP("CDFN")=0
- +23 FOR
- SET ABMP("CDFN")=$ORDER(^TMP("ABM-SPIN",$JOB,ABMVLOC,ABMVTYP,ABMVDT,ABMP("CDFN")))
- IF 'ABMP("CDFN")
- QUIT
- Begin DoDot:4
- +24 KILL ABMP("VDETAIL")
- +25 DO SPLITCLM^ABMRSTI2
- End DoDot:4
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +26 ;output report of original and split claims
- DO PRINT
- +27 QUIT
- PRINT ;EP
- +1 SET DIR(0)="Y"
- +2 SET DIR("A","1")="Would you like a listing of the original claims and the new"
- +3 SET DIR("A")="associated claim numbers"
- +4 DO ^DIR
- KILL DIR
- +5 IF Y<1
- QUIT
- +6 SET %ZIS="QM"
- +7 DO ^%ZIS
- IF POP
- QUIT
- +8 IF $DATA(IO("Q"))
- Begin DoDot:1
- +9 SET ZTRTN="PRINT^ABMRSTI3"
- SET ZTDESC=XQY0
- +10 SET ZTSAVE("ABM*")=""
- +11 DO ^%ZTLOAD
- +12 IF $DATA(ZTSK)[0
- WRITE !!?5,"Report Cancelled!"
- +13 IF '$TEST
- WRITE !!?5,"Report queued to run on ",ZTSK," #"
- +14 DO HOME^%ZIS
- +15 KILL IO("Q")
- End DoDot:1
- QUIT
- +16 DO PRINT^ABMRSTI3
- +17 DO PAZ^ABMDRUTL
- +18 QUIT
