ORY598.m

ORY598 ;SLCOIFO/JLC - Post-init for patch OR*3*598 ;Dec 20, 2022@12:07:20

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**598**;Dec 17, 1997;Build 5

 ;

 ; Reference to updating MENU TEXT in OPTION file in ICR #7397

POST ; initiate post-init processes

 ;

 D BMES^XPDUTL("Updating CPRS Chart version number...")

 N DA,DIE,VERSNUM,DR

 S DA=$O(^DIC(19,"B","OR CPRS GUI CHART","")) Q:DA'>0

 ;Change to versnum to store the new version number

 S VERSNUM="CPRSChart version 1.32.221.1"

 S DIE="^DIC(19,",DR="1////^S X=VERSNUM" D ^DIE

 D BMES^XPDUTL("Version number set to 1.32.221.1")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ORY598   586     printed  Apr 09, 2024@21:25:55                                                                                                                                                                                                       Page 2

ORY598    ;SLCOIFO/JLC - Post-init for patch OR*3*598 ;Dec 20, 2022@12:07:20

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**598**;Dec 17, 1997;Build 5

 +2       ;

 +3       ; Reference to updating MENU TEXT in OPTION file in ICR #7397

POST      ; initiate post-init processes

 +1       ;

 +2        DO BMES^XPDUTL("Updating CPRS Chart version number...")

 +3        NEW DA,DIE,VERSNUM,DR

 +4        SET DA=$ORDER(^DIC(19,"B","OR CPRS GUI CHART",""))

           if DA'>0

               QUIT 

 +5       ;Change to versnum to store the new version number

 +6        SET VERSNUM="CPRSChart version 1.32.221.1"

 +7        SET DIE="^DIC(19,"

           SET DR="1////^S X=VERSNUM"

           DO ^DIE

 +8        DO BMES^XPDUTL("Version number set to 1.32.221.1")

 +9        QUIT