BAR50I00.m

BAR50I00 ; IHS/SD/LSL - ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;**21**;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^BAR50I01 G EN

 I Y=2 D EDTDATA^BAR50I01 G EN

 I Y=3 D EDTSEG^BAR50I01 G EN

 I Y=4 D EDTELEM^BAR50I01 G EN

 I Y=5 D GENTAB^BAR50I01 G EN

 I Y=6 D EDTTAB^BAR50I01 G EN

 I Y=7 D EDTCLAIM^BAR50I01 G EN

 I Y=8 D EDTVROU^BAR50I01 G EN

 I Y=9 D PRTVARS^BAR50I01 G EN

 Q

BAR50I00  ; IHS/SD/LSL - ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;**21**;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^BAR50I01

               GOTO EN

 +20       IF Y=2

               DO EDTDATA^BAR50I01

               GOTO EN

 +21       IF Y=3

               DO EDTSEG^BAR50I01

               GOTO EN

 +22       IF Y=4

               DO EDTELEM^BAR50I01

               GOTO EN

 +23       IF Y=5

               DO GENTAB^BAR50I01

               GOTO EN

 +24       IF Y=6

               DO EDTTAB^BAR50I01

               GOTO EN

 +25       IF Y=7

               DO EDTCLAIM^BAR50I01

               GOTO EN

 +26       IF Y=8

               DO EDTVROU^BAR50I01

               GOTO EN

 +27       IF Y=9

               DO PRTVARS^BAR50I01

               GOTO EN

 +28       QUIT