|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
