ENX1IPR.m

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 ---ENX1IPR   643     printed  Apr 09, 2024@20:58                                                                                                                                                                                                         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