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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCYP27 472 printed Dec 13, 2024@01:47:52 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
