TIUBPEDT ; SLC/JER - Basic Parameter Edit ;2/19/93  16:15
 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
MAIN ; Controls branching
 N DIC,DA,DIE,DR,DLAYGO,TIUPRM0,TIUPRM1,TIUFMT,X,Y,DWPK
 D:'$D(TIUPRM0) SETPARM^TIULE
 W !,"First edit Division-wide parameters:",!
 S (DIC,DLAYGO)=8925.99,DIC(0)="AEMQL",DIC("A")="Select INSTITUTION: "
 D ^DIC K DLAYGO Q:+Y'>0  S DA=+Y
 S DIE=8925.99,DR="[TIU BASIC PARAMETER EDIT]"
 D ^DIE
 Q