source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOVDFK.m@ 1000

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

initial load of WorldVistAEHR

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