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 ---[H[J[2J[HGMPLY42 805 printed Dec 13, 2024@02:30: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
