- 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 Feb 18, 2025@23:57:05 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
