MC43PST.m

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 ---MC43PST   877     printed  Apr 09, 2024@21:18:38                                                                                                                                                                                                      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