MC43PST ;ALB/JAM - MEDICINE RHEUMATOLOGY OPTIONS ;3/5/13 12:45
;;2.3;Medicine;**43**;09/13/1996;Build 8
;
;This post install routine(s) will place the Rheumatology menu option,
;"Line Enter/Edit" and its sub-menu options out of order.
;
EN ;Patch entry point
N ZTRTN,ZTDESC,ZTIO,ZTDTH,ZTREQ,ZTSAVE
D MES^XPDUTL(" ")
D BMES^XPDUTL("This patch places the Rheumatology menu option, Line Enter/Edit Menu[MCRHMENULIN]")
D MES^XPDUTL("and its sub-menu options out of order.")
D MES^XPDUTL(" ") H 2
D OUT^XPDMENU("MCRHMENULIN","OUT OF ORDER")
D OUT^XPDMENU("MCRHDIAGL","OUT OF ORDER")
D OUT^XPDMENU("MCRHNARRL","OUT OF ORDER")
D OUT^XPDMENU("MCRHHAQL","OUT OF ORDER")
D OUT^XPDMENU("MCRHPATHISTL","OUT OF ORDER")
D OUT^XPDMENU("MCRHPHYSL","OUT OF ORDER")
D OUT^XPDMENU("MCRHDEATHL","OUT OF ORDER")
D OUT^XPDMENU("MCRHBRIEF","OUT OF ORDER")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMC43PST 877 printed Dec 13, 2024@02:11:21 Page 2
MC43PST ;ALB/JAM - MEDICINE RHEUMATOLOGY OPTIONS ;3/5/13 12:45
+1 ;;2.3;Medicine;**43**;09/13/1996;Build 8
+2 ;
+3 ;This post install routine(s) will place the Rheumatology menu option,
+4 ;"Line Enter/Edit" and its sub-menu options out of order.
+5 ;
EN ;Patch entry point
+1 NEW ZTRTN,ZTDESC,ZTIO,ZTDTH,ZTREQ,ZTSAVE
+2 DO MES^XPDUTL(" ")
+3 DO BMES^XPDUTL("This patch places the Rheumatology menu option, Line Enter/Edit Menu[MCRHMENULIN]")
+4 DO MES^XPDUTL("and its sub-menu options out of order.")
+5 DO MES^XPDUTL(" ")
HANG 2
+6 DO OUT^XPDMENU("MCRHMENULIN","OUT OF ORDER")
+7 DO OUT^XPDMENU("MCRHDIAGL","OUT OF ORDER")
+8 DO OUT^XPDMENU("MCRHNARRL","OUT OF ORDER")
+9 DO OUT^XPDMENU("MCRHHAQL","OUT OF ORDER")
+10 DO OUT^XPDMENU("MCRHPATHISTL","OUT OF ORDER")
+11 DO OUT^XPDMENU("MCRHPHYSL","OUT OF ORDER")
+12 DO OUT^XPDMENU("MCRHDEATHL","OUT OF ORDER")
+13 DO OUT^XPDMENU("MCRHBRIEF","OUT OF ORDER")
+14 QUIT
