Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMVVDEFK

GMVVDEFK.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ; This routine uses the following IAs:
  1. ; #4447 - POSTKID^VDEF (controlled)
  1. ; #10141 - XPDUTL calls (controlled)
  1. ;
  1. ; This program is used as the KIDS Post-Install routine
  1. ; for the second VDEF patch that installs GMV application
  1. ; specific components that are required by VDEF to construct
  1. ; a message.
  1. ;
  1. POSTKID ; Entry point
  1. ; Inputs that are required by POSTKID^VDEFVU:
  1. ; MSGTYP - HL7 message type (ADT, ORU, etc)
  1. ; EVNTYP - HL7 event type (A60, R01, etc)
  1. ; SUBTYP - VDEF Event Subtype (ALGY, PPAR, etc)
  1. ; PROTO - VistA HL7 Event Driver Protocol Name
  1. ; CUSTPKG - Custodial Package Name
  1. ; EXTROUT - VDEF Message Extraction Program
  1. ; EVDESC - Event description
  1. ; SUBDESC - Subtype description (Required only if new subtype)
  1. ;
  1. ; If needed, POSTKID^VDEFVU will generate error message (BMES^XPDUTL)
  1. ; and set KIDABORT=1
  1. ;
  1. K XPDABORT
  1. I $G(XPDNM)="" D BMES^XPDUTL("Must be run as a KIDS Post-Install process.") S XPDABORT=1 Q
  1. N MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,ERRMSG,KIDABORT
  1. ;
  1. ; Create Vitals Event
  1. S MSGTYP="ORU"
  1. S EVNTYP="R01"
  1. S SUBTYP="VTLS"
  1. S EXTROUT="GMVVDEF1"
  1. S PROTO="GMRV ORU R01 VITALS VS"
  1. S CUSTPKG="GEN. MED. REC. - VITALS"
  1. S EVDESC="PATIENT VITALS"
  1. S SUBDESC="VITALS MEASUREMENTS"
  1. ;D POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)
  1. Q:$G(KIDABORT)
  1. ;
  1. ; Success!!
  1. D BMES^XPDUTL("VDEF Event(s) successfully installed in VDEF globals.")
  1. Q