- 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 Apr 23, 2025@17:57:53 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
