12 lines
427 B
Mathematica
12 lines
427 B
Mathematica
|
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
|