Routine: GMRAP064

GMRAP064 ;ISP/RFR - PATCH 53 INSTALL CODE ;Dec 04, 2020@11:32

 ;;4.0;Adverse Reaction Tracking;**64**;Mar 29, 1996;Build 2

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)

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)

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

GMRAP064.m