ABMDPOPT.m

ABMDPOPT ; IHS/ASDST/DMJ - PAYMENT OPTIONS ;

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 ;

SEL ;EP for Page Commands, Desired Action Controller

 K %P,DIR S DIR(0)="FO^1:9"

 S (DIR("B"),ABMO("DFLT"))=$G(ABM("DFLT")) K:DIR("B")="" DIR("B")

 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(ABM("OPT"),ABMO("CTR")-2) Q:ABMO("TXT")=""  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:$E(Y)="Q" DIRUT=""

 I $E(X)="?" G SEL

 I '+$E(Y),'+$E(Y,2),$E(Y,2)'=0 S Y=$E(Y)

 I $A(Y,1)>96&($A(Y,1)<123) S Y=$C($A(Y,1)-32)_$E(Y,2,99)

 I ABM("OPT")[$E(Y) K ABM("DFLT") G XIT

 I +Y,$D(ABM("I")),Y<(ABM("I")+1) K ABM("DFLT") S Y="E"_+Y G XIT

 W *7 G SEL

 ;

A ;;     Add  - Post a New Payment;;Add

D ;;     Del  - Delete an Existing Payment;;Del

E ;;     Edit - Edit an Existing Payment;;Edit

V ;;     View - Display Previous Payment Information;;View

Q ;;     Quit - Exit the Payment Posting Option;;Quit

 ;

XIT K ABMO,ABM("OPT")

 Q

ABMDPOPT  ; IHS/ASDST/DMJ - PAYMENT OPTIONS ;

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2       ;

SEL       ;EP for Page Commands, Desired Action Controller

 +1        KILL %P,DIR

           SET DIR(0)="FO^1:9"

 +2        SET (DIR("B"),ABMO("DFLT"))=$GET(ABM("DFLT"))

           IF DIR("B")=""

               KILL DIR("B")

 +3        SET DIR("A")="Desired ACTION ("

 +4        SET DIR("?",1)=" Choose from one of the following actions:"

 +5        SET DIR("?",2)=" "

 +6        FOR ABMO("CTR")=3:1

               SET ABMO("TXT")=$EXTRACT(ABM("OPT"),ABMO("CTR")-2)

               IF ABMO("TXT")=""

                   QUIT 

               SET DIR("?",ABMO("CTR"))=$PIECE($TEXT(@ABMO("TXT")),";;",2)

               SET DIR("A")=DIR("A")_$PIECE($TEXT(@ABMO("TXT")),";;",3)_"/"

 +7        SET DIR("?",ABMO("CTR"))=" "

 +8        SET DIR("?")=" Enter First Character of the Desired Action."

 +9        SET DIR("A")=$PIECE(DIR("A"),"/",1,$LENGTH(DIR("A"),"/")-1)_")"

 +10       DO ^DIR

           KILL DIR

 +11       IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)

               GOTO XIT

 +12       IF X=""

               SET Y=ABMO("DFLT")

 +13       IF $EXTRACT(Y)="Q"

               SET DIRUT=""

 +14       IF $EXTRACT(X)="?"

               GOTO SEL

 +15       IF '+$EXTRACT(Y)

               IF '+$EXTRACT(Y,2)

                   IF $EXTRACT(Y,2)'=0

                       SET Y=$EXTRACT(Y)

 +16       IF $ASCII(Y,1)>96&($ASCII(Y,1)<123)

               SET Y=$CHAR($ASCII(Y,1)-32)_$EXTRACT(Y,2,99)

 +17       IF ABM("OPT")[$EXTRACT(Y)

               KILL ABM("DFLT")

               GOTO XIT

 +18       IF +Y

               IF $DATA(ABM("I"))

                   IF Y<(ABM("I")+1)

                       KILL ABM("DFLT")

                       SET Y="E"_+Y

                       GOTO XIT

 +19       WRITE *7

           GOTO SEL

 +20      ;

A         ;;     Add  - Post a New Payment;;Add

D         ;;     Del  - Delete an Existing Payment;;Del

E         ;;     Edit - Edit an Existing Payment;;Edit

V         ;;     View - Display Previous Payment Information;;View

Q         ;;     Quit - Exit the Payment Posting Option;;Quit

 +1       ;

XIT        KILL ABMO,ABM("OPT")

 +1        QUIT