64 lines
2.2 KiB
Mathematica
64 lines
2.2 KiB
Mathematica
PSOVDFK ;BPOIFO/JG-KIDS POST INSTALL FOR VDEF PATCH ;10/05/04
|
|
;;7.0;OUTPATIENT PHARMACY;**190**;DEC 1997
|
|
;
|
|
; 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 PSO 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 (RDE, RDS, etc)
|
|
; EVNTYP - HL7 event type (O11, O13, etc)
|
|
; SUBTYP - VDEF Event Subtype (PRES, PPAR, PREF 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 OP Pharm Prescription Event
|
|
S MSGTYP="RDE"
|
|
S EVNTYP="O11"
|
|
S SUBTYP="PRES"
|
|
S PROTO="PSO VDEF RDE O11 OP PHARM PRES VS"
|
|
S CUSTPKG="OUTPATIENT PHARMACY"
|
|
S EXTROUT="PSOVDF1"
|
|
S EVDESC="OP PHARM PRESCRIPTION"
|
|
S SUBDESC="OP PHARMACY PRESCRIPTION"
|
|
D POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)
|
|
Q:$G(KIDABORT)
|
|
;
|
|
; Create OP Pharm Prescription Partial Event
|
|
S MSGTYP="RDS"
|
|
S EVNTYP="O13"
|
|
S SUBTYP="PPAR"
|
|
S PROTO="PSO VDEF RDS O13 OP PHARM PPAR VS"
|
|
S EVDESC="OP PHARM PRESCRIPTION PARTIAL"
|
|
S SUBDESC="OP PHARMACY PRESCRIPTION PARTIAL"
|
|
D POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)
|
|
Q:$G(KIDABORT)
|
|
;
|
|
; Create OP Pharm Prescription Refill Event
|
|
S SUBTYP="PREF"
|
|
S PROTO="PSO VDEF RDS O13 OP PHARM PREF VS"
|
|
S EVDESC="OP PHARM PRESCRIPTION REFILL"
|
|
S SUBDESC="OP PHARMACY PRESCRIPTION REFILL"
|
|
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
|