Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
460 bytes
|
Line | |
---|
1 | ENXOIPR ;WIRMFO/SAB-PRE INIT ;7.29.96
|
---|
2 | ;;7.0;ENGINEERING;**33**;Aug 17, 1993
|
---|
3 | ; correct some DJ screen field lengths
|
---|
4 | D MES^XPDUTL("Beginning pre-init...")
|
---|
5 | F ENSCR="ENEQ3","ENEQ3D","ENEQ3S" D
|
---|
6 | . S ENSCRDA=$O(^ENG(6910.9,"B",ENSCR,0))
|
---|
7 | . Q:'ENSCRDA
|
---|
8 | . S ENFLDDA=$O(^ENG(6910.9,ENSCRDA,1,"B","FUND",0)) I ENFLDDA D
|
---|
9 | . . S DIE="^ENG(6910.9,"_ENSCRDA_",1,",DA(1)=ENSCRDA,DA=ENFLDDA
|
---|
10 | . . S DR=".03///^S X=6" D ^DIE
|
---|
11 | D MES^XPDUTL("Pre-init complete.")
|
---|
12 | Q
|
---|
13 | ;ENXOIPR
|
---|
Note:
See
TracBrowser
for help on using the repository browser.