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
