ENXOIPR.m

ENXOIPR ;WIRMFO/SAB-PRE INIT ;7.29.96

 ;;7.0;ENGINEERING;**33**;Aug 17, 1993

 ; correct some DJ screen field lengths

 D MES^XPDUTL("Beginning pre-init...")

 F ENSCR="ENEQ3","ENEQ3D","ENEQ3S" D

 . S ENSCRDA=$O(^ENG(6910.9,"B",ENSCR,0))

 . Q:'ENSCRDA

 . S ENFLDDA=$O(^ENG(6910.9,ENSCRDA,1,"B","FUND",0)) I ENFLDDA D

 . . S DIE="^ENG(6910.9,"_ENSCRDA_",1,",DA(1)=ENSCRDA,DA=ENFLDDA

 . . S DR=".03///^S X=6" D ^DIE

 D MES^XPDUTL("Pre-init complete.")

 Q

 ;ENXOIPR

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENXOIPR   473     printed  Apr 09, 2024@21:01:18                                                                                                                                                                                                      Page 2

ENXOIPR   ;WIRMFO/SAB-PRE INIT ;7.29.96

 +1       ;;7.0;ENGINEERING;**33**;Aug 17, 1993

 +2       ; correct some DJ screen field lengths

 +3        DO MES^XPDUTL("Beginning pre-init...")

 +4        FOR ENSCR="ENEQ3","ENEQ3D","ENEQ3S"

               Begin DoDot:1

 +5                SET ENSCRDA=$ORDER(^ENG(6910.9,"B",ENSCR,0))

 +6                if 'ENSCRDA

                       QUIT 

 +7                SET ENFLDDA=$ORDER(^ENG(6910.9,ENSCRDA,1,"B","FUND",0))

                   IF ENFLDDA

                       Begin DoDot:2

 +8                        SET DIE="^ENG(6910.9,"_ENSCRDA_",1,"

                           SET DA(1)=ENSCRDA

                           SET DA=ENFLDDA

 +9                        SET DR=".03///^S X=6"

                           DO ^DIE

                       End DoDot:2

               End DoDot:1

 +10       DO MES^XPDUTL("Pre-init complete.")

 +11       QUIT 

 +12      ;ENXOIPR