source: FOIAVistA/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMP6IE.m@ 761

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

initial load of FOIAVistA 6/30/08 version

File size: 4.6 KB
Line 
1PXRMP6IE ; SLC/PKR - Exchange inits for PXRM*2.0*6 ;12/03/2007
2 ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
3 Q
4 ;=======================================================
5DELEXI ;If the Exchange File entry already exists delete it.
6 N ARRAY,IC,IND,LIST,LUVALUE,NUM
7 D EXARRAY^PXRMP6IE("L",.ARRAY)
8 S IC=0
9 F S IC=$O(ARRAY(IC)) Q:'IC D
10 . S LUVALUE(1)=ARRAY(IC,1)
11 . D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")
12 . I '$D(LIST) Q
13 . S NUM=$P(LIST("DILIST",0),U,1)
14 . I NUM'=0 D
15 .. F IND=1:1:NUM D
16 ... N DA,DIK
17 ... S DIK="^PXD(811.8,"
18 ... S DA=LIST("DILIST",2,IND)
19 ... D ^DIK
20 Q
21 ;
22 ;====================================================
23EXARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install
24 ;MODE values: I for include in build, A for include action.
25 N LN
26 S LN=0
27 ;
28 S LN=LN+1
29 S ARRAY(LN,1)="PXRM*2*6 TAXONOMY UPDATES"
30 I MODE["I" S ARRAY(LN,2)="05/25/2007@08:40:29"
31 I MODE["A" S ARRAY(LN,3)="O"
32 ;
33 S LN=LN+1
34 S ARRAY(LN,1)="VA-GEC REFERRAL CARE RECOMMENDATION"
35 I MODE["I" S ARRAY(LN,2)="07/30/2007@15:15"
36 I MODE["A" S ARRAY(LN,3)="O"
37 ;
38 S LN=LN+1
39 S ARRAY(LN,1)="VA-GEC REFERRAL NURSING ASSESSMENT"
40 I MODE["I" S ARRAY(LN,2)="07/30/2007@15:15"
41 I MODE["A" S ARRAY(LN,3)="O"
42 ;
43 S LN=LN+1
44 S ARRAY(LN,1)="VA-MH TERM UPDATE"
45 I MODE["I" S ARRAY(LN,2)="05/31/2007@14:06:20"
46 I MODE["A" S ARRAY(LN,3)="O"
47 ;
48 S LN=LN+1
49 S ARRAY(LN,1)="VA-WH HYSTERECTOMY W/CERVIX REMOVED"
50 I MODE["I" S ARRAY(LN,2)="07/06/2007@08:26:25"
51 I MODE["A" S ARRAY(LN,3)="O"
52 ;
53 S LN=LN+1
54 S ARRAY(LN,1)="VA-ALCOHOL AUDIT-C POSITIVE F/U EVAL"
55 I MODE["I" S ARRAY(LN,2)="12/03/2007@12:43:06"
56 I MODE["A" S ARRAY(LN,3)="O"
57 ;
58 S LN=LN+1
59 S ARRAY(LN,1)="VA-ALCOHOL USE SCREEN (AUDIT-C)"
60 I MODE["I" S ARRAY(LN,2)="09/21/2007@17:52"
61 I MODE["A" S ARRAY(LN,3)="O"
62 ;
63 S LN=LN+1
64 S ARRAY(LN,1)="VA-BL ALCOHOL SCREEN"
65 I MODE["I" S ARRAY(LN,2)="07/27/2007@15:38"
66 I MODE["A" S ARRAY(LN,3)="I"
67 ;
68 S LN=LN+1
69 S ARRAY(LN,1)="VA-BL ALCOHOL WITHIN SAFE LIMIT"
70 I MODE["I" S ARRAY(LN,2)="08/13/2007@16:20"
71 I MODE["A" S ARRAY(LN,3)="I"
72 ;
73 S LN=LN+1
74 S ARRAY(LN,1)="VA-BL DEPRESSION SCREEN"
75 I MODE["I" S ARRAY(LN,2)="07/27/2007@15:40"
76 I MODE["A" S ARRAY(LN,3)="I"
77 ;
78 S LN=LN+1
79 S ARRAY(LN,1)="VA-BL OEF/OIF FEVER"
80 I MODE["I" S ARRAY(LN,2)="07/27/2007@15:41"
81 I MODE["A" S ARRAY(LN,3)="I"
82 ;
83 S LN=LN+1
84 S ARRAY(LN,1)="VA-BL OEF/OIF GI SX"
85 I MODE["I" S ARRAY(LN,2)="07/27/2007@15:41"
86 I MODE["A" S ARRAY(LN,3)="I"
87 ;
88 S LN=LN+1
89 S ARRAY(LN,1)="VA-BL OEF/OIF OTHER SX"
90 I MODE["I" S ARRAY(LN,2)="07/27/2007@15:41"
91 I MODE["A" S ARRAY(LN,3)="I"
92 ;
93 S LN=LN+1
94 S ARRAY(LN,1)="VA-BL OEF/OIF SERVICE INFO ENTERED"
95 I MODE["I" S ARRAY(LN,2)="07/27/2007@15:41"
96 I MODE["A" S ARRAY(LN,3)="I"
97 ;
98 S LN=LN+1
99 S ARRAY(LN,1)="VA-BL OEF/OIF SKIN SX"
100 I MODE["I" S ARRAY(LN,2)="07/27/2007@15:41"
101 I MODE["A" S ARRAY(LN,3)="I"
102 ;
103 S LN=LN+1
104 S ARRAY(LN,1)="VA-BL PTSD SCREEN"
105 I MODE["I" S ARRAY(LN,2)="07/27/2007@15:43"
106 I MODE["A" S ARRAY(LN,3)="I"
107 ;
108 S LN=LN+1
109 S ARRAY(LN,1)="VA-DEPRESSION SCREENING"
110 I MODE["I" S ARRAY(LN,2)="11/08/2007@17:11"
111 I MODE["A" S ARRAY(LN,3)="O"
112 ;
113 S LN=LN+1
114 S ARRAY(LN,1)="VA-IRAQ & AFGHAN POST-DEPLOY SCREEN"
115 I MODE["I" S ARRAY(LN,2)="12/06/2007@09:27:06"
116 I MODE["A" S ARRAY(LN,3)="I"
117 ;
118 S LN=LN+1
119 S ARRAY(LN,1)="VA-MHV INFLUENZA VACCINE"
120 I MODE["I" S ARRAY(LN,2)="07/27/2007@11:34"
121 I MODE["A" S ARRAY(LN,3)="I"
122 ;
123 S LN=LN+1
124 S ARRAY(LN,1)="VA-PTSD SCREENING"
125 I MODE["I" S ARRAY(LN,2)="10/09/2007@15:21"
126 I MODE["A" S ARRAY(LN,3)="I"
127 ;
128 S LN=LN+1
129 S ARRAY(LN,1)="VA-TBI SCREENING"
130 I MODE["I" S ARRAY(LN,2)="12/03/2007@12:19:35"
131 I MODE["A" S ARRAY(LN,3)="I"
132 ;
133 S LN=LN+1
134 S ARRAY(LN,1)="PXRM RESULT GROUP UPDATE REMINDER"
135 I MODE["I" S ARRAY(LN,2)="12/12/2007@10:53:14"
136 I MODE["A" S ARRAY(LN,3)="O"
137 Q
138 ;
139 ;==========================================
140EXFINC(Y) ;Return a 1 if the Exchange file entry is in the list to
141 ;include in the build. This is used in the build to determine which
142 ;entries to include.
143 N EXARRAY,FOUND,IEN,IC,LUVALUE
144 D EXARRAY^PXRMP6IE("I",.EXARRAY)
145 S FOUND=0
146 S IC=0
147 F S IC=+$O(EXARRAY(IC)) Q:(IC=0)!(FOUND) D
148 . M LUVALUE=EXARRAY(IC)
149 . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
150 . I IEN=Y S FOUND=1 Q
151 Q FOUND
152 ;
153 ;==========================================
154SMEXINS ;Silent mode install.
155 N ACTION,EXARRAY,IC,IEN,LUVALUE,PXRMINST,TEXT
156 S PXRMINST=1
157 D EXARRAY^PXRMP6IE("IA",.EXARRAY)
158 S IC=0
159 F S IC=$O(EXARRAY(IC)) Q:'IC D
160 . S LUVALUE(1)=EXARRAY(IC,1),LUVALUE(2)=EXARRAY(IC,2)
161 . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
162 . I IEN=0 Q
163 . S TEXT="Installing Reminder Exchange entry "_LUVALUE(1)
164 . D BMES^XPDUTL(TEXT)
165 . S ACTION=EXARRAY(IC,3)
166 . D INSTALL^PXRMEXSI(IEN,ACTION,1)
167 Q
168 ;
Note: See TracBrowser for help on using the repository browser.