| 1 | GMVVDEFK ;BPOIFO/JG,HIOFO/FT - KIDS POST INSTALL FOR VDEF PATCH ; 04 Oct 2004 3:16 PM
|
|---|
| 2 | ;;5.0;GEN. MED. REC. - VITALS;**5**;Oct 31, 2002
|
|---|
| 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 GMV 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 (Required only if new subtype)
|
|---|
| 23 | ;
|
|---|
| 24 | ; If needed, POSTKID^VDEFVU will generate error message (BMES^XPDUTL)
|
|---|
| 25 | ; and set KIDABORT=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,KIDABORT
|
|---|
| 30 | ;
|
|---|
| 31 | ; Create Vitals Event
|
|---|
| 32 | S MSGTYP="ORU"
|
|---|
| 33 | S EVNTYP="R01"
|
|---|
| 34 | S SUBTYP="VTLS"
|
|---|
| 35 | S EXTROUT="GMVVDEF1"
|
|---|
| 36 | S PROTO="GMRV ORU R01 VITALS VS"
|
|---|
| 37 | S CUSTPKG="GEN. MED. REC. - VITALS"
|
|---|
| 38 | S EVDESC="PATIENT VITALS"
|
|---|
| 39 | S SUBDESC="VITALS MEASUREMENTS"
|
|---|
| 40 | D POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)
|
|---|
| 41 | Q:$G(KIDABORT)
|
|---|
| 42 | ;
|
|---|
| 43 | ; Success!!
|
|---|
| 44 | D BMES^XPDUTL("VDEF Event(s) successfully installed in VDEF globals.")
|
|---|
| 45 | Q
|
|---|
