GMRCY73 ;SLC/JMH,WAT - ICD10 PATCH POST INSTALL ;12/12/13 10:54
;;3.0;CONSULT/REQUEST TRACKING;**73**;DEC 27,1997;Build 22
;
;;UPDATE^XPDID, ICR #2172
Q
POST ;post install for patch GMRC*3.0*73
D PROVDIAG
Q
;
PROVDIAG ;script to update the provisional diagnosis
N GMRCI,GMRCSYS,XPDIDTOT
S XPDIDTOT=$P(^GMR(123,0),U,4)
S GMRCI=0,GMRCSYS="ICD"
F S GMRCI=$O(^GMR(123,GMRCI)) Q:'GMRCI D
.I $D(^GMR(123,GMRCI,30.1)) D
..N GMRCDT
..S GMRCDT=+^GMR(123,GMRCI,0)
..S $P(^GMR(123,GMRCI,30.1),U,2,3)=GMRCDT_U_GMRCSYS
..D UPDATE^XPDID(GMRCI)
D UPDATE^XPDID(XPDIDTOT) H 1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCY73 603 printed Sep 23, 2025@19:23:51 Page 2
GMRCY73 ;SLC/JMH,WAT - ICD10 PATCH POST INSTALL ;12/12/13 10:54
+1 ;;3.0;CONSULT/REQUEST TRACKING;**73**;DEC 27,1997;Build 22
+2 ;
+3 ;;UPDATE^XPDID, ICR #2172
+4 QUIT
POST ;post install for patch GMRC*3.0*73
+1 DO PROVDIAG
+2 QUIT
+3 ;
PROVDIAG ;script to update the provisional diagnosis
+1 NEW GMRCI,GMRCSYS,XPDIDTOT
+2 SET XPDIDTOT=$PIECE(^GMR(123,0),U,4)
+3 SET GMRCI=0
SET GMRCSYS="ICD"
+4 FOR
SET GMRCI=$ORDER(^GMR(123,GMRCI))
if 'GMRCI
QUIT
Begin DoDot:1
+5 IF $DATA(^GMR(123,GMRCI,30.1))
Begin DoDot:2
+6 NEW GMRCDT
+7 SET GMRCDT=+^GMR(123,GMRCI,0)
+8 SET $PIECE(^GMR(123,GMRCI,30.1),U,2,3)=GMRCDT_U_GMRCSYS
+9 DO UPDATE^XPDID(GMRCI)
End DoDot:2
End DoDot:1
+10 DO UPDATE^XPDID(XPDIDTOT)
HANG 1
+11 QUIT
