Routine: TIUBPEDT

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

TIUBPEDT  ; SLC/JER - Basic Parameter Edit ;2/19/93  16:15

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997

MAIN      ; Controls branching

 +1        NEW DIC,DA,DIE,DR,DLAYGO,TIUPRM0,TIUPRM1,TIUFMT,X,Y,DWPK

 +2        IF '$DATA(TIUPRM0)

               DO SETPARM^TIULE

 +3        WRITE !,"First edit Division-wide parameters:",!

 +4        SET (DIC,DLAYGO)=8925.99

           SET DIC(0)="AEMQL"

           SET DIC("A")="Select INSTITUTION: "

 +5        DO ^DIC

           KILL DLAYGO

           IF +Y'>0

               QUIT

           SET DA=+Y

 +6        SET DIE=8925.99

           SET DR="[TIU BASIC PARAMETER EDIT]"

 +7        DO ^DIE

 +8        QUIT

TIUBPEDT.m