ORY639 ;SLC/AGP/ - PRE/POST INSTALL OR*3.0*639 ;Jul 08, 2026@11:34:19
;;3.0;ORDER ENTRY/RESULTS REPORTING;**639**;Dec 17, 1997;Build 4
;
; Reference to $$LKOPT^XPDMENU in ICR #1157
; Reference to XPDUTL in ICR #10141
; Reference to ^DIE in ICR #10018
; Reference to ^DIC(19 in ICR #7397
;
Q
;
PRE ;
N DA,DIE,DR,Y
S DA=$$LKOPT^XPDMENU("OR CPRS GUI CHART")
I DA<1 D BMES^XPDUTL("OR CPRS GUI CHART, option not found.") Q
S DIE="^DIC(19,",DR="1///CPRSChart version 1.33.214.5"
D ^DIE
Q
;
POST ;
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY639 534 printed Oct 28, 2026@01:37:46 Page 2
ORY639 ;SLC/AGP/ - PRE/POST INSTALL OR*3.0*639 ;Jul 08, 2026@11:34:19
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**639**;Dec 17, 1997;Build 4
+2 ;
+3 ; Reference to $$LKOPT^XPDMENU in ICR #1157
+4 ; Reference to XPDUTL in ICR #10141
+5 ; Reference to ^DIE in ICR #10018
+6 ; Reference to ^DIC(19 in ICR #7397
+7 ;
+8 QUIT
+9 ;
PRE ;
+1 NEW DA,DIE,DR,Y
+2 SET DA=$$LKOPT^XPDMENU("OR CPRS GUI CHART")
+3 IF DA<1
DO BMES^XPDUTL("OR CPRS GUI CHART, option not found.")
QUIT
+4 SET DIE="^DIC(19,"
SET DR="1///CPRSChart version 1.33.214.5"
+5 DO ^DIE
+6 QUIT
+7 ;
POST ;
+1 QUIT
+2 ;
