ABMDEOPT ; IHS/ASDST/DMJ - EDIT PAGE OPTIONS ;
;;2.6;IHS 3P BILLING SYSTEM;**11,14**;NOV 12, 2009;Build 238
;
; IHS/SD/SDR,TPF - v2.5 p8 - added code for pending status (12)
;IHS/SD/SDR - 2.6*14 - ICD10 Added refresh and Ind (Indicator) options for page 5A
;
SEL ;EP for Page Commands, Desired Action Controller
I $D(ABMP("DDL")),$D(ABMP("QUIT")) S Y="Q" G XIT
I $D(ABMP("DDL")) S Y="N" G XIT
I $E("IOST")'="C",IOST'="",IO'="",IO'=IO(0) S Y="N" G XIT
S:'$D(ABMP("DFLT")) ABMP("DFLT")=""
K %P,DIR S DIR(0)="F^1:9"
S (DIR("B"),ABMO("DFLT"))=$S(ABMP("DFLT")]"":ABMP("DFLT"),ABMP("OPT")'["N":"B",1:"N")
S DIR("A")="Desired ACTION ("
S DIR("?",1)=" Choose from one of the following actions:"
S DIR("?",2)=" "
F ABMO("CTR")=3:1 S ABMO("TXT")=$E(ABMP("OPT"),ABMO("CTR")-2) Q:ABMO("TXT")="" D
.I $D(ABMP("VIEWMODE")),"NVBJQ"'[ABMO("TXT") Q
.S DIR("?",ABMO("CTR"))=$P($T(@ABMO("TXT")),";;",2),DIR("A")=DIR("A")_$P($T(@ABMO("TXT")),";;",3)_"/"
S DIR("?",ABMO("CTR"))=" "
S DIR("?")=" Enter First Character of the Desired Action."
S DIR("A")=$P(DIR("A"),"/",1,$L(DIR("A"),"/")-1)_")"
D ^DIR K DIR
G XIT:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
S:X="" Y=ABMO("DFLT")
S Y=$$UPC^ABMERUTL(Y)
I $D(ABMP("VIEWMODE")),"NBVJQ"'[$E(Y) W *7 G SEL
I $E(X)="?" D ^ABMDEHLP G SEL
I '+$E(Y),'+$E(Y,2),$E(Y,2)'=0 S Y=$E(Y)
I ABMP("SCRN")=0,"Aa"[Y S (X,Y)="C"
I "Pp"[Y,(ABMZ("PG")=0) S (X,Y)="F"
I $A(Y,1)>96&($A(Y,1)<123) S Y=$C($A(Y,1)-32)_$E(Y,2,99)
I ABMP("OPT")[$E(Y) K ABMP("DFLT") G XIT
I +Y,$D(ABMZ("NUM")),Y<(ABMZ("NUM")+1) K ABMP("DFLT") S Y="E"_+Y G XIT
W *7 G SEL
;
N ;; Next - Go on to the Next Edit Screen;;Next
A ;; Add - Add a New Entry;;Add
D ;; Del - Delete an Existing Entry;;Del
S ;; Seq - Modify the Prioity Sequence;;Seq
P ;; Pick - Pick Insurer to Bill;;Pick
E ;; Edit - Edit Information in the Current Screen;;Edit
V ;; View - Display Detailed Information;;View
C ;; Appr - Approve Claim for Billing;;Appr
J ;; Jump - Jump to a desired Edit Screen;;Jump
B ;; Back - Backup to the previous Edit Screen;;Back
Q ;; Quit - Stop Editing the Data of this Claim;;Quit
M ;; Mode - Change mode of export for this page;;Mode
F ;; Pend - Pend the claim and enter Pend Status;;Pend
R ;; Rfsh - For page 5A when ICD9 and ICD10 present;;Rfsh
I ;; Ind - Acts as override for ICD9 or ICD10 coding on claim;;Ind
;
FLDS ;EP for Field Edit Controller
S ABMO("Y")=+$E(Y,2,3) I ABMO("Y")>0&(ABMO("Y")<(ABMP("FLDS")+1)) S Y=ABMO("Y") G EJ
W ! S DIR(0)="LO^1:"_ABMP("FLDS"),DIR("A")="Desired FIELDS",DIR("B")="1-"_ABMP("FLDS") D ^DIR K DIR
G XIT:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
EJ S ABMP("FLDS")=Y
G XIT
;
XIT K ABMO,ABMP("OPT")
Q
;
JUMP S ABM("EX")=$E(X,3)_$E(X,2) I $T(@ABM("EX"))]"" S ABMP("SCRN")=$E(X,2),ABM("EX")=$P($T(@ABM("EX")),$E(X,3)_$E(X,2)_" ",2),X=$E(X,2,3) X ABM("EX") Q
ABMDEOPT ; IHS/ASDST/DMJ - EDIT PAGE OPTIONS ;
+1 ;;2.6;IHS 3P BILLING SYSTEM;**11,14**;NOV 12, 2009;Build 238
+2 ;
+3 ; IHS/SD/SDR,TPF - v2.5 p8 - added code for pending status (12)
+4 ;IHS/SD/SDR - 2.6*14 - ICD10 Added refresh and Ind (Indicator) options for page 5A
+5 ;
SEL ;EP for Page Commands, Desired Action Controller
+1 IF $DATA(ABMP("DDL"))
IF $DATA(ABMP("QUIT"))
SET Y="Q"
GOTO XIT
+2 IF $DATA(ABMP("DDL"))
SET Y="N"
GOTO XIT
+3 IF $EXTRACT("IOST")'="C"
IF IOST'=""
IF IO'=""
IF IO'=IO(0)
SET Y="N"
GOTO XIT
+4 IF '$DATA(ABMP("DFLT"))
SET ABMP("DFLT")=""
+5 KILL %P,DIR
SET DIR(0)="F^1:9"
+6 SET (DIR("B"),ABMO("DFLT"))=$SELECT(ABMP("DFLT")]"":ABMP("DFLT"),ABMP("OPT")'["N":"B",1:"N")
+7 SET DIR("A")="Desired ACTION ("
+8 SET DIR("?",1)=" Choose from one of the following actions:"
+9 SET DIR("?",2)=" "
+10 FOR ABMO("CTR")=3:1
SET ABMO("TXT")=$EXTRACT(ABMP("OPT"),ABMO("CTR")-2)
IF ABMO("TXT")=""
QUIT
Begin DoDot:1
+11 IF $DATA(ABMP("VIEWMODE"))
IF "NVBJQ"'[ABMO("TXT")
QUIT
+12 SET DIR("?",ABMO("CTR"))=$PIECE($TEXT(@ABMO("TXT")),";;",2)
SET DIR("A")=DIR("A")_$PIECE($TEXT(@ABMO("TXT")),";;",3)_"/"
End DoDot:1
+13 SET DIR("?",ABMO("CTR"))=" "
+14 SET DIR("?")=" Enter First Character of the Desired Action."
+15 SET DIR("A")=$PIECE(DIR("A"),"/",1,$LENGTH(DIR("A"),"/")-1)_")"
+16 DO ^DIR
KILL DIR
+17 IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
GOTO XIT
+18 IF X=""
SET Y=ABMO("DFLT")
+19 SET Y=$$UPC^ABMERUTL(Y)
+20 IF $DATA(ABMP("VIEWMODE"))
IF "NBVJQ"'[$EXTRACT(Y)
WRITE *7
GOTO SEL
+21 IF $EXTRACT(X)="?"
DO ^ABMDEHLP
GOTO SEL
+22 IF '+$EXTRACT(Y)
IF '+$EXTRACT(Y,2)
IF $EXTRACT(Y,2)'=0
SET Y=$EXTRACT(Y)
+23 IF ABMP("SCRN")=0
IF "Aa"[Y
SET (X,Y)="C"
+24 IF "Pp"[Y
IF (ABMZ("PG")=0)
SET (X,Y)="F"
+25 IF $ASCII(Y,1)>96&($ASCII(Y,1)<123)
SET Y=$CHAR($ASCII(Y,1)-32)_$EXTRACT(Y,2,99)
+26 IF ABMP("OPT")[$EXTRACT(Y)
KILL ABMP("DFLT")
GOTO XIT
+27 IF +Y
IF $DATA(ABMZ("NUM"))
IF Y<(ABMZ("NUM")+1)
KILL ABMP("DFLT")
SET Y="E"_+Y
GOTO XIT
+28 WRITE *7
GOTO SEL
+29 ;
N ;; Next - Go on to the Next Edit Screen;;Next
A ;; Add - Add a New Entry;;Add
D ;; Del - Delete an Existing Entry;;Del
S ;; Seq - Modify the Prioity Sequence;;Seq
P ;; Pick - Pick Insurer to Bill;;Pick
E ;; Edit - Edit Information in the Current Screen;;Edit
V ;; View - Display Detailed Information;;View
C ;; Appr - Approve Claim for Billing;;Appr
J ;; Jump - Jump to a desired Edit Screen;;Jump
B ;; Back - Backup to the previous Edit Screen;;Back
Q ;; Quit - Stop Editing the Data of this Claim;;Quit
M ;; Mode - Change mode of export for this page;;Mode
F ;; Pend - Pend the claim and enter Pend Status;;Pend
R ;; Rfsh - For page 5A when ICD9 and ICD10 present;;Rfsh
I ;; Ind - Acts as override for ICD9 or ICD10 coding on claim;;Ind
+1 ;
FLDS ;EP for Field Edit Controller
+1 SET ABMO("Y")=+$EXTRACT(Y,2,3)
IF ABMO("Y")>0&(ABMO("Y")<(ABMP("FLDS")+1))
SET Y=ABMO("Y")
GOTO EJ
+2 WRITE !
SET DIR(0)="LO^1:"_ABMP("FLDS")
SET DIR("A")="Desired FIELDS"
SET DIR("B")="1-"_ABMP("FLDS")
DO ^DIR
KILL DIR
+3 IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
GOTO XIT
EJ SET ABMP("FLDS")=Y
+1 GOTO XIT
+2 ;
XIT KILL ABMO,ABMP("OPT")
+1 QUIT
+2 ;
JUMP SET ABM("EX")=$EXTRACT(X,3)_$EXTRACT(X,2)
IF $TEXT(@ABM("EX"))]""
SET ABMP("SCRN")=$EXTRACT(X,2)
SET ABM("EX")=$PIECE($TEXT(@ABM("EX")),$EXTRACT(X,3)_$EXTRACT(X,2)_" ",2)
SET X=$EXTRACT(X,2,3)
XECUTE ABM("EX")
QUIT
