Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BAR50I00

BAR50I00.m

Go to the documentation of this file. 
  1. BAR50I00 ; IHS/SD/LSL - ;
  1.  ;;1.8;IHS ACCOUNTS RECEIVABLE;**21**;OCT 26, 2005
  1.  ;;
  1. EN ;EP EDI MAINTENANCE
  1.  W !,"This enters/edits EDI transport architecute(s)"
  1.  W !,"Please backup globals prior to changing",!!
  1.  W !,?5,"1  Edit EDI Demographics"
  1.  W !,?5,"2  Edit Data Types & Tranforms"
  1.  W !,?5,"3  Edit Segments"
  1.  W !,?5,"4  Edit Elements"
  1.  W !,?5,"5  Auto Generate Tables "
  1.  W !,?5,"6  Edit Tables"
  1.  W !,?5,"7  Edit Claim Level Reason Codes"
  1.  W !,?5,"8  Edit Variables' Processing Routines"
  1.  W !,?5,"9  Print Variables by location within the transport"
  1.  W !
  1.  K DIR
  1.  S DIR(0)="NO^1:9:0"
  1.  D ^DIR
  1.  K DIR
  1.  S Y=+X
  1.  I Y'>0 W !,"None Selected - Exiting",! H 2 Q
  1.  I Y=1 D DEMOG^BAR50I01 G EN
  1.  I Y=2 D EDTDATA^BAR50I01 G EN
  1.  I Y=3 D EDTSEG^BAR50I01 G EN
  1.  I Y=4 D EDTELEM^BAR50I01 G EN
  1.  I Y=5 D GENTAB^BAR50I01 G EN
  1.  I Y=6 D EDTTAB^BAR50I01 G EN
  1.  I Y=7 D EDTCLAIM^BAR50I01 G EN
  1.  I Y=8 D EDTVROU^BAR50I01 G EN
  1.  I Y=9 D PRTVARS^BAR50I01 G EN
  1.  Q