BAREDI00.m

BAREDI00 ; IHS/SD/LSL - ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 ;;

EN ;EP EDI MAINTENANCE

 W !,"This enters/edits EDI transport architecute(s)"

 W !,"Please backup globals prior to changing",!!

 W !,?5,"1  Edit EDI Demographics"

 W !,?5,"2  Edit Data Types & Tranforms"

 W !,?5,"3  Edit Segments"

 W !,?5,"4  Edit Elements"

 W !,?5,"5  Auto Generate Tables "

 W !,?5,"6  Edit Tables"

 W !,?5,"7  Edit Claim Level Reason Codes"

 W !,?5,"8  Edit Variables' Processing Routines"

 W !,?5,"9  Print Variables by location within the transport"

 W !

 K DIR

 S DIR(0)="NO^1:9:0"

 D ^DIR

 K DIR

 S Y=+X

 I Y'>0 W !,"None Selected - Exiting",! H 2 Q

 I Y=1 D DEMOG^BAREDI01 G EN

 I Y=2 D EDTDATA^BAREDI01 G EN

 I Y=3 D EDTSEG^BAREDI01 G EN

 I Y=4 D EDTELEM^BAREDI01 G EN

 I Y=5 D GENTAB^BAREDI01 G EN

 I Y=6 D EDTTAB^BAREDI01 G EN

 I Y=7 D EDTCLAIM^BAREDI01 G EN

 I Y=8 D EDTVROU^BAREDI01 G EN

 I Y=9 D PRTVARS^BAREDI01 G EN

 Q

BAREDI00  ; IHS/SD/LSL - ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 +2       ;;

EN        ;EP EDI MAINTENANCE

 +1        WRITE !,"This enters/edits EDI transport architecute(s)"

 +2        WRITE !,"Please backup globals prior to changing",!!

 +3        WRITE !,?5,"1  Edit EDI Demographics"

 +4        WRITE !,?5,"2  Edit Data Types & Tranforms"

 +5        WRITE !,?5,"3  Edit Segments"

 +6        WRITE !,?5,"4  Edit Elements"

 +7        WRITE !,?5,"5  Auto Generate Tables "

 +8        WRITE !,?5,"6  Edit Tables"

 +9        WRITE !,?5,"7  Edit Claim Level Reason Codes"

 +10       WRITE !,?5,"8  Edit Variables' Processing Routines"

 +11       WRITE !,?5,"9  Print Variables by location within the transport"

 +12       WRITE !

 +13       KILL DIR

 +14       SET DIR(0)="NO^1:9:0"

 +15       DO ^DIR

 +16       KILL DIR

 +17       SET Y=+X

 +18       IF Y'>0

               WRITE !,"None Selected - Exiting",!

               HANG 2

               QUIT 

 +19       IF Y=1

               DO DEMOG^BAREDI01

               GOTO EN

 +20       IF Y=2

               DO EDTDATA^BAREDI01

               GOTO EN

 +21       IF Y=3

               DO EDTSEG^BAREDI01

               GOTO EN

 +22       IF Y=4

               DO EDTELEM^BAREDI01

               GOTO EN

 +23       IF Y=5

               DO GENTAB^BAREDI01

               GOTO EN

 +24       IF Y=6

               DO EDTTAB^BAREDI01

               GOTO EN

 +25       IF Y=7

               DO EDTCLAIM^BAREDI01

               GOTO EN

 +26       IF Y=8

               DO EDTVROU^BAREDI01

               GOTO EN

 +27       IF Y=9

               DO PRTVARS^BAREDI01

               GOTO EN

 +28       QUIT