| 1 | GMRAIVDK ;BPOIFO/JG - KIDS POST INSTALL FOR VDEF PATCH ;10/5/04 08:57
|
|---|
| 2 | ;;4.0;ADVERSE REACTION TRACKING;**22,23**;Mar 29, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine uses the following IAs:
|
|---|
| 5 | ; #4447 - POSTKID^VDEF (controlled)
|
|---|
| 6 | ; #10141 - XPDUTL calls (controlled)
|
|---|
| 7 | ;
|
|---|
| 8 | ; This program is used as the KIDS Post-Install routine
|
|---|
| 9 | ; for the second VDEF patch that installs GMRA application
|
|---|
| 10 | ; specific components that are required by VDEF to construct
|
|---|
| 11 | ; a message.
|
|---|
| 12 | ;
|
|---|
| 13 | POSTKID ; Entry point
|
|---|
| 14 | ; Inputs that are required by POSTKID^VDEFVU:
|
|---|
| 15 | ; MSGTYP - HL7 message type (ADT, ORU, etc)
|
|---|
| 16 | ; EVNTYP - HL7 event type (A60, R01, etc)
|
|---|
| 17 | ; SUBTYP - VDEF Event Subtype (ALGY, PPAR, etc)
|
|---|
| 18 | ; PROTO - VistA HL7 Event Driver Protocol Name
|
|---|
| 19 | ; CUSTPKG - Custodial Package Name
|
|---|
| 20 | ; EXTROUT - VDEF Message Extraction Program
|
|---|
| 21 | ; EVDESC - Event description
|
|---|
| 22 | ; SUBDESC - Subtype description
|
|---|
| 23 | ;
|
|---|
| 24 | ; If needed, POSTKID^VDEFVU will generate error message (BMES^XPDUTL)
|
|---|
| 25 | ; and set GMRABORT=1
|
|---|
| 26 | ;
|
|---|
| 27 | K XPDABORT
|
|---|
| 28 | I $G(XPDNM)="" D BMES^XPDUTL("Must be run as a KIDS Post-Install process.") S XPDABORT=1 Q
|
|---|
| 29 | N MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,ERRMSG,GMRABORT
|
|---|
| 30 | ;
|
|---|
| 31 | ; Create Allergy Update/Insert Event
|
|---|
| 32 | S MSGTYP="ORU"
|
|---|
| 33 | S EVNTYP="R01"
|
|---|
| 34 | S SUBTYP="ALGY"
|
|---|
| 35 | S PROTO="GMRA VDEF ORU R01 ALLERGY VS"
|
|---|
| 36 | S CUSTPKG="ADVERSE REACTION TRACKING"
|
|---|
| 37 | S EXTROUT="GMRAIAL1"
|
|---|
| 38 | S EVDESC="ALLERGY UPDATE/INSERT"
|
|---|
| 39 | S SUBDESC="ALLERGY UPDATE/INSERT"
|
|---|
| 40 | D POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.GMRABORT)
|
|---|
| 41 | Q:$G(GMRABORT)
|
|---|
| 42 | ;
|
|---|
| 43 | ; Create Allergy Assessment Event
|
|---|
| 44 | S SUBTYP="ADAS"
|
|---|
| 45 | S PROTO="GMRA VDEF ORU R01 ADV ASSESS VS"
|
|---|
| 46 | S EVDESC="ALLERGY ASSESSMENT"
|
|---|
| 47 | S SUBDESC="ALLERGY ASSESSMENT"
|
|---|
| 48 | D POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.GMRABORT)
|
|---|
| 49 | Q:$G(GMRABORT)
|
|---|
| 50 | ;
|
|---|
| 51 | ; Create Adverse Reaction Report Event
|
|---|
| 52 | S SUBTYP="ADRA"
|
|---|
| 53 | S PROTO="GMRA VDEF ORU R01 ADV REACT VS"
|
|---|
| 54 | S EXTROUT="GMRAIAD1"
|
|---|
| 55 | S EVDESC="ADVERSE REACTION REPORT"
|
|---|
| 56 | S SUBDESC="ADVERSE REACTION"
|
|---|
| 57 | D POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.GMRABORT)
|
|---|
| 58 | Q:$G(GMRABORT)
|
|---|
| 59 | ;
|
|---|
| 60 | ; Success!!
|
|---|
| 61 | D BMES^XPDUTL("VDEF Event(s) successfully installed in VDEF globals.")
|
|---|
| 62 | Q
|
|---|
