ORAMP489.m

ORAMP489 ;HPS/DM - Post Installation Tasks ; 10/22/18 2:29pm

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**489**;Dec 17, 1997;Build 4

 ;;Per VA Directive 6402, this routine should not be modified.

 ;

 ; This routine uses the following IAs:

 ; #10141 - MES^XPDUTL Kernel (supported)

 ; #2263 - EN^XPAR Kernel (supported)

 ;

 Q

EN ;

 ; Installing commands in the command file...

 D MES^XPDUTL("OR*3.0*489 Post install starting....updating Parameters...")

 ;

 ; Update ORAM GUI VERSION with new build number for AntiCoagulate.exe.

 D EN^XPAR("SYS","ORAM GUI VERSION",,"1.0.489.2")

 ;

 D MES^XPDUTL(" OR*3.0*489 Post Init complete")

 ;

 Q

ROLLBACK ;

 D MES^XPDUTL("OR*3.0*489 Rollback starting....updating Parameters...")

 ;

 ; Revert ORAM GUI VERSION to previous build number for AntiCoagulate.exe.

 D EN^XPAR("SYS","ORAM GUI VERSION",,"@")

 D DEL^XPAR("SYS","ORAM GUI VERSION")

 ;

 D MES^XPDUTL(" OR*3.0*489 Rollback complete")

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ORAMP489   954     printed  Apr 09, 2024@21:43:58                                                                                                                                                                                                     Page 2

ORAMP489  ;HPS/DM - Post Installation Tasks ; 10/22/18 2:29pm

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**489**;Dec 17, 1997;Build 4

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4       ; This routine uses the following IAs:

 +5       ; #10141 - MES^XPDUTL Kernel (supported)

 +6       ; #2263 - EN^XPAR Kernel (supported)

 +7       ;

 +8        QUIT 

EN        ;

 +1       ; Installing commands in the command file...

 +2        DO MES^XPDUTL("OR*3.0*489 Post install starting....updating Parameters...")

 +3       ;

 +4       ; Update ORAM GUI VERSION with new build number for AntiCoagulate.exe.

 +5        DO EN^XPAR("SYS","ORAM GUI VERSION",,"1.0.489.2")

 +6       ;

 +7        DO MES^XPDUTL(" OR*3.0*489 Post Init complete")

 +8       ;

 +9        QUIT 

ROLLBACK  ;

 +1        DO MES^XPDUTL("OR*3.0*489 Rollback starting....updating Parameters...")

 +2       ;

 +3       ; Revert ORAM GUI VERSION to previous build number for AntiCoagulate.exe.

 +4        DO EN^XPAR("SYS","ORAM GUI VERSION",,"@")

 +5        DO DEL^XPAR("SYS","ORAM GUI VERSION")

 +6       ;

 +7        DO MES^XPDUTL(" OR*3.0*489 Rollback complete")

 +8       ;

 +9        QUIT