ABMDEOPT.m

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