source: WorldVistAEHR/trunk/r/GEN_MED_OTHER-GMV/GMVVDEFK.m@ 1780

Last change on this file since 1780 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1GMVVDEFK ;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 ;
13POSTKID ; 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
Note: See TracBrowser for help on using the repository browser.