| 1 | PSOVDFK ;BPOIFO/JG-KIDS POST INSTALL FOR VDEF PATCH ;10/05/04
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;**190**;DEC 1997
|
|---|
| 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 PSO 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 (RDE, RDS, etc)
|
|---|
| 16 | ; EVNTYP - HL7 event type (O11, O13, etc)
|
|---|
| 17 | ; SUBTYP - VDEF Event Subtype (PRES, PPAR, PREF 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 OP Pharm Prescription Event
|
|---|
| 32 | S MSGTYP="RDE"
|
|---|
| 33 | S EVNTYP="O11"
|
|---|
| 34 | S SUBTYP="PRES"
|
|---|
| 35 | S PROTO="PSO VDEF RDE O11 OP PHARM PRES VS"
|
|---|
| 36 | S CUSTPKG="OUTPATIENT PHARMACY"
|
|---|
| 37 | S EXTROUT="PSOVDF1"
|
|---|
| 38 | S EVDESC="OP PHARM PRESCRIPTION"
|
|---|
| 39 | S SUBDESC="OP PHARMACY PRESCRIPTION"
|
|---|
| 40 | D POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)
|
|---|
| 41 | Q:$G(KIDABORT)
|
|---|
| 42 | ;
|
|---|
| 43 | ; Create OP Pharm Prescription Partial Event
|
|---|
| 44 | S MSGTYP="RDS"
|
|---|
| 45 | S EVNTYP="O13"
|
|---|
| 46 | S SUBTYP="PPAR"
|
|---|
| 47 | S PROTO="PSO VDEF RDS O13 OP PHARM PPAR VS"
|
|---|
| 48 | S EVDESC="OP PHARM PRESCRIPTION PARTIAL"
|
|---|
| 49 | S SUBDESC="OP PHARMACY PRESCRIPTION PARTIAL"
|
|---|
| 50 | D POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)
|
|---|
| 51 | Q:$G(KIDABORT)
|
|---|
| 52 | ;
|
|---|
| 53 | ; Create OP Pharm Prescription Refill Event
|
|---|
| 54 | S SUBTYP="PREF"
|
|---|
| 55 | S PROTO="PSO VDEF RDS O13 OP PHARM PREF VS"
|
|---|
| 56 | S EVDESC="OP PHARM PRESCRIPTION REFILL"
|
|---|
| 57 | S SUBDESC="OP PHARMACY PRESCRIPTION REFILL"
|
|---|
| 58 | D POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)
|
|---|
| 59 | Q:$G(KIDABORT)
|
|---|
| 60 | ;
|
|---|
| 61 | ; Success!!
|
|---|
| 62 | D BMES^XPDUTL("VDEF Event(s) successfully installed in VDEF globals.")
|
|---|
| 63 | Q
|
|---|
