Routine: GMRCY73

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

POST ;post install for patch GMRC*3.0*73

 D PROVDIAG

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCY73   603     printed  Mar 13, 2025@20:52:27                                                                                                                                                                                                      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

GMRCY73.m