source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENXOIPR.m@ 699

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

initial load of WorldVistAEHR

File size: 460 bytes
Line 
1ENXOIPR ;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.