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 Nov 22, 2024@17:40:36 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