MDPOST5 ; HOIFO/NCA - Post-Init Routine ; [04-14-2003 10:51]
;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1
; Reference IA # 1157 [Supported] Kernel XPDMENU calls.
EN1 ; [Procedure]
; If the patch Medicine is not installed disable the conversion
; options.
;
N MDPKG
S MDPKG=$$FIND1^DIC(9.4,"","MX","MEDICINE") Q:+MDPKG
N MDFDA,MDPI,MDOPI,MDOPT,MDX
F MDX=1:1 S MDOPT=$P($T(OPTIONS+MDX),";;",2) Q:MDOPT="**END**" D
.Q:MDOPT=""
.S MDPI=$$FIND1^DIC(19,"","MX",MDOPT) Q:'MDPI
.D OUT^XPDMENU(MDOPT,"Out of Order")
.Q
Q
;
OPTIONS ; [MD Conversion Options]
;;MDCVT SETUP
;;MDCVT BUILD CONVERSION LIST
;;MDCVT RUN
;;MDCVT SUMMARY
;;MDCVT DISK SPACE
;;MDCVT LIST OF TIU TITLES
;;MDCVT TOTALS
;;MDCVT ERROR LOG
;;MDCVT CONVERSION LOCKOUT
;;MDCVT MANAGER
;;**END**
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDPOST5 820 printed Dec 13, 2024@01:43:26 Page 2
MDPOST5 ; HOIFO/NCA - Post-Init Routine ; [04-14-2003 10:51]
+1 ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1
+2 ; Reference IA # 1157 [Supported] Kernel XPDMENU calls.
EN1 ; [Procedure]
+1 ; If the patch Medicine is not installed disable the conversion
+2 ; options.
+3 ;
+4 NEW MDPKG
+5 SET MDPKG=$$FIND1^DIC(9.4,"","MX","MEDICINE")
if +MDPKG
QUIT
+6 NEW MDFDA,MDPI,MDOPI,MDOPT,MDX
+7 FOR MDX=1:1
SET MDOPT=$PIECE($TEXT(OPTIONS+MDX),";;",2)
if MDOPT="**END**"
QUIT
Begin DoDot:1
+8 if MDOPT=""
QUIT
+9 SET MDPI=$$FIND1^DIC(19,"","MX",MDOPT)
if 'MDPI
QUIT
+10 DO OUT^XPDMENU(MDOPT,"Out of Order")
+11 QUIT
End DoDot:1
+12 QUIT
+13 ;
OPTIONS ; [MD Conversion Options]
+1 ;;MDCVT SETUP
+2 ;;MDCVT BUILD CONVERSION LIST
+3 ;;MDCVT RUN
+4 ;;MDCVT SUMMARY
+5 ;;MDCVT DISK SPACE
+6 ;;MDCVT LIST OF TIU TITLES
+7 ;;MDCVT TOTALS
+8 ;;MDCVT ERROR LOG
+9 ;;MDCVT CONVERSION LOCKOUT
+10 ;;MDCVT MANAGER
+11 ;;**END**
+12 QUIT
