ENX1IPR ;WIRMFO/SAB-PRE-INIT ;10/29/97
;;7.0;ENGINEERING;**46**;Aug 17, 1993
;
N ENDA,ENFDA
;
; update .01 of excess fund to prevent adding entry during install
S ENDA=$$FIND1^DIC(6914.3,"","X","1561","B")
I ENDA D
. D BMES^XPDUTL(" Renaming the Excess SGL from 1561 to 1524.")
. K ENFDA S ENFDA(6914.3,ENDA_",",.01)="1524"
. D FILE^DIE("","ENFDA") D MSG^DIALOG()
;
; update id field of supply fund to prevent adding entry during install
S ENDA=$$FIND1^DIC(6914.6,"","X","4537B","B")
I ENDA D
. K ENFDA S ENFDA(6914.6,ENDA_",",1)="Field Supply Fund"
. D FILE^DIE("","ENFDA") D MSG^DIALOG()
;
Q
;ENX1IPR
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENX1IPR 643 printed Nov 22, 2024@17:06:40 Page 2
ENX1IPR ;WIRMFO/SAB-PRE-INIT ;10/29/97
+1 ;;7.0;ENGINEERING;**46**;Aug 17, 1993
+2 ;
+3 NEW ENDA,ENFDA
+4 ;
+5 ; update .01 of excess fund to prevent adding entry during install
+6 SET ENDA=$$FIND1^DIC(6914.3,"","X","1561","B")
+7 IF ENDA
Begin DoDot:1
+8 DO BMES^XPDUTL(" Renaming the Excess SGL from 1561 to 1524.")
+9 KILL ENFDA
SET ENFDA(6914.3,ENDA_",",.01)="1524"
+10 DO FILE^DIE("","ENFDA")
DO MSG^DIALOG()
End DoDot:1
+11 ;
+12 ; update id field of supply fund to prevent adding entry during install
+13 SET ENDA=$$FIND1^DIC(6914.6,"","X","4537B","B")
+14 IF ENDA
Begin DoDot:1
+15 KILL ENFDA
SET ENFDA(6914.6,ENDA_",",1)="Field Supply Fund"
+16 DO FILE^DIE("","ENFDA")
DO MSG^DIALOG()
End DoDot:1
+17 ;
+18 QUIT
+19 ;ENX1IPR
