GMPLY42.m

GMPLY42 ;ISL/TC - Post-install for GMPL*2.0*42 ;05/21/14  07:26

 ;;2.0;Problem List;**42**;Aug 25,1994;Build 46

 ;

PRE ; Pre-install subroutine

 ;Remove the old data dictionary for the PROBLEM File (#9000011)

 N DIU

 D BMES^XPDUTL(" Removing old Problem File data dictionary.")

 S DIU(0)=""

 S DIU=9000011

 D EN^DIU2

 D MES^XPDUTL(" Data dictionary for file #9000011 removed...")

 Q

POST ; Post-install subroutine

 N GMPLTXT,I,GMPLOPT

 S GMPLTXT="This option has been disabled due to the Problem List SNOMED CT implementation."

 F I=1:1:4  D

 . S GMPLOPT=$S(I=1:"GMPL BUILD ENC FORM LIST",I=2:"GMPL USER LOOK-UP FILTER",I=3:"GMPL USER LOOK-UP DISPLAY",1:"GMPL USER LOOK-UP VOCABULARY")

 . D BMES^XPDUTL(" Disabling menu option "_GMPLOPT_".")

 . D OUT^XPDMENU(GMPLOPT,GMPLTXT)

 . Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMPLY42   805     printed  Apr 09, 2024@21:32:36                                                                                                                                                                                                      Page 2

GMPLY42   ;ISL/TC - Post-install for GMPL*2.0*42 ;05/21/14  07:26

 +1       ;;2.0;Problem List;**42**;Aug 25,1994;Build 46

 +2       ;

PRE       ; Pre-install subroutine

 +1       ;Remove the old data dictionary for the PROBLEM File (#9000011)

 +2        NEW DIU

 +3        DO BMES^XPDUTL(" Removing old Problem File data dictionary.")

 +4        SET DIU(0)=""

 +5        SET DIU=9000011

 +6        DO EN^DIU2

 +7        DO MES^XPDUTL(" Data dictionary for file #9000011 removed...")

 +8        QUIT 

POST      ; Post-install subroutine

 +1        NEW GMPLTXT,I,GMPLOPT

 +2        SET GMPLTXT="This option has been disabled due to the Problem List SNOMED CT implementation."

 +3        FOR I=1:1:4

               Begin DoDot:1

 +4                SET GMPLOPT=$SELECT(I=1:"GMPL BUILD ENC FORM LIST",I=2:"GMPL USER LOOK-UP FILTER",I=3:"GMPL USER LOOK-UP DISPLAY",1:"GMPL USER LOOK-UP VOCABULARY")

 +5                DO BMES^XPDUTL(" Disabling menu option "_GMPLOPT_".")

 +6                DO OUT^XPDMENU(GMPLOPT,GMPLTXT)

 +7                QUIT 

               End DoDot:1

 +8        QUIT