Routine: GMRCYP27

GMRCYP27 ;SLC/JFR - Post-Install GMRC*3*27 ; 6/21/02 10:19

 ;;3.0;CONSULT/REQUEST TRACKING;**27**;DEC 27, 1997

POST ;post intstall entry point

 N GMRCXDT

 S GMRCXDT=" "

 F  S GMRCXDT=$O(^GMR(123,"E",GMRCXDT)) Q:'+GMRCXDT  D

 . N GMRCIEN

 . S GMRCIEN=0

 . F  S GMRCIEN=$O(^GMR(123,"E",GMRCXDT,GMRCIEN)) Q:'GMRCIEN  D

 .. N DIE,DA,DR,GMRCRDT

 .. S GMRCRDT=$P(^GMR(123,GMRCIEN,0),U,7)

 .. S DIE="^GMR(123,",DA=GMRCIEN,DR="3///^S X=GMRCRDT"

 .. D ^DIE

 .. Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCYP27   472     printed  Feb 18, 2025@23:14:15                                                                                                                                                                                                     Page 2

GMRCYP27  ;SLC/JFR - Post-Install GMRC*3*27 ; 6/21/02 10:19

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**27**;DEC 27, 1997

POST      ;post intstall entry point

 +1        NEW GMRCXDT

 +2        SET GMRCXDT=" "

 +3        FOR

               SET GMRCXDT=$ORDER(^GMR(123,"E",GMRCXDT))

               if '+GMRCXDT

                   QUIT

               Begin DoDot:1

 +4                NEW GMRCIEN

 +5                SET GMRCIEN=0

 +6                FOR

                       SET GMRCIEN=$ORDER(^GMR(123,"E",GMRCXDT,GMRCIEN))

                       if 'GMRCIEN

                           QUIT

                       Begin DoDot:2

 +7                        NEW DIE,DA,DR,GMRCRDT

 +8                        SET GMRCRDT=$PIECE(^GMR(123,GMRCIEN,0),U,7)

 +9                        SET DIE="^GMR(123,"

                           SET DA=GMRCIEN

                           SET DR="3///^S X=GMRCRDT"

 +10                       DO ^DIE

 +11                       QUIT

                       End DoDot:2

               End DoDot:1

 +12       QUIT

GMRCYP27.m