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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOVDFK 2320 printed Nov 22, 2024@17:46:16 Page 2
PSOVDFK ;BPOIFO/JG-KIDS POST INSTALL FOR VDEF PATCH ;10/05/04
+1 ;;7.0;OUTPATIENT PHARMACY;**190**;DEC 1997
+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 PSO 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 (RDE, RDS, etc)
+3 ; EVNTYP - HL7 event type (O11, O13, etc)
+4 ; SUBTYP - VDEF Event Subtype (PRES, PPAR, PREF 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 OP Pharm Prescription Event
+19 SET MSGTYP="RDE"
+20 SET EVNTYP="O11"
+21 SET SUBTYP="PRES"
+22 SET PROTO="PSO VDEF RDE O11 OP PHARM PRES VS"
+23 SET CUSTPKG="OUTPATIENT PHARMACY"
+24 SET EXTROUT="PSOVDF1"
+25 SET EVDESC="OP PHARM PRESCRIPTION"
+26 SET SUBDESC="OP PHARMACY PRESCRIPTION"
+27 DO POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)
+28 if $GET(KIDABORT)
QUIT
+29 ;
+30 ; Create OP Pharm Prescription Partial Event
+31 SET MSGTYP="RDS"
+32 SET EVNTYP="O13"
+33 SET SUBTYP="PPAR"
+34 SET PROTO="PSO VDEF RDS O13 OP PHARM PPAR VS"
+35 SET EVDESC="OP PHARM PRESCRIPTION PARTIAL"
+36 SET SUBDESC="OP PHARMACY PRESCRIPTION PARTIAL"
+37 DO POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)
+38 if $GET(KIDABORT)
QUIT
+39 ;
+40 ; Create OP Pharm Prescription Refill Event
+41 SET SUBTYP="PREF"
+42 SET PROTO="PSO VDEF RDS O13 OP PHARM PREF VS"
+43 SET EVDESC="OP PHARM PRESCRIPTION REFILL"
+44 SET SUBDESC="OP PHARMACY PRESCRIPTION REFILL"
+45 DO POSTKID^VDEFVU(MSGTYP,EVNTYP,SUBTYP,PROTO,CUSTPKG,EXTROUT,EVDESC,SUBDESC,.KIDABORT)
+46 if $GET(KIDABORT)
QUIT
+47 ;
+48 ; Success!!
+49 DO BMES^XPDUTL("VDEF Event(s) successfully installed in VDEF globals.")
+50 QUIT
