- GMVVDEFK ;BPOIFO/JG,HIOFO/FT - KIDS POST INSTALL FOR VDEF PATCH ; 04 Oct 2004 3:16 PM
- ;;5.0;GEN. MED. REC. - VITALS;**5**;Oct 31, 2002
- ;
- ; This routine uses the following IAs:
- ; #4447 - POSTKID^VDEF (controlled)
- ; #10141 - XPDUTL calls (controlled)
- ;
- ; This program is used as the KIDS Post-Install routine
- ; for the second VDEF patch that installs GMV application
- ; specific components that are required by VDEF to construct
- ; a message.
- ;
- POSTKID ; Entry point
- ; Inputs that are required by POSTKID^VDEFVU:
- ; MSGTYP - HL7 message type (ADT, ORU, etc)
- ; EVNTYP - HL7 event type (A60, R01, etc)
- ; SUBTYP - VDEF Event Subtype (ALGY, PPAR, etc)
- ; PROTO - VistA HL7 Event Driver Protocol Name
- ; CUSTPKG - Custodial Package Name
- ; EXTROUT - VDEF Message Extraction Program
- ; EVDESC - Event description
- ; SUBDESC - Subtype description (Required only if new subtype)
- ;
- ; If needed, POSTKID^VDEFVU will generate error message (BMES^XPDUTL)
- ; and set KIDABORT=1
- ;
- K XPDABORT
- I $G(XPDNM)="" D BMES^XPDUTL("Must be run as a KIDS Post-Install process.") S XPDABORT=1 Q
- N MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,ERRMSG,KIDABORT
- ;
- ; Create Vitals Event
- S MSGTYP="ORU"
- S EVNTYP="R01"
- S SUBTYP="VTLS"
- S EXTROUT="GMVVDEF1"
- S PROTO="GMRV ORU R01 VITALS VS"
- S CUSTPKG="GEN. MED. REC. - VITALS"
- S EVDESC="PATIENT VITALS"
- S SUBDESC="VITALS MEASUREMENTS"
- ;D POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)
- Q:$G(KIDABORT)
- ;
- ; Success!!
- D BMES^XPDUTL("VDEF Event(s) successfully installed in VDEF globals.")
- Q
- GMVVDEFK ;BPOIFO/JG,HIOFO/FT - KIDS POST INSTALL FOR VDEF PATCH ; 04 Oct 2004 3:16 PM
- +1 ;;5.0;GEN. MED. REC. - VITALS;**5**;Oct 31, 2002
- +2 ;
- +3 ; This routine uses the following IAs:
- +4 ; #4447 - POSTKID^VDEF (controlled)
- +5 ; #10141 - XPDUTL calls (controlled)
- +6 ;
- +7 ; This program is used as the KIDS Post-Install routine
- +8 ; for the second VDEF patch that installs GMV application
- +9 ; specific components that are required by VDEF to construct
- +10 ; a message.
- +11 ;
- POSTKID ; Entry point
- +1 ; Inputs that are required by POSTKID^VDEFVU:
- +2 ; MSGTYP - HL7 message type (ADT, ORU, etc)
- +3 ; EVNTYP - HL7 event type (A60, R01, etc)
- +4 ; SUBTYP - VDEF Event Subtype (ALGY, PPAR, etc)
- +5 ; PROTO - VistA HL7 Event Driver Protocol Name
- +6 ; CUSTPKG - Custodial Package Name
- +7 ; EXTROUT - VDEF Message Extraction Program
- +8 ; EVDESC - Event description
- +9 ; SUBDESC - Subtype description (Required only if new subtype)
- +10 ;
- +11 ; If needed, POSTKID^VDEFVU will generate error message (BMES^XPDUTL)
- +12 ; and set KIDABORT=1
- +13 ;
- +14 KILL XPDABORT
- +15 IF $GET(XPDNM)=""
- DO BMES^XPDUTL("Must be run as a KIDS Post-Install process.")
- SET XPDABORT=1
- QUIT
- +16 NEW MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,ERRMSG,KIDABORT
- +17 ;
- +18 ; Create Vitals Event
- +19 SET MSGTYP="ORU"
- +20 SET EVNTYP="R01"
- +21 SET SUBTYP="VTLS"
- +22 SET EXTROUT="GMVVDEF1"
- +23 SET PROTO="GMRV ORU R01 VITALS VS"
- +24 SET CUSTPKG="GEN. MED. REC. - VITALS"
- +25 SET EVDESC="PATIENT VITALS"
- +26 SET SUBDESC="VITALS MEASUREMENTS"
- +27 ;D POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)
- +28 IF $GET(KIDABORT)
- QUIT
- +29 ;
- +30 ; Success!!
- +31 DO BMES^XPDUTL("VDEF Event(s) successfully installed in VDEF globals.")
- +32 QUIT