GMRAP064 ;ISP/RFR - PATCH 53 INSTALL CODE ;Dec 04, 2020@11:32
;;4.0;Adverse Reaction Tracking;**64**;Mar 29, 1996;Build 2
Q
POST ;POST-INSTALLATION
D BMES^XPDUTL(" Creating new-style index AC...")
N GMRAXR,GMRARES,GMRAOUT
S GMRAXR("FILE")=120.86
S GMRAXR("NAME")="AC"
S GMRAXR("TYPE")="MU"
S GMRAXR("USE")="A"
S GMRAXR("EXECUTION")="R"
S GMRAXR("SHORT DESCR")="Notify packages when an entry is acted upon."
S GMRAXR("DESCR",1)="This cross-reference will notify subscribing packages via protocol GMRA "
S GMRAXR("DESCR",2)="ASSESSMENT CHANGE when an entry in this file is added, modified or "
S GMRAXR("DESCR",3)="removed."
S GMRAXR("SET")="D ASSESS^GMRAVPR(.X1,.X2,.DA,""SET"")"
S GMRAXR("KILL")="D ASSESS^GMRAVPR(.X1,.X2,.DA,""KILL"")"
S GMRAXR("VAL",1)=.01
S GMRAXR("VAL",1,"COLLATION")="F"
S GMRAXR("VAL",2)=1
S GMRAXR("VAL",2,"COLLATION")="F"
S GMRAXR("VAL",3)=2
S GMRAXR("VAL",3,"COLLATION")="F"
S GMRAXR("VAL",4)=3
S GMRAXR("VAL",4,"COLLATION")="F"
D CREIXN^DDMOD(.GMRAXR,"W",.GMRARES,"GMRAOUT"),CHECK(.GMRARES)
Q
CHECK(RESULT) ;CHECK STATUS OF INDEX CREATION
N MESSAGE,LINE,OUTPUT
I RESULT="" D
.S MESSAGE(1)=" Index creation failed;"
.D MSG^DIALOG("AE",.OUTPUT,75)
.S LINE=0 F S LINE=$O(OUTPUT(LINE)) Q:'+LINE S MESSAGE(LINE+1)=" "_OUTPUT(LINE)
I +RESULT>0 S MESSAGE(1)=" Index creation succeeded"
D MES^XPDUTL(.MESSAGE)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRAP064 1412 printed Nov 22, 2024@16:50 Page 2
GMRAP064 ;ISP/RFR - PATCH 53 INSTALL CODE ;Dec 04, 2020@11:32
+1 ;;4.0;Adverse Reaction Tracking;**64**;Mar 29, 1996;Build 2
+2 QUIT
POST ;POST-INSTALLATION
+1 DO BMES^XPDUTL(" Creating new-style index AC...")
+2 NEW GMRAXR,GMRARES,GMRAOUT
+3 SET GMRAXR("FILE")=120.86
+4 SET GMRAXR("NAME")="AC"
+5 SET GMRAXR("TYPE")="MU"
+6 SET GMRAXR("USE")="A"
+7 SET GMRAXR("EXECUTION")="R"
+8 SET GMRAXR("SHORT DESCR")="Notify packages when an entry is acted upon."
+9 SET GMRAXR("DESCR",1)="This cross-reference will notify subscribing packages via protocol GMRA "
+10 SET GMRAXR("DESCR",2)="ASSESSMENT CHANGE when an entry in this file is added, modified or "
+11 SET GMRAXR("DESCR",3)="removed."
+12 SET GMRAXR("SET")="D ASSESS^GMRAVPR(.X1,.X2,.DA,""SET"")"
+13 SET GMRAXR("KILL")="D ASSESS^GMRAVPR(.X1,.X2,.DA,""KILL"")"
+14 SET GMRAXR("VAL",1)=.01
+15 SET GMRAXR("VAL",1,"COLLATION")="F"
+16 SET GMRAXR("VAL",2)=1
+17 SET GMRAXR("VAL",2,"COLLATION")="F"
+18 SET GMRAXR("VAL",3)=2
+19 SET GMRAXR("VAL",3,"COLLATION")="F"
+20 SET GMRAXR("VAL",4)=3
+21 SET GMRAXR("VAL",4,"COLLATION")="F"
+22 DO CREIXN^DDMOD(.GMRAXR,"W",.GMRARES,"GMRAOUT")
DO CHECK(.GMRARES)
+23 QUIT
CHECK(RESULT) ;CHECK STATUS OF INDEX CREATION
+1 NEW MESSAGE,LINE,OUTPUT
+2 IF RESULT=""
Begin DoDot:1
+3 SET MESSAGE(1)=" Index creation failed;"
+4 DO MSG^DIALOG("AE",.OUTPUT,75)
+5 SET LINE=0
FOR
SET LINE=$ORDER(OUTPUT(LINE))
if '+LINE
QUIT
SET MESSAGE(LINE+1)=" "_OUTPUT(LINE)
End DoDot:1
+6 IF +RESULT>0
SET MESSAGE(1)=" Index creation succeeded"
+7 DO MES^XPDUTL(.MESSAGE)
+8 QUIT
