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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUBPEDT 438 printed Dec 13, 2024@02:38:59 Page 2
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
