source: FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUBPEDT.m@ 1742

Last change on this file since 1742 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 427 bytes
Line 
1TIUBPEDT ; SLC/JER - Basic Parameter Edit ;2/19/93 16:15
2 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
3MAIN ; Controls branching
4 N DIC,DA,DIE,DR,DLAYGO,TIUPRM0,TIUPRM1,TIUFMT,X,Y,DWPK
5 D:'$D(TIUPRM0) SETPARM^TIULE
6 W !,"First edit Division-wide parameters:",!
7 S (DIC,DLAYGO)=8925.99,DIC(0)="AEMQL",DIC("A")="Select INSTITUTION: "
8 D ^DIC K DLAYGO Q:+Y'>0 S DA=+Y
9 S DIE=8925.99,DR="[TIU BASIC PARAMETER EDIT]"
10 D ^DIE
11 Q
Note: See TracBrowser for help on using the repository browser.