- ABMURSEL ; IHS/SD/SDR - UFMS Report selection ;
- ;;2.6;IHS Third Party Billing;**1**;NOV 12, 2009
- ;
- ; IHS/SD/SDR - abm*2.6*1 - NOHEAT - Removed open/reopened status from report.
- ; It causes errors or skews the averages on the bottom if the sessions aren't
- ; closed. Will now only report closed/transmitted/reconciled sessions.
- ;
- SEL K DIC,DIR,ABMY
- S U="^"
- S ABMY("X")="W $$SDT^ABMDUTL(X)"
- I $D(ABM("POS")) S ABMY("POS")=ABM("POS")
- I $D(ABM("SSTAT")) M ABMY("SSTAT")=ABM("SSTAT")
- ;
- LOOP ;
- ; Display current exclusion parameters
- G XIT:$D(DUOUT)!$D(DTOUT)!$D(DIROUT)
- W !!?3,"EXCLUSION PARAMETERS Currently in Effect for RESTRICTING the EXPORT to:",!?3,"======================================================================="
- W !?3,"- Users..............:"
- I '$D(ABMY("USER")) W " ALL"
- E D
- .S ABMU=0,ABMSFLG=0
- .F S ABMU=$O(ABMY("USER",ABMU)) Q:+ABMU=0 D
- ..I ABMSFLG=1 W !
- ..W ?26,$P($G(^VA(200,ABMU,0)),U)
- ..S ABMSFLG=1
- I $D(ABMY("DT")) W !?3,"- Date Range.........: "
- I S X=ABMY("DT",1) X ABMY("X") W " to: " S X=ABMY("DT",2) X ABMY("X")
- I $D(ABMY("POS")) W !?3,"- POS Claims.........: ",$S(ABMY("POS")=1:"Included",1:"Excluded")
- S ABMSTAT="",ABMSFLG=0
- F S ABMSTAT=$O(ABMY("SSTAT",ABMSTAT)) Q:ABMSTAT="" D Q:ABMSTAT="A"
- .W !?3,$S(ABMSFLG=0:"- Session status.....: ",1:"")
- .I ABMSTAT="A" W:ABMSFLG=1 ?26 W "ALL"
- .;I ABMSTAT="O" W:ABMSFLG=1 ?26 W "OPEN" ;abm*2.6*1
- .I ABMSTAT="C" W:ABMSFLG=1 ?26 W "CLOSED"
- .I ABMSTAT="R" W:ABMSFLG=1 ?26 W "RECONCILED"
- .I ABMSTAT="T" W:ABMSFLG=1 ?26 W "TRANSMITTED"
- .;I ABMSTAT="S" W:ABMSFLG=1 ?26 W "REOPENED" ;abm*2.6*1
- .S ABMSFLG=1
- PARM ;
- ; Choose additional exclusion parameters
- K DIR
- S DIR(0)="SO^1:DATE RANGE;2:USERS;3:POS CLAIMS;4:SESSION STATUS"
- S DIR("A")="Select ONE or MORE of the above EXCLUSION PARAMETERS"
- S DIR("?")="The report can be restricted to one or more of the listed parameters. A parameter can be removed by reselecting it and making a null entry."
- D ^DIR
- K DIR
- G XIT:$D(DIRUT)!$D(DIROUT)
- D @($S(Y=1:"DT",Y=2:"USER",Y=3:"POS",Y=4:"STAT")_"^ABMURSL1") G LOOP
- XIT ;
- G XIT2:$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
- W !
- ;start old code abm*2.6*1 NOHEAT
- ;K DIR
- ;S DIR(0)="Y"
- ;S DIR("A")="Print Summary screen only"
- ;S DIR("B")="N"
- ;S DIR("?")="By selecting NO both a summary and detail will print. If you select YES it will print the summary page ONLY"
- ;D ^DIR
- ;I '$D(DIROUT)&('$D(DIRUT)) S ABMY("SUM")=Y
- ;end old code abm*2.6*1
- S ABMY("SUM")=1 ;always summary for now ;abm*2.6*1 NO HEAT
- ;
- XIT2 ;
- K ABMY("I"),ABMY("X"),DIR
- Q
- ABMURSEL ; IHS/SD/SDR - UFMS Report selection ;
- +1 ;;2.6;IHS Third Party Billing;**1**;NOV 12, 2009
- +2 ;
- +3 ; IHS/SD/SDR - abm*2.6*1 - NOHEAT - Removed open/reopened status from report.
- +4 ; It causes errors or skews the averages on the bottom if the sessions aren't
- +5 ; closed. Will now only report closed/transmitted/reconciled sessions.
- +6 ;
- SEL KILL DIC,DIR,ABMY
- +1 SET U="^"
- +2 SET ABMY("X")="W $$SDT^ABMDUTL(X)"
- +3 IF $DATA(ABM("POS"))
- SET ABMY("POS")=ABM("POS")
- +4 IF $DATA(ABM("SSTAT"))
- MERGE ABMY("SSTAT")=ABM("SSTAT")
- +5 ;
- LOOP ;
- +1 ; Display current exclusion parameters
- +2 IF $DATA(DUOUT)!$DATA(DTOUT)!$DATA(DIROUT)
- GOTO XIT
- +3 WRITE !!?3,"EXCLUSION PARAMETERS Currently in Effect for RESTRICTING the EXPORT to:",!?3,"======================================================================="
- +4 WRITE !?3,"- Users..............:"
- +5 IF '$DATA(ABMY("USER"))
- WRITE " ALL"
- +6 IF '$TEST
- Begin DoDot:1
- +7 SET ABMU=0
- SET ABMSFLG=0
- +8 FOR
- SET ABMU=$ORDER(ABMY("USER",ABMU))
- IF +ABMU=0
- QUIT
- Begin DoDot:2
- +9 IF ABMSFLG=1
- WRITE !
- +10 WRITE ?26,$PIECE($GET(^VA(200,ABMU,0)),U)
- +11 SET ABMSFLG=1
- End DoDot:2
- End DoDot:1
- +12 IF $DATA(ABMY("DT"))
- WRITE !?3,"- Date Range.........: "
- +13 IF $TEST
- SET X=ABMY("DT",1)
- XECUTE ABMY("X")
- WRITE " to: "
- SET X=ABMY("DT",2)
- XECUTE ABMY("X")
- +14 IF $DATA(ABMY("POS"))
- WRITE !?3,"- POS Claims.........: ",$SELECT(ABMY("POS")=1:"Included",1:"Excluded")
- +15 SET ABMSTAT=""
- SET ABMSFLG=0
- +16 FOR
- SET ABMSTAT=$ORDER(ABMY("SSTAT",ABMSTAT))
- IF ABMSTAT=""
- QUIT
- Begin DoDot:1
- +17 WRITE !?3,$SELECT(ABMSFLG=0:"- Session status.....: ",1:"")
- +18 IF ABMSTAT="A"
- IF ABMSFLG=1
- WRITE ?26
- WRITE "ALL"
- +19 ;I ABMSTAT="O" W:ABMSFLG=1 ?26 W "OPEN" ;abm*2.6*1
- +20 IF ABMSTAT="C"
- IF ABMSFLG=1
- WRITE ?26
- WRITE "CLOSED"
- +21 IF ABMSTAT="R"
- IF ABMSFLG=1
- WRITE ?26
- WRITE "RECONCILED"
- +22 IF ABMSTAT="T"
- IF ABMSFLG=1
- WRITE ?26
- WRITE "TRANSMITTED"
- +23 ;I ABMSTAT="S" W:ABMSFLG=1 ?26 W "REOPENED" ;abm*2.6*1
- +24 SET ABMSFLG=1
- End DoDot:1
- IF ABMSTAT="A"
- QUIT
- PARM ;
- +1 ; Choose additional exclusion parameters
- +2 KILL DIR
- +3 SET DIR(0)="SO^1:DATE RANGE;2:USERS;3:POS CLAIMS;4:SESSION STATUS"
- +4 SET DIR("A")="Select ONE or MORE of the above EXCLUSION PARAMETERS"
- +5 SET DIR("?")="The report can be restricted to one or more of the listed parameters. A parameter can be removed by reselecting it and making a null entry."
- +6 DO ^DIR
- +7 KILL DIR
- +8 IF $DATA(DIRUT)!$DATA(DIROUT)
- GOTO XIT
- +9 DO @($SELECT(Y=1:"DT",Y=2:"USER",Y=3:"POS",Y=4:"STAT")_"^ABMURSL1")
- GOTO LOOP
- XIT ;
- +1 IF $DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
- GOTO XIT2
- +2 WRITE !
- +3 ;start old code abm*2.6*1 NOHEAT
- +4 ;K DIR
- +5 ;S DIR(0)="Y"
- +6 ;S DIR("A")="Print Summary screen only"
- +7 ;S DIR("B")="N"
- +8 ;S DIR("?")="By selecting NO both a summary and detail will print. If you select YES it will print the summary page ONLY"
- +9 ;D ^DIR
- +10 ;I '$D(DIROUT)&('$D(DIRUT)) S ABMY("SUM")=Y
- +11 ;end old code abm*2.6*1
- +12 ;always summary for now ;abm*2.6*1 NO HEAT
- SET ABMY("SUM")=1
- +13 ;
- XIT2 ;
- +1 KILL ABMY("I"),ABMY("X"),DIR
- +2 QUIT
