source: FOIAVistA/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMV2IE.m@ 1470

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

initial load of FOIAVistA 6/30/08 version

File size: 5.4 KB
Line 
1PXRMV2IE ; SLC/PKR - Version 2.0 init routine. ;02/3/2005
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;Reminder Exchange install.
4 Q
5 ;
6 ;===============================================================
7ARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install
8 ;
9 S ARRAY(1,1)="VA-ANTIPSYCHOTIC MED SIDE EFF EVAL"
10 I MODE S ARRAY(1,2)="01/27/2005@10:31:11"
11 S ARRAY(2,1)="VA-DEPRESSION SCREENING"
12 I MODE S ARRAY(2,2)="01/27/2005@10:31:26"
13 S ARRAY(3,1)="VA-POS DEPRESSION SCREEN FOLLOWUP"
14 I MODE S ARRAY(3,2)="02/03/2005@14:32:26"
15 ;
16 S ARRAY(4,1)="VA-IHD ELEVATED LDL"
17 I MODE S ARRAY(4,2)="08/25/2004@08:48:27"
18 S ARRAY(5,1)="VA-IHD LIPID PROFILE"
19 I MODE S ARRAY(5,2)="08/25/2004@08:48:55"
20 S ARRAY(6,1)="VA-*IHD ELEVATED LDL REPORTING"
21 I MODE S ARRAY(6,2)="08/25/2004@08:49:25"
22 S ARRAY(7,1)="VA-*IHD LIPID PROFILE REPORTING"
23 I MODE S ARRAY(7,2)="08/25/2004@08:49:59"
24 S ARRAY(8,1)="VA-*IHD 412 ELEVATED LDL REPORTING"
25 I MODE S ARRAY(8,2)="08/25/2004@08:50:25"
26 S ARRAY(9,1)="VA-*IHD 412 LIPID PROFILE REPORTING"
27 I MODE S ARRAY(9,2)="08/25/2004@08:51:13"
28 ;
29 S ARRAY(10,1)="VA-IHD QUERI PARAMETER"
30 I MODE S ARRAY(10,2)="09/22/2004@09:49:24"
31 S ARRAY(11,1)="VA-MH QUERI PARAMETER"
32 I MODE S ARRAY(11,2)="09/22/2004@09:56:01"
33 ;
34 S ARRAY(12,1)="VA-GEC REFERRAL TERM SET (CC)"
35 I MODE S ARRAY(12,2)="08/25/2004@08:51:47"
36 S ARRAY(13,1)="VA-GEC REFERRAL TERM SET (CR)"
37 I MODE S ARRAY(13,2)="08/25/2004@08:52:28"
38 S ARRAY(14,1)="VA-GEC REFERRAL TERM SET (NA)"
39 I MODE S ARRAY(14,2)="08/25/2004@08:53:27"
40 S ARRAY(15,1)="VA-GEC REFERRAL TERM SET (SS)"
41 I MODE S ARRAY(15,2)="08/25/2004@08:54"
42 ;
43 S ARRAY(16,1)="VA-GEC REFERRAL CARE COORDINATION"
44 I MODE S ARRAY(16,2)="08/25/2004@08:54:33"
45 S ARRAY(17,1)="VA-GEC REFERRAL CARE RECOMMENDATION"
46 I MODE S ARRAY(17,2)="08/25/2004@08:55:03"
47 S ARRAY(18,1)="VA-GEC REFERRAL NURSING ASSESSMENT"
48 I MODE S ARRAY(18,2)="08/25/2004@08:55:30"
49 S ARRAY(19,1)="VA-GEC REFERRAL SOCIAL SERVICES"
50 I MODE S ARRAY(19,2)="08/25/2004@08:56:08"
51 ;
52 S ARRAY(20,1)="VA-IRAQ & AFGHAN POST-DEPLOY SCREEN"
53 I MODE S ARRAY(20,2)="01/27/2005@10:31:41"
54 ;
55 S ARRAY(21,1)="BDI II RESULT GROUP"
56 I MODE S ARRAY(21,2)="04/13/2004@15:53:47"
57 ;
58 ;additional reminders with MRD function finding changes
59 S ARRAY(22,1)="VA-HTN ASSESSMENT BP >=140/90"
60 I MODE S ARRAY(22,2)="09/21/2004@14:46:58"
61 S ARRAY(23,1)="VA-HTN ASSESSMENT BP >=160/100"
62 I MODE S ARRAY(23,2)="09/21/2004@14:47:18"
63 S ARRAY(24,1)="VA-HTN LIFESTYLE EDUCATION"
64 I MODE S ARRAY(24,2)="09/21/2004@14:47:35"
65 S ARRAY(25,1)="VA-MST SCREENING"
66 I MODE S ARRAY(25,2)="01/27/2005@10:31:56"
67 ;
68 ;Make sure this old one gets deleted.
69 S ARRAY(26,1)="VA-IRAQ &AFGHAN POST-DEPLOY SCREEN"
70 I MODE S ARRAY(26,2)="12/23/2003@22:52:03"
71 ;
72 S ARRAY(26,1)="GMTSMHV"
73 I MODE S ARRAY(26,2)="07/06/2004@15:06:21"
74 Q
75 ;
76 ;===============================================================
77CNAK ;Make sure all "NAK" characters are converted back to "^" in
78 ;the Exchange File.
79 N IEN,TEXT
80 D BMES^XPDUTL("Clean up Exchange File entries")
81 S IEN=0
82 F S IEN=+$O(^PXD(811.8,IEN)) Q:IEN=0 D
83 . S TEXT=" Working on Exchange File entry "_IEN
84 . D BMES^XPDUTL(TEXT)
85 . D POSTKIDS^PXRMEXU5(IEN)
86 Q
87 ;
88 ;===============================================================
89DELEI ;If the Exchange File entry already exists delete it.
90 N ARRAY,IC,IND,LIST,LUVALUE,NUM
91 D ARRAY(1,.ARRAY)
92 S IC=0
93 F S IC=$O(ARRAY(IC)) Q:'IC D
94 .S LUVALUE(1)=ARRAY(IC,1)
95 .D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")
96 .I '$D(LIST) Q
97 .S NUM=$P(LIST("DILIST",0),U,1)
98 .I NUM'=0 D
99 ..F IND=1:1:NUM D
100 ... N DA,DIK
101 ... S DIK="^PXD(811.8,"
102 ... S DA=LIST("DILIST",2,IND)
103 ... D ^DIK
104 Q
105 ;
106 ;===============================================================
107DELEXB ;Delete the "B" index entries on the XML data in the Exchange File.
108 N IEN
109 D BMES^XPDUTL("Cleaning up Exchange File.")
110 S IEN=0
111 F S IEN=+$O(^PXD(811.8,IEN)) Q:IEN=0 K ^PXD(811.8,IEN,100,"B")
112 Q
113 ;
114 ;===============================================================
115DELGEC ;Delete the GEC Referal Term sets from the Reminder Definition file
116 N DA,DIK,GECREM,REMIEN
117 S GECREM="VA-GEC REFERRAL TERM SET (CC)"
118 S REMIEN=+$O(^PXD(811.9,"B",GECREM,0)) I REMIEN>0 D
119 . S DIK="^PXD(811.9,",DA=REMIEN D ^DIK
120 S GECREM="VA-GEC REFERRAL TERM SET (CR)"
121 S REMIEN=+$O(^PXD(811.9,"B",GECREM,0)) I REMIEN>0 D
122 . S DIK="^PXD(811.9,",DA=REMIEN D ^DIK
123 S GECREM="VA-GEC REFERRAL TERM SET (NA)"
124 S REMIEN=+$O(^PXD(811.9,"B",GECREM,0)) I REMIEN>0 D
125 . S DIK="^PXD(811.9,",DA=REMIEN D ^DIK
126 S GECREM="VA-GEC REFERRAL TERM SET (SS)"
127 S REMIEN=+$O(^PXD(811.9,"B",GECREM,0)) I REMIEN>0 D
128 . S DIK="^PXD(811.9,",DA=REMIEN D ^DIK
129 Q
130 ;
131 ;===============================================================
132EXFINC(Y) ;Return a 1 if the Exchange file entry is in the list to
133 ;include in the build. This is used in the build to determine which
134 ;entries to include.
135 N ARRAY,FOUND,IEN,IC,LUVALUE
136 D ARRAY(1,.ARRAY)
137 S FOUND=0
138 S IC=0
139 F S IC=+$O(ARRAY(IC)) Q:(IC=0)!(FOUND) D
140 . M LUVALUE=ARRAY(IC)
141 . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
142 . I IEN=Y S FOUND=1 Q
143 Q FOUND
144 ;
145 ;===============================================================
146SMEXINS ;Silent mode install.
147 N ARRAY,IC,IEN,LUVALUE,PXRMINST
148 S PXRMINST=1
149 D ARRAY(1,.ARRAY)
150 S IC=0
151 F S IC=$O(ARRAY(IC)) Q:'IC D
152 .M LUVALUE=ARRAY(IC)
153 .I LUVALUE(1)="GMTSMHV" Q
154 .S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
155 .I IEN'=0 D
156 .. N TEXT
157 .. I LUVALUE(1)["PARAMETER" S TEXT="Installing entry "_LUVALUE(1)
158 .. E S TEXT="Installing reminder "_LUVALUE(1)
159 .. D BMES^XPDUTL(TEXT)
160 .. D INSTALL^PXRMEXSI(IEN,1)
161 Q
162 ;
Note: See TracBrowser for help on using the repository browser.