MDPOST5.m

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 ---MDPOST5   820     printed  Apr 09, 2024@20:48:21                                                                                                                                                                                                      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