ACRFPRE.m

ACRFPRE ;IHS/OIRM/DSD/AEF - ARMS PREINSTALL ROUTINE [ 11/01/2001   9:44 AM ]

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

 ;

 ;     ARMS VERSION 2.0T2 PREINSTALL ROUTINE

 ;

EN ;EP -- MAIN ENTRY POINT

 ;

 D DHR

 Q

DHR ;----- DELETE FMS DOCUMENT HISTORY RECORD DATA DICTIONARY

 ;

 N DIU,X,Y

 S DIU="^ACRDHR("

 S DIU(0)=""

 D EN^DIU2

 Q

ACRFPRE   ;IHS/OIRM/DSD/AEF - ARMS PREINSTALL ROUTINE [ 11/01/2001   9:44 AM ]

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

 +2       ;

 +3       ;     ARMS VERSION 2.0T2 PREINSTALL ROUTINE

 +4       ;

EN        ;EP -- MAIN ENTRY POINT

 +1       ;

 +2        DO DHR

 +3        QUIT 

DHR       ;----- DELETE FMS DOCUMENT HISTORY RECORD DATA DICTIONARY

 +1       ;

 +2        NEW DIU,X,Y

 +3        SET DIU="^ACRDHR("

 +4        SET DIU(0)=""

 +5        DO EN^DIU2

 +6        QUIT