- GMPLY40 ;ISP/TC - Pre/Post Install Routine for GMPL*2.0*40 ;01/14/16 13:47
- ;;2.0;Problem List;**40**;Aug 25, 1994;Build 9
- ;
- POST ; Post-install subroutine
- ;
- ; Scan Problem file for SCT in Diagnosis field errors
- D EN^GMPLCLNP
- ; Scan Problem file for incorrect mapping (SCT 428283002, ICD-9 V15.89)
- D EN1^GMPLCLNP
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMPLY40 333 printed Mar 13, 2025@21:35:22 Page 2
- GMPLY40 ;ISP/TC - Pre/Post Install Routine for GMPL*2.0*40 ;01/14/16 13:47
- +1 ;;2.0;Problem List;**40**;Aug 25, 1994;Build 9
- +2 ;
- POST ; Post-install subroutine
- +1 ;
- +2 ; Scan Problem file for SCT in Diagnosis field errors
- +3 DO EN^GMPLCLNP
- +4 ; Scan Problem file for incorrect mapping (SCT 428283002, ICD-9 V15.89)
- +5 DO EN1^GMPLCLNP
- +6 QUIT