source: WorldVistAEHR/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSPI89.m@ 1639

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

initial load of WorldVistAEHR
File size: 3.6 KB
RevLine 
[613]1PSSPI89 ; BIR/PKR - Init for PSS*1.0*89. ;10/12/2004
2 ;;1.0;PHARMACY DATA MANAGEMENT;**89**;9/30/97
3 ;
4 Q
5 ;===============================================================
6CNVA ;Create non-VA med cross-reference in Pharmacy Patient file.
7 N IND,MSG,NAME,RESULT,XREF
8 D BMES^XPDUTL("Creating Pharmacy Patient non-VA med cross-reference.")
9 S XREF("FILE")=55
10 S XREF("WHOLE KILL")="K ^PXRMINDX(""55NVA"")"
11 S XREF("TYPE")="MU"
12 S XREF("SHORT DESCR")="Clinical Reminders index."
13 S XREF("DESCR",1)="This cross-reference builds two indexes, one for finding"
14 S XREF("DESCR",2)="all patients with a pharmacy orderable item and one for"
15 S XREF("DESCR",3)="finding all the pharmacy orderable items a patient has. The indexes are"
16 S XREF("DESCR",4)="stored in the Clinical Reminders index global as:"
17 S XREF("DESCR",5)=" ^PXRMINDX(""55NVA"",""IP"",POI,DFN,START DATE,STOP DATE,DAS)"
18 S XREF("DESCR",6)=" ^PXRMINDX(""55NVA"",""PI"",DFN,POI,START DATE,STOP DATE,DAS)"
19 S XREF("DESCR",8)="respectively. POI is the pharmacy orderable item."
20 S XREF("DESCR",9)="If there is no START DATE then the DOCUMENTED DATE is used in its place."
21 S XREF("DESCR",10)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
22 S XREF("USE")="ACTION"
23 S XREF("EXECUTION")="R"
24 S XREF("ACTIVITY")="IR"
25 S XREF("ROOT FILE")=55.05
26 S XREF("NAME")="ACRNVA"
27 S XREF("SET")="D SNVA^PSOPXRMU(.X,.DA)"
28 S XREF("KILL")="D KNVA^PSOPXRMU(.X,.DA)"
29 S XREF("VAL",1)=.01
30 S XREF("VAL",1,"SUBSCRIPT")=1
31 S XREF("VAL",2)=11
32 S XREF("VAL",2,"SUBSCRIPT")=2
33 S XREF("VAL",3)=8
34 S XREF("VAL",4)=6
35 D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
36 I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)
37 Q
38 ;
39 ;===============================================================
40CPSPA ;Create cross-references for Pharmacy Patient.
41 N IND,MSG,NAME,RESULT,XREF
42 D BMES^XPDUTL("Creating Pharmacy Patient cross-references.")
43 S XREF("FILE")=55
44 S XREF("SET CONDITION")="S X=$$PATCH^XPDUTL(""PXRM*1.5*12"")"
45 S XREF("KILL CONDITION")="S X=$$PATCH^XPDUTL(""PXRM*1.5*12"")"
46 S XREF("WHOLE KILL")="K ^PXRMINDX(55)"
47 S XREF("TYPE")="MU"
48 S XREF("SHORT DESCR")="Clinical Reminders index."
49 S XREF("DESCR",1)="This cross-reference builds two indexes, one for finding"
50 S XREF("DESCR",2)="all patients with a particular drug and one for"
51 S XREF("DESCR",3)="finding all the drugs a patient has. The indexes are"
52 S XREF("DESCR",4)="stored in the Clinical Reminders index global as:"
53 S XREF("DESCR",5)=" ^PXRMINDX(55,""IP"",DRUG,DFN,START,STOP,DAS)"
54 S XREF("DESCR",6)=" ^PXRMINDX(55,""PI"",DFN,DRUG,START,STOP,DAS)"
55 S XREF("DESCR",8)="respectively. START is the start date and STOP is the stop date."
56 S XREF("DESCR",9)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
57 S XREF("USE")="ACTION"
58 S XREF("EXECUTION")="R"
59 S XREF("ACTIVITY")="IR"
60 ;
61 ;Unit Dose
62 S XREF("ROOT FILE")=55.06
63 S XREF("NAME")="ACRUD"
64 S XREF("SET")="D SPSPA^PSJXRFS(.X,.DA,""UD"")"
65 S XREF("KILL")="D KPSPA^PSJXRFK(.X,.DA,""UD"")"
66 S XREF("VAL",1)=10
67 S XREF("VAL",1,"SUBSCRIPT")=1
68 S XREF("VAL",2)=34
69 S XREF("VAL",2,"SUBSCRIPT")=2
70 D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
71 I RESULT="",$T(DCERRMSG^PXRMP12I) D DCERRMSG^PXRMP12I(.MSG,.XREF)
72 ;
73 ;IV node
74 S XREF("ROOT FILE")=55.01
75 S XREF("NAME")="ACRIV"
76 S XREF("SET")="D SPSPA^PSJXRFS(.X,.DA,""IV"")"
77 S XREF("KILL")="D KPSPA^PSJXRFK(.X,.DA,""IV"")"
78 S XREF("VAL",1)=.02
79 S XREF("VAL",1,"SUBSCRIPT")=1
80 S XREF("VAL",2)=.03
81 S XREF("VAL",2,"SUBSCRIPT")=2
82 D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
83 I RESULT="",$T(DCERRMSG^PXRMP12I) D DCERRMSG^PXRMP12I(.MSG,.XREF)
84 Q
85 ;
86 ;===================================================
87POST ;Post-init
88 D CNVA
89 D CPSPA
90 Q
91 ;
Note: See TracBrowser for help on using the repository browser.