ACRFPOST.m

ACRFPOST ;IHS/OIRM/DSD/AEF - POST INSTALL ROUTINE [ 11/01/2001   9:44 AM ]

 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 ;

 ;      VERSION 2.0T2 POST INSTALL ROUTINE

 ;

EN ;EP -- MAIN ENTRY POINT

 ;

 D OPT

 D FUNC

 Q

OPT ;----- RENAME OPTION

 ;

 ;      RENAME OPTION ACRN P PAYMENTS TO

 ;                    ACRF P PAYMENTS

 ;

 N DIC,X,Y

 S DIC="^DIC(19,"

 S DIC(0)=""

 S X="ACRN P PAYMENTS"

 D ^DIC

 Q:+Y'>0

 D BMES^XPDUTL("Renaming option ACRN P PAYMENTS to ACRF P PAYMENTS")

 S DA=+Y

 S DIE=DIC

 S DR=".01///^S X=""ACRF P PAYMENTS"""

 D ^DIE

 Q

FUNC ;----- DELETE FUNCTION

 ;

 S DIC="^DD(""FUNC"","

 S DIC(0)=""

 S X="ACRZLASTPMT"

 D ^DIC

 Q:+Y'>1

 S DA=+Y

 S DIE=DIC

 S DR=".01///^S X=""@"""

 D ^DIE

 ;

 Q

ACRFPOST  ;IHS/OIRM/DSD/AEF - POST INSTALL ROUTINE [ 11/01/2001   9:44 AM ]

 +1       ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 +2       ;

 +3       ;      VERSION 2.0T2 POST INSTALL ROUTINE

 +4       ;

EN        ;EP -- MAIN ENTRY POINT

 +1       ;

 +2        DO OPT

 +3        DO FUNC

 +4        QUIT 

OPT       ;----- RENAME OPTION

 +1       ;

 +2       ;      RENAME OPTION ACRN P PAYMENTS TO

 +3       ;                    ACRF P PAYMENTS

 +4       ;

 +5        NEW DIC,X,Y

 +6        SET DIC="^DIC(19,"

 +7        SET DIC(0)=""

 +8        SET X="ACRN P PAYMENTS"

 +9        DO ^DIC

 +10       IF +Y'>0

               QUIT 

 +11       DO BMES^XPDUTL("Renaming option ACRN P PAYMENTS to ACRF P PAYMENTS")

 +12       SET DA=+Y

 +13       SET DIE=DIC

 +14       SET DR=".01///^S X=""ACRF P PAYMENTS"""

 +15       DO ^DIE

 +16       QUIT 

FUNC      ;----- DELETE FUNCTION

 +1       ;

 +2        SET DIC="^DD(""FUNC"","

 +3        SET DIC(0)=""

 +4        SET X="ACRZLASTPMT"

 +5        DO ^DIC

 +6        IF +Y'>1

               QUIT 

 +7        SET DA=+Y

 +8        SET DIE=DIC

 +9        SET DR=".01///^S X=""@"""

 +10       DO ^DIE

 +11      ;

 +12       QUIT