source: qrda/C0Q/trunk/kids/C0Q-1_SEQ-006_PAT-006.KID@ 1588

Last change on this file since 1588 was 1582, checked in by Sam Habiel, 12 years ago

Patch 6 KIDS and TXT
File size: 93.7 KB
RevLine 
[1582]1KIDS Distribution saved on Oct 23, 2012@13:24:04
2Support for Model Measure Sets
3**KIDS**:C0Q*1.0*6^
4
5**INSTALL NAME**
6C0Q*1.0*6
7"BLD",7920,0)
8C0Q*1.0*6^QUALITY MEASURES^0^3121023^y
9"BLD",7920,1,0)
10^^422^422^3121023^
11"BLD",7920,1,1,0)
12 Source, Copyright, & Licensing:
13"BLD",7920,1,2,0)
14 ===============================
15"BLD",7920,1,3,0)
16 This patch to WorldVistA 2.0 was produced in a WV 3/09 Environment by George
17"BLD",7920,1,4,0)
18Lily on 23 October 2012 and released through VISTA Forum.
19"BLD",7920,1,5,0)
20
21"BLD",7920,1,6,0)
22 (C) Geroge Lilly 2012
23"BLD",7920,1,7,0)
24 Licensed under Package License: AGPL v3.
25"BLD",7920,1,8,0)
26
27"BLD",7920,1,9,0)
28 http://www.gnu.org/licenses/agpl-3.0.html
29"BLD",7920,1,10,0)
30
31"BLD",7920,1,11,0)
32 Functionality:
33"BLD",7920,1,12,0)
34 ==============
35"BLD",7920,1,13,0)
36 This patch adds support for using model Measurement Sets for creating a new
37"BLD",7920,1,14,0)
38Measurement Sets based on the model Measurement Sets. Usage instructions will
39"BLD",7920,1,15,0)
40be found at the end of this patch message.
41"BLD",7920,1,16,0)
42
43"BLD",7920,1,17,0)
44 Support Tickets:
45"BLD",7920,1,18,0)
46 <None>
47"BLD",7920,1,19,0)
48
49"BLD",7920,1,20,0)
50 Package Elements:
51"BLD",7920,1,21,0)
52 =================
53"BLD",7920,1,22,0)
54 UP SEND DATA USER
55"BLD",7920,1,23,0)
56 DATE SEC. COMES SITE RSLV OVER
57"BLD",7920,1,24,0)
58FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE
59"BLD",7920,1,25,0)
60-------------------------------------------------------------------------------
61"BLD",7920,1,26,0)
62
63"BLD",7920,1,27,0)
641130580001.401C0Q PARAMETER YES NO NO NO
65"BLD",7920,1,28,0)
66Partial DD: subDD: 1130580001.401fld: 6.1
67"BLD",7920,1,29,0)
68 fld: 6.2
69"BLD",7920,1,30,0)
70
71"BLD",7920,1,31,0)
72INPUT TEMPLATE: ACTION:
73"BLD",7920,1,32,0)
74 C0Q EDIT OUPATIENT PARMS FILE #1130580001.401SEND TO SITE
75"BLD",7920,1,33,0)
76
77"BLD",7920,1,34,0)
78ROUTINE: ACTION:
79"BLD",7920,1,35,0)
80 C0QMU12 SEND TO SITE
81"BLD",7920,1,36,0)
82 C0QMU123 SEND TO SITE
83"BLD",7920,1,37,0)
84 Test Sites:
85"BLD",7920,1,38,0)
86 ===========
87"BLD",7920,1,39,0)
88 <None>
89"BLD",7920,1,40,0)
90
91"BLD",7920,1,41,0)
92 Compliance:
93"BLD",7920,1,42,0)
94 ===========
95"BLD",7920,1,43,0)
96 This software complies with the VA MUMPS Programming Standards and
97"BLD",7920,1,44,0)
98 Conventions (version 3 April 2007), with the following exception:
99"BLD",7920,1,45,0)
100
101"BLD",7920,1,46,0)
102 C0QMU12 * * 591 Lines, 20662 Bytes, Checksum: B351357107
103"BLD",7920,1,47,0)
104 S - Routine exceeds SACC maximum size of 20000 (20662).
105"BLD",7920,1,48,0)
106 S - Routine code exceeds SACC maximum size of 15000 (16922).
107"BLD",7920,1,49,0)
108
109"BLD",7920,1,50,0)
110
111"BLD",7920,1,51,0)
112 This software has not been tested for 508 compliance.
113"BLD",7920,1,52,0)
114
115"BLD",7920,1,53,0)
116 Installation Instructions:
117"BLD",7920,1,54,0)
118 ==========================
119"BLD",7920,1,55,0)
120 Install Time - less than 1 minute
121"BLD",7920,1,56,0)
122
123"BLD",7920,1,57,0)
124 1. LOAD TRANSPORT GLOBAL
125"BLD",7920,1,58,0)
126
127"BLD",7920,1,59,0)
128 Choose the PackMan message containing this patch and invoke the
129"BLD",7920,1,60,0)
130 INSTALL/CHECK MESSAGE PackMan option to unload the build.
131"BLD",7920,1,61,0)
132
133"BLD",7920,1,62,0)
134 2. START UP KIDS
135"BLD",7920,1,63,0)
136
137"BLD",7920,1,64,0)
138 Start up the Kernel Installation and Distribution System Menu
139"BLD",7920,1,65,0)
140 [XPD MAIN]:
141"BLD",7920,1,66,0)
142
143"BLD",7920,1,67,0)
144 Edits and Distribution ...
145"BLD",7920,1,68,0)
146 Utilities ...
147"BLD",7920,1,69,0)
148 Installation ...
149"BLD",7920,1,70,0)
150
151"BLD",7920,1,71,0)
152 Select Kernel Installation & Distribution System Option: INStallation
153"BLD",7920,1,72,0)
154 ---
155"BLD",7920,1,73,0)
156 Load a Distribution
157"BLD",7920,1,74,0)
158 Print Transport Global
159"BLD",7920,1,75,0)
160 Compare Transport Global to Current System
161"BLD",7920,1,76,0)
162 Verify Checksums in Transport Global
163"BLD",7920,1,77,0)
164 Install Package(s)
165"BLD",7920,1,78,0)
166 Restart Install of Package(s)
167"BLD",7920,1,79,0)
168 Unload a Distribution
169"BLD",7920,1,80,0)
170 Backup a Transport Global
171"BLD",7920,1,81,0)
172
173"BLD",7920,1,82,0)
174 Select Installation Option:
175"BLD",7920,1,83,0)
176
177"BLD",7920,1,84,0)
178 3. Select Installation Option:
179"BLD",7920,1,85,0)
180
181"BLD",7920,1,86,0)
182 NOTE: The following are OPTIONAL - (When prompted for the INSTALL
183"BLD",7920,1,87,0)
184 NAME, enter C0Q*1.0*6):
185"BLD",7920,1,88,0)
186
187"BLD",7920,1,89,0)
188 a. Backup a Transport Global - This option will create a backup
189"BLD",7920,1,90,0)
190 message of any routines exported with this patch. It will not
191"BLD",7920,1,91,0)
192 backup any other changes such as DD's or templates.
193"BLD",7920,1,92,0)
194 b. Compare Transport Global to Current System - This option will
195"BLD",7920,1,93,0)
196 allow you to view all changes that will be made when this patch
197"BLD",7920,1,94,0)
198 is installed. It compares all components of this patch
199"BLD",7920,1,95,0)
200 (routines, DD's, templates, etc.).
201"BLD",7920,1,96,0)
202 c. Verify Checksums in Transport Global - This option will allow
203"BLD",7920,1,97,0)
204 you to ensure the integrity of the routines that are in the
205"BLD",7920,1,98,0)
206 transport global.
207"BLD",7920,1,99,0)
208
209"BLD",7920,1,100,0)
210 4. Select Installation Option: Install Package(s)
211"BLD",7920,1,101,0)
212
213"BLD",7920,1,102,0)
214 **This is the step to start the installation of this KIDS patch:
215"BLD",7920,1,103,0)
216
217"BLD",7920,1,104,0)
218 a. Choose the Install Package(s) option to start the patch install
219"BLD",7920,1,105,0)
220 and enter "C0Q*1.0*6" at the INSTALL NAME prompt. As part of the
221"BLD",7920,1,106,0)
222 Environment Check routine, the message below will display
223"BLD",7920,1,107,0)
224 b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of
225"BLD",7920,1,108,0)
226 Install? NO//' answer NO
227"BLD",7920,1,109,0)
228 c. When prompted 'Want KIDS to INHIBIT LOGONs during the install?
229"BLD",7920,1,110,0)
230 NO//' answer NO
231"BLD",7920,1,111,0)
232 d. When prompted 'Want to DISABLE Scheduled Options, Menu Options,
233"BLD",7920,1,112,0)
234 and Protocols? NO//' answer NO
235"BLD",7920,1,113,0)
236
237"BLD",7920,1,114,0)
238Install Transcript:
239"BLD",7920,1,115,0)
240Select OPTION NAME: XPD MAIN Kernel Installation & Distribution System
241"BLD",7920,1,116,0)
242
243"BLD",7920,1,117,0)
244Select Kernel Installation & Distribution System Option: INStallation
245"BLD",7920,1,118,0)
246
247"BLD",7920,1,119,0)
248Select Installation Option: 1 Load a Distribution
249"BLD",7920,1,120,0)
250Enter a Host File: C0Q*1.0*6
251"BLD",7920,1,121,0)
252
253"BLD",7920,1,122,0)
254KIDS Distribution saved on Oct 22, 2012@17:41:17
255"BLD",7920,1,123,0)
256Comment: FRDGHJKLFGHJKL
257"BLD",7920,1,124,0)
258
259"BLD",7920,1,125,0)
260This Distribution contains Transport Globals for the following Package(s):
261"BLD",7920,1,126,0)
262 C0Q*1.0*6
263"BLD",7920,1,127,0)
264Distribution OK!
265"BLD",7920,1,128,0)
266
267"BLD",7920,1,129,0)
268Want to Continue with Load? YES//
269"BLD",7920,1,130,0)
270Loading Distribution...
271"BLD",7920,1,131,0)
272
273"BLD",7920,1,132,0)
274 C0Q*1.0*6
275"BLD",7920,1,133,0)
276Use INSTALL NAME: C0Q*1.0*6 to install this Distribution.
277"BLD",7920,1,134,0)
278
279"BLD",7920,1,135,0)
280Select Installation Option: 6 Install Package(s)
281"BLD",7920,1,136,0)
282Select INSTALL NAME: C0Q*1.0*6 Loaded from Distribution Loaded from Di
283"BLD",7920,1,137,0)
284stribution 10/23/12@11:46:32
285"BLD",7920,1,138,0)
286 => FRDGHJKLFGHJKL ;Created on Oct 22, 2012@17:41:17
287"BLD",7920,1,139,0)
288
289"BLD",7920,1,140,0)
290This Distribution was loaded on Oct 23, 2012@11:46:32 with header of
291"BLD",7920,1,141,0)
292 FRDGHJKLFGHJKL ;Created on Oct 22, 2012@17:41:17
293"BLD",7920,1,142,0)
294 It consisted of the following Install(s):
295"BLD",7920,1,143,0)
296 C0Q*1.0*6
297"BLD",7920,1,144,0)
298
299"BLD",7920,1,145,0)
300 Checking C0Q*1.0*6 for overlap with VOE 1.0 ... OK
301"BLD",7920,1,146,0)
302 No overlap found
303"BLD",7920,1,147,0)
304
305"BLD",7920,1,148,0)
306 Checking C0Q*1.0*6 for overlap with VOE 1.1 ... OK
307"BLD",7920,1,149,0)
308 No overlap found
309"BLD",7920,1,150,0)
310
311"BLD",7920,1,151,0)
312 Checking C0Q*1.0*6 for overlap with NO HOME 1.0 ... OK
313"BLD",7920,1,152,0)
314 No overlap found
315"BLD",7920,1,153,0)
316
317"BLD",7920,1,154,0)
318Checking Install for Package C0Q*1.0*6
319"BLD",7920,1,155,0)
320
321"BLD",7920,1,156,0)
322Install Questions for C0Q*1.0*6
323"BLD",7920,1,157,0)
324
325"BLD",7920,1,158,0)
326Incoming Files:
327"BLD",7920,1,159,0)
328
329"BLD",7920,1,160,0)
330 1130580001.401C0Q PARAMETER (Partial Definition)
331"BLD",7920,1,161,0)
332Note: You already have the 'C0Q PARAMETER' File.
333"BLD",7920,1,162,0)
334
335"BLD",7920,1,163,0)
336Want KIDS to INHIBIT LOGONs during the install? NO//
337"BLD",7920,1,164,0)
338Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO//
339"BLD",7920,1,165,0)
340
341"BLD",7920,1,166,0)
342Enter the Device you want to print the Install messages.
343"BLD",7920,1,167,0)
344You can queue the install by enter a 'Q' at the device prompt.
345"BLD",7920,1,168,0)
346Enter a '^' to abort the install.
347"BLD",7920,1,169,0)
348
349"BLD",7920,1,170,0)
350DEVICE: HOME// 0;P-OTHER;80;9999 TELNET
351"BLD",7920,1,171,0)
352
353"BLD",7920,1,172,0)
354 Install Started for C0Q*1.0*6 :
355"BLD",7920,1,173,0)
356 Oct 23, 2012@11:46:53
357"BLD",7920,1,174,0)
358
359"BLD",7920,1,175,0)
360Build Distribution Date: Oct 22, 2012
361"BLD",7920,1,176,0)
362
363"BLD",7920,1,177,0)
364 Installing Routines:...
365"BLD",7920,1,178,0)
366 Oct 23, 2012@11:46:53
367"BLD",7920,1,179,0)
368
369"BLD",7920,1,180,0)
370 Installing Data Dictionaries: ..
371"BLD",7920,1,181,0)
372 Oct 23, 2012@11:46:54
373"BLD",7920,1,182,0)
374
375"BLD",7920,1,183,0)
376 Installing PACKAGE COMPONENTS:
377"BLD",7920,1,184,0)
378
379"BLD",7920,1,185,0)
380 Installing INPUT TEMPLATE..
381"BLD",7920,1,186,0)
382 Oct 23, 2012@11:46:54
383"BLD",7920,1,187,0)
384
385"BLD",7920,1,188,0)
386 Updating Routine file......
387"BLD",7920,1,189,0)
388
389"BLD",7920,1,190,0)
390 Updating KIDS files.......
391"BLD",7920,1,191,0)
392
393"BLD",7920,1,192,0)
394 C0Q*1.0*6 Installed.
395"BLD",7920,1,193,0)
396 Oct 23, 2012@11:46:54
397"BLD",7920,1,194,0)
398
399"BLD",7920,1,195,0)
400 Not a VA primary domain
401"BLD",7920,1,196,0)
402
403"BLD",7920,1,197,0)
404 NO Install Message sent
405"BLD",7920,1,198,0)
406
407"BLD",7920,1,199,0)
408Select Installation Option:
409"BLD",7920,1,200,0)
410----------------------------
411"BLD",7920,1,201,0)
412
413"BLD",7920,1,202,0)
414Usage instructions:
415"BLD",7920,1,203,0)
416===================
417"BLD",7920,1,204,0)
4181. Create two measure sets, one for Performance Measures, and one for Quality
419"BLD",7920,1,205,0)
420Measures. If you have ones already created for other clinics, you can use them.
421"BLD",7920,1,206,0)
422It's okay for them to have filter lists, as these will be deleted by the
423"BLD",7920,1,207,0)
424software when the measure set is being copied.
425"BLD",7920,1,208,0)
426
427"BLD",7920,1,209,0)
4282. Attach these measure sets to an Outpatient Parameter in the fields: MODEL
429"BLD",7920,1,210,0)
430PERFORMANCE MEASURE SET and MODEL QUALITY MEASURE SET. NB: The purpose of
431"BLD",7920,1,211,0)
432these fields is to generate the a measure set to use in the fields EP MU
433"BLD",7920,1,212,0)
434MEASUREMENT SET and EP QUALITY MEASUREMENT SET, respectively. If you have these
435"BLD",7920,1,213,0)
436filled out, the Model fields will have no effect.
437"BLD",7920,1,214,0)
438
439"BLD",7920,1,215,0)
4403. Run the option EP UPDATE MU MEASURES. This create new measure sets based on
441"BLD",7920,1,216,0)
442the model measure sets and attach the appropriate filter lists.
443"BLD",7920,1,217,0)
444
445"BLD",7920,1,218,0)
446Miscellaneous remarks: If a model set is replaced and the option to update is
447"BLD",7920,1,219,0)
448reran, the behavior is not to delete the old created measure set but rather to
449"BLD",7920,1,220,0)
450merge the contents of the new model set into the old created measure set. I am
451"BLD",7920,1,221,0)
452not sure if this is the desirable behavior, but that is how it currently works.
453"BLD",7920,1,222,0)
454
455"BLD",7920,1,223,0)
456Transcript:
457"BLD",7920,1,224,0)
458Select QUALITY MEASUREMENT MENU Option: ?
459"BLD",7920,1,225,0)
460
461"BLD",7920,1,226,0)
462 COPY OVER PATIENT LISTS
463"BLD",7920,1,227,0)
464 ED-1 COMPUTATION
465"BLD",7920,1,228,0)
466 ED-2 COMPUTATION
467"BLD",7920,1,229,0)
468 EP UPDATE MU MEASURES
469"BLD",7920,1,230,0)
470 INP UPDATE MU MEASURES
471"BLD",7920,1,231,0)
472 PQRI MENU ...
473"BLD",7920,1,232,0)
474 PQRI PRINT XML
475"BLD",7920,1,233,0)
476 PRINT C0Q MEASURES
477"BLD",7920,1,234,0)
478 QRDA MENU ...
479"BLD",7920,1,235,0)
480 SETUP QUALITY REPORTING ...
481"BLD",7920,1,236,0)
482
483"BLD",7920,1,237,0)
484Enter ?? for more options, ??? for brief descriptions, ?OPTION for help text.
485"BLD",7920,1,238,0)
486
487"BLD",7920,1,239,0)
488Select QUALITY MEASUREMENT MENU Option: PRINT C0Q MEASURES
489"BLD",7920,1,240,0)
490
491"BLD",7920,1,241,0)
492Select C0Q MEASUREMENT SET NAME: DR OFF
493"BLD",7920,1,242,0)
494 1 DR OFFICE PERFORMANCE MEASURES
495"BLD",7920,1,243,0)
496 2 DR OFFICE QUALITY MEASURES
497"BLD",7920,1,244,0)
498CHOOSE 1-2: 1 DR OFFICE PERFORMANCE MEASURES
499"BLD",7920,1,245,0)
500
501"BLD",7920,1,246,0)
502DEVICE: HOME// TELNET
503"BLD",7920,1,247,0)
504C0Q MEASUREMENTS LIST OCT 23,2012 12:04 PAGE 1
505"BLD",7920,1,248,0)
506MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE
507"BLD",7920,1,249,0)
508--------------------------------------------------------------------------------
509"BLD",7920,1,250,0)
510
511"BLD",7920,1,251,0)
512CPOE 3 0 0.00
513"BLD",7920,1,252,0)
514
515"BLD",7920,1,253,0)
516PROBLEMS 3 3 100.00
517"BLD",7920,1,254,0)
518
519"BLD",7920,1,255,0)
520ALLERGIES 3 3 100.00
521"BLD",7920,1,256,0)
522
523"BLD",7920,1,257,0)
524Select C0Q MEASUREMENT SET NAME: DR OFF
525"BLD",7920,1,258,0)
526 1 DR OFFICE PERFORMANCE MEASURES
527"BLD",7920,1,259,0)
528 2 DR OFFICE QUALITY MEASURES
529"BLD",7920,1,260,0)
530CHOOSE 1-2: 2 DR OFFICE QUALITY MEASURES
531"BLD",7920,1,261,0)
532
533"BLD",7920,1,262,0)
534DEVICE: HOME// TELNET
535"BLD",7920,1,263,0)
536C0Q MEASUREMENTS LIST OCT 23,2012 12:04 PAGE 1
537"BLD",7920,1,264,0)
538MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE
539"BLD",7920,1,265,0)
540--------------------------------------------------------------------------------
541"BLD",7920,1,266,0)
542
543"BLD",7920,1,267,0)
544NQF0013 Hypertension: 0 0 0.00
545"BLD",7920,1,268,0)
546Blood Pressure
547"BLD",7920,1,269,0)
548Measurement
549"BLD",7920,1,270,0)
550
551"BLD",7920,1,271,0)
552NQF0028A Tobacco Use 0 0 0.00
553"BLD",7920,1,272,0)
554Assessment
555"BLD",7920,1,273,0)
556
557"BLD",7920,1,274,0)
558NQF0028B Tobacco Use 0 0 0.00
559"BLD",7920,1,275,0)
560Assessment and Cessation
561"BLD",7920,1,276,0)
562Intervention
563"BLD",7920,1,277,0)
564
565"BLD",7920,1,278,0)
566Select C0Q MEASUREMENT SET NAME:
567"BLD",7920,1,279,0)
568
569"BLD",7920,1,280,0)
570Select QUALITY MEASUREMENT MENU Option: SETUP QUALITY REPORTING
571"BLD",7920,1,281,0)
572
573"BLD",7920,1,282,0)
574Select SETUP QUALITY REPORTING Option: EP EDIT PARMS
575"BLD",7920,1,283,0)
576
577"BLD",7920,1,284,0)
578Select C0Q PARAMETER NAME: ACME CLINIC #1
579"BLD",7920,1,285,0)
580 Are you adding 'ACME CLINIC #1' as a new C0Q PARAMETER (the 2ND)? No// Y
581"BLD",7920,1,286,0)
582 (Yes)
583"BLD",7920,1,287,0)
584NAME: ACME CLINIC #1//
585"BLD",7920,1,288,0)
586MEASUREMENT PERIOD KEY: MU12
587"BLD",7920,1,289,0)
588PARAMETER TYPE: OU OUTPATIENT
589"BLD",7920,1,290,0)
590EP MU MEASUREMENT SET:
591"BLD",7920,1,291,0)
592EP QUALITY MEASUREMENT SET:
593"BLD",7920,1,292,0)
594Select CLINIC: ACME CLINIC #1
595"BLD",7920,1,293,0)
596 Are you adding 'ACME CLINIC #1' as a new CLINIC (the 1ST for this C0Q PARAMET
597"BLD",7920,1,294,0)
598ER)? No// Y (Yes)
599"BLD",7920,1,295,0)
600Select CLINIC:
601"BLD",7920,1,296,0)
602PATIENT LIST LABEL:
603"BLD",7920,1,297,0)
604Select SUBSCRIBER:
605"BLD",7920,1,298,0)
606MODEL PERFORMANCE MEASURE SET: DR,P DR OFFICE PERFORMANCE MEASURES
607"BLD",7920,1,299,0)
608MODEL QUALITY MEASURE SET: DR,Q DR OFFICE QUALITY MEASURES
609"BLD",7920,1,300,0)
610
611"BLD",7920,1,301,0)
612Select C0Q PARAMETER NAME:
613"BLD",7920,1,302,0)
614
615"BLD",7920,1,303,0)
616Select SETUP QUALITY REPORTING Option:
617"BLD",7920,1,304,0)
618
619"BLD",7920,1,305,0)
620Select QUALITY MEASUREMENT MENU Option: EP UPDATE MU MEASURES
621"BLD",7920,1,306,0)
622Jan 04, 2008@19:14:59
623"BLD",7920,1,307,0)
624Jan 02, 2008@18:40:58
625"BLD",7920,1,308,0)
626Nov 26, 2005@13:10:24
627"BLD",7920,1,309,0)
628Nov 26, 2005@14:12:42
629"BLD",7920,1,310,0)
630Nov 25, 2005@20:31:13
631"BLD",7920,1,311,0)
632Aug 02, 2005@08:40:36
633"BLD",7920,1,312,0)
634Aug 01, 2005@15:08:49
635"BLD",7920,1,313,0)
636Aug 01, 2005@15:21:18
637"BLD",7920,1,314,0)
638Jul 29, 2005@11:44:36
639"BLD",7920,1,315,0)
640Jul 29, 2005@11:53:15
641"BLD",7920,1,316,0)
642Jul 29, 2005@12:04:45
643"BLD",7920,1,317,0)
644Jul 28, 2005@12:20:20
645"BLD",7920,1,318,0)
646Jul 28, 2005@16:16:03
647"BLD",7920,1,319,0)
648Jul 27, 2005@11:21:04
649"BLD",7920,1,320,0)
650Jul 27, 2005@11:24:55
651"BLD",7920,1,321,0)
652Jul 27, 2005@11:41:40
653"BLD",7920,1,322,0)
654Jul 27, 2005@11:47:38
655"BLD",7920,1,323,0)
656Jul 27, 2005@11:49:41
657"BLD",7920,1,324,0)
658Jul 27, 2005@11:50:26
659"BLD",7920,1,325,0)
660Jul 27, 2005@15:45:45
661"BLD",7920,1,326,0)
662Jul 25, 2005@08:37:24
663"BLD",7920,1,327,0)
664Jul 24, 2005@11:01:55
665"BLD",7920,1,328,0)
666Jul 24, 2005@14:22:11
667"BLD",7920,1,329,0)
668Jul 24, 2005@16:22:29
669"BLD",7920,1,330,0)
670Jul 24, 2005@17:17:01
671"BLD",7920,1,331,0)
672Jul 24, 2005@17:33:39
673"BLD",7920,1,332,0)
674Jul 23, 2005@16:14:54
675"BLD",7920,1,333,0)
676Jul 23, 2005@17:17:08
677"BLD",7920,1,334,0)
678Jul 23, 2005@17:24:01
679"BLD",7920,1,335,0)
680Jul 22, 2005@10:49:29
681"BLD",7920,1,336,0)
682Jul 22, 2005@16:46:52
683"BLD",7920,1,337,0)
684Jul 21, 2005@08:56:56
685"BLD",7920,1,338,0)
686Jul 21, 2005@12:10:54
687"BLD",7920,1,339,0)
688Jul 21, 2005@15:39:22
689"BLD",7920,1,340,0)
690Jul 21, 2005@15:39:29
691"BLD",7920,1,341,0)
692Jul 20, 2005@10:07:46
693"BLD",7920,1,342,0)
694Jul 20, 2005@10:44:03
695"BLD",7920,1,343,0)
696Jul 19, 2005@07:41:49
697"BLD",7920,1,344,0)
698Jul 19, 2005@08:52:13
699"BLD",7920,1,345,0)
700Jul 19, 2005@11:32:14
701"BLD",7920,1,346,0)
702Jul 19, 2005@11:36:08
703"BLD",7920,1,347,0)
704Jul 19, 2005@13:35:12
705"BLD",7920,1,348,0)
706Jul 19, 2005@15:43:18
707"BLD",7920,1,349,0)
708Jul 19, 2005@15:54:48
709"BLD",7920,1,350,0)
710Jul 18, 2005@17:57:49
711"BLD",7920,1,351,0)
712Jul 15, 2005@16:00
713"BLD",7920,1,352,0)
714Jul 08, 2005@13:03
715"BLD",7920,1,353,0)
716Jul 01, 2005@14:37:23
717"BLD",7920,1,354,0)
718Oct 23, 2012@12:02
719"BLD",7920,1,355,0)
720CREATING MU12-EP-ACME CLINIC #1-PatientC0QFDA(1130580001.2011,"1,13,",3)=0
721"BLD",7920,1,356,0)
722C0QFDA(1130580001.2011,"2,13,",3)=100
723"BLD",7920,1,357,0)
724C0QFDA(1130580001.2011,"3,13,",3)=100
725"BLD",7920,1,358,0)
726C0QFDA(1130580001.2011,"1,14,",3)=0
727"BLD",7920,1,359,0)
728C0QFDA(1130580001.2011,"2,14,",3)=0
729"BLD",7920,1,360,0)
730C0QFDA(1130580001.2011,"3,14,",3)=0
731"BLD",7920,1,361,0)
732C0QFDA(1130580001.2011,"1,15,",1.1)=0
733"BLD",7920,1,362,0)
734C0QFDA(1130580001.2011,"1,15,",2.1)=1
735"BLD",7920,1,363,0)
736C0QFDA(1130580001.20112,"+1,1,15,",.01)=3
737"BLD",7920,1,364,0)
738C0QFDA(1130580001.2011,"1,15,",3)=0
739"BLD",7920,1,365,0)
740C0QFDA(1130580001.2011,"2,15,",1.1)=1
741"BLD",7920,1,366,0)
742C0QFDA(1130580001.20111,"+1,2,15,",.01)=3
743"BLD",7920,1,367,0)
744C0QFDA(1130580001.2011,"2,15,",2.1)=1
745"BLD",7920,1,368,0)
746C0QFDA(1130580001.20112,"+1,2,15,",.01)=3
747"BLD",7920,1,369,0)
748C0QFDA(1130580001.2011,"2,15,",3)=100
749"BLD",7920,1,370,0)
750C0QFDA(1130580001.2011,"3,15,",1.1)=1
751"BLD",7920,1,371,0)
752C0QFDA(1130580001.20111,"+1,3,15,",.01)=3
753"BLD",7920,1,372,0)
754C0QFDA(1130580001.2011,"3,15,",2.1)=1
755"BLD",7920,1,373,0)
756C0QFDA(1130580001.20112,"+1,3,15,",.01)=3
757"BLD",7920,1,374,0)
758C0QFDA(1130580001.2011,"3,15,",3)=100
759"BLD",7920,1,375,0)
760C0QFDA(1130580001.2011,"1,16,",1.1)=0
761"BLD",7920,1,376,0)
762C0QFDA(1130580001.2011,"1,16,",2.1)=0
763"BLD",7920,1,377,0)
764C0QFDA(1130580001.2011,"1,16,",3)=0
765"BLD",7920,1,378,0)
766C0QFDA(1130580001.2011,"2,16,",1.1)=0
767"BLD",7920,1,379,0)
768C0QFDA(1130580001.2011,"2,16,",2.1)=0
769"BLD",7920,1,380,0)
770C0QFDA(1130580001.2011,"2,16,",3)=0
771"BLD",7920,1,381,0)
772C0QFDA(1130580001.2011,"3,16,",1.1)=0
773"BLD",7920,1,382,0)
774C0QFDA(1130580001.2011,"3,16,",2.1)=0
775"BLD",7920,1,383,0)
776C0QFDA(1130580001.2011,"3,16,",3)=0
777"BLD",7920,1,384,0)
778
779"BLD",7920,1,385,0)
780Select QUALITY MEASUREMENT MENU Option: PRINT C0Q MEASURES
781"BLD",7920,1,386,0)
782
783"BLD",7920,1,387,0)
784Select C0Q MEASUREMENT SET NAME: ACME
785"BLD",7920,1,388,0)
786 1 ACME CLINIC #1 PR
787"BLD",7920,1,389,0)
788 2 ACME CLINIC #1 QM
789"BLD",7920,1,390,0)
790CHOOSE 1-2: 1 ACME CLINIC #1 PR
791"BLD",7920,1,391,0)
792
793"BLD",7920,1,392,0)
794DEVICE: HOME// TELNET
795"BLD",7920,1,393,0)
796C0Q MEASUREMENTS LIST OCT 23,2012 12:05 PAGE 1
797"BLD",7920,1,394,0)
798MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE
799"BLD",7920,1,395,0)
800--------------------------------------------------------------------------------
801"BLD",7920,1,396,0)
802
803"BLD",7920,1,397,0)
804CPOE 1 0 0.00
805"BLD",7920,1,398,0)
806
807"BLD",7920,1,399,0)
808PROBLEMS 1 1 100.00
809"BLD",7920,1,400,0)
810
811"BLD",7920,1,401,0)
812ALLERGIES 1 1 100.00
813"BLD",7920,1,402,0)
814
815"BLD",7920,1,403,0)
816Select C0Q MEASUREMENT SET NAME: ACME
817"BLD",7920,1,404,0)
818 1 ACME CLINIC #1 PR
819"BLD",7920,1,405,0)
820 2 ACME CLINIC #1 QM
821"BLD",7920,1,406,0)
822CHOOSE 1-2: 2 ACME CLINIC #1 QM
823"BLD",7920,1,407,0)
824
825"BLD",7920,1,408,0)
826DEVICE: HOME// TELNET
827"BLD",7920,1,409,0)
828C0Q MEASUREMENTS LIST OCT 23,2012 12:05 PAGE 1
829"BLD",7920,1,410,0)
830MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE
831"BLD",7920,1,411,0)
832--------------------------------------------------------------------------------
833"BLD",7920,1,412,0)
834
835"BLD",7920,1,413,0)
836NQF0013 Hypertension: 0 0 0.00
837"BLD",7920,1,414,0)
838Blood Pressure
839"BLD",7920,1,415,0)
840Measurement
841"BLD",7920,1,416,0)
842
843"BLD",7920,1,417,0)
844NQF0028A Tobacco Use 0 0 0.00
845"BLD",7920,1,418,0)
846Assessment
847"BLD",7920,1,419,0)
848
849"BLD",7920,1,420,0)
850NQF0028B Tobacco Use 0 0 0.00
851"BLD",7920,1,421,0)
852Assessment and Cessation
853"BLD",7920,1,422,0)
854Intervention
855"BLD",7920,4,0)
856^9.64PA^1130580001.401^1
857"BLD",7920,4,1130580001.401,0)
8581130580001.401
859"BLD",7920,4,1130580001.401,2,0)
860^9.641^1130580001.401^1
861"BLD",7920,4,1130580001.401,2,1130580001.401,0)
862C0Q PARAMETER (File-top level)
863"BLD",7920,4,1130580001.401,2,1130580001.401,1,0)
864^9.6411^6.2^2
865"BLD",7920,4,1130580001.401,2,1130580001.401,1,6.1,0)
866MODEL PERFORMANCE MEASURE SET
867"BLD",7920,4,1130580001.401,2,1130580001.401,1,6.2,0)
868MODEL QUALITY MEASURE SET
869"BLD",7920,4,1130580001.401,222)
870y^n^p^^^^n^^n
871"BLD",7920,4,1130580001.401,224)
872
873"BLD",7920,4,"APDD",1130580001.401,1130580001.401)
874
875"BLD",7920,4,"APDD",1130580001.401,1130580001.401,6.1)
876
877"BLD",7920,4,"APDD",1130580001.401,1130580001.401,6.2)
878
879"BLD",7920,4,"B",1130580001.401,1130580001.401)
880
881"BLD",7920,6.3)
8823
883"BLD",7920,"KRN",0)
884^9.67PA^779.2^20
885"BLD",7920,"KRN",.4,0)
886.4
887"BLD",7920,"KRN",.401,0)
888.401
889"BLD",7920,"KRN",.402,0)
890.402
891"BLD",7920,"KRN",.402,"NM",0)
892^9.68A^1^1
893"BLD",7920,"KRN",.402,"NM",1,0)
894C0Q EDIT OUPATIENT PARMS FILE #1130580001.401^1130580001.401^0
895"BLD",7920,"KRN",.402,"NM","B","C0Q EDIT OUPATIENT PARMS FILE #1130580001.401",1)
896
897"BLD",7920,"KRN",.403,0)
898.403
899"BLD",7920,"KRN",.5,0)
900.5
901"BLD",7920,"KRN",.84,0)
902.84
903"BLD",7920,"KRN",3.6,0)
9043.6
905"BLD",7920,"KRN",3.8,0)
9063.8
907"BLD",7920,"KRN",9.2,0)
9089.2
909"BLD",7920,"KRN",9.8,0)
9109.8
911"BLD",7920,"KRN",9.8,"NM",0)
912^9.68A^2^2
913"BLD",7920,"KRN",9.8,"NM",1,0)
914C0QMU12^^0^B351357107
915"BLD",7920,"KRN",9.8,"NM",2,0)
916C0QMU123^^0^B4208272
917"BLD",7920,"KRN",9.8,"NM","B","C0QMU12",1)
918
919"BLD",7920,"KRN",9.8,"NM","B","C0QMU123",2)
920
921"BLD",7920,"KRN",19,0)
92219
923"BLD",7920,"KRN",19.1,0)
92419.1
925"BLD",7920,"KRN",101,0)
926101
927"BLD",7920,"KRN",409.61,0)
928409.61
929"BLD",7920,"KRN",771,0)
930771
931"BLD",7920,"KRN",779.2,0)
932779.2
933"BLD",7920,"KRN",870,0)
934870
935"BLD",7920,"KRN",8989.51,0)
9368989.51
937"BLD",7920,"KRN",8989.52,0)
9388989.52
939"BLD",7920,"KRN",8994,0)
9408994
941"BLD",7920,"KRN","B",.4,.4)
942
943"BLD",7920,"KRN","B",.401,.401)
944
945"BLD",7920,"KRN","B",.402,.402)
946
947"BLD",7920,"KRN","B",.403,.403)
948
949"BLD",7920,"KRN","B",.5,.5)
950
951"BLD",7920,"KRN","B",.84,.84)
952
953"BLD",7920,"KRN","B",3.6,3.6)
954
955"BLD",7920,"KRN","B",3.8,3.8)
956
957"BLD",7920,"KRN","B",9.2,9.2)
958
959"BLD",7920,"KRN","B",9.8,9.8)
960
961"BLD",7920,"KRN","B",19,19)
962
963"BLD",7920,"KRN","B",19.1,19.1)
964
965"BLD",7920,"KRN","B",101,101)
966
967"BLD",7920,"KRN","B",409.61,409.61)
968
969"BLD",7920,"KRN","B",771,771)
970
971"BLD",7920,"KRN","B",779.2,779.2)
972
973"BLD",7920,"KRN","B",870,870)
974
975"BLD",7920,"KRN","B",8989.51,8989.51)
976
977"BLD",7920,"KRN","B",8989.52,8989.52)
978
979"BLD",7920,"KRN","B",8994,8994)
980
981"BLD",7920,"QUES",0)
982^9.62^^
983"BLD",7920,"REQB",0)
984^9.611^^
985"FIA",1130580001.401)
986C0Q PARAMETER
987"FIA",1130580001.401,0)
988^C0Q(401,
989"FIA",1130580001.401,0,0)
9901130580001.401
991"FIA",1130580001.401,0,1)
992y^n^p^^^^n^^n
993"FIA",1130580001.401,0,10)
994
995"FIA",1130580001.401,0,11)
996
997"FIA",1130580001.401,0,"RLRO")
998
999"FIA",1130580001.401,0,"VR")
10001.0^C0Q
1001"FIA",1130580001.401,1130580001.401)
10021
1003"FIA",1130580001.401,1130580001.401,6.1)
1004
1005"FIA",1130580001.401,1130580001.401,6.2)
1006
1007"KRN",.402,1734,-1)
10080^1
1009"KRN",.402,1734,0)
1010C0Q EDIT OUPATIENT PARMS^3121019.1511^@^1130580001.401^^@^3121022
1011"KRN",.402,1734,"DIAB",1,1,1130580001.4013,0)
1012ALL
1013"KRN",.402,1734,"DIAB",1,1,1130580001.411,0)
1014ALL
1015"KRN",.402,1734,"DR",1,1130580001.401)
1016.01;.02;.03;2;2.1;2.2;2.3;3;6.1;6.2;
1017"KRN",.402,1734,"DR",2,1130580001.4013)
1018.01:.02
1019"KRN",.402,1734,"DR",2,1130580001.411)
1020.01
1021"MBREQ")
10220
1023"ORD",7,.402)
1024.402;7;;;EDEOUT^DIFROMSO(.402,DA,"",XPDA);FPRE^DIFROMSI(.402,"",XPDA);EPRE^DIFROMSI(.402,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.402,DA,"",XPDA);DEL^DIFROMSK(.402,"",%)
1025"ORD",7,.402,0)
1026INPUT TEMPLATE
1027"PKG",214,-1)
10281^1
1029"PKG",214,0)
1030QUALITY MEASURES^C0Q^Tracks and Prints Quality Measures
1031"PKG",214,20,0)
1032^9.402P^^
1033"PKG",214,22,0)
1034^9.49I^1^1
1035"PKG",214,22,1,0)
10361.0^3120731^3121002^8
1037"PKG",214,22,1,"PAH",1,0)
10386^3121023
1039"PKG",214,22,1,"PAH",1,1,0)
1040^^422^422^3121023
1041"PKG",214,22,1,"PAH",1,1,1,0)
1042 Source, Copyright, & Licensing:
1043"PKG",214,22,1,"PAH",1,1,2,0)
1044 ===============================
1045"PKG",214,22,1,"PAH",1,1,3,0)
1046 This patch to WorldVistA 2.0 was produced in a WV 3/09 Environment by George
1047"PKG",214,22,1,"PAH",1,1,4,0)
1048Lily on 23 October 2012 and released through VISTA Forum.
1049"PKG",214,22,1,"PAH",1,1,5,0)
1050
1051"PKG",214,22,1,"PAH",1,1,6,0)
1052 (C) Geroge Lilly 2012
1053"PKG",214,22,1,"PAH",1,1,7,0)
1054 Licensed under Package License: AGPL v3.
1055"PKG",214,22,1,"PAH",1,1,8,0)
1056
1057"PKG",214,22,1,"PAH",1,1,9,0)
1058 http://www.gnu.org/licenses/agpl-3.0.html
1059"PKG",214,22,1,"PAH",1,1,10,0)
1060
1061"PKG",214,22,1,"PAH",1,1,11,0)
1062 Functionality:
1063"PKG",214,22,1,"PAH",1,1,12,0)
1064 ==============
1065"PKG",214,22,1,"PAH",1,1,13,0)
1066 This patch adds support for using model Measurement Sets for creating a new
1067"PKG",214,22,1,"PAH",1,1,14,0)
1068Measurement Sets based on the model Measurement Sets. Usage instructions will
1069"PKG",214,22,1,"PAH",1,1,15,0)
1070be found at the end of this patch message.
1071"PKG",214,22,1,"PAH",1,1,16,0)
1072
1073"PKG",214,22,1,"PAH",1,1,17,0)
1074 Support Tickets:
1075"PKG",214,22,1,"PAH",1,1,18,0)
1076 <None>
1077"PKG",214,22,1,"PAH",1,1,19,0)
1078
1079"PKG",214,22,1,"PAH",1,1,20,0)
1080 Package Elements:
1081"PKG",214,22,1,"PAH",1,1,21,0)
1082 =================
1083"PKG",214,22,1,"PAH",1,1,22,0)
1084 UP SEND DATA USER
1085"PKG",214,22,1,"PAH",1,1,23,0)
1086 DATE SEC. COMES SITE RSLV OVER
1087"PKG",214,22,1,"PAH",1,1,24,0)
1088FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE
1089"PKG",214,22,1,"PAH",1,1,25,0)
1090-------------------------------------------------------------------------------
1091"PKG",214,22,1,"PAH",1,1,26,0)
1092
1093"PKG",214,22,1,"PAH",1,1,27,0)
10941130580001.401C0Q PARAMETER YES NO NO NO
1095"PKG",214,22,1,"PAH",1,1,28,0)
1096Partial DD: subDD: 1130580001.401fld: 6.1
1097"PKG",214,22,1,"PAH",1,1,29,0)
1098 fld: 6.2
1099"PKG",214,22,1,"PAH",1,1,30,0)
1100
1101"PKG",214,22,1,"PAH",1,1,31,0)
1102INPUT TEMPLATE: ACTION:
1103"PKG",214,22,1,"PAH",1,1,32,0)
1104 C0Q EDIT OUPATIENT PARMS FILE #1130580001.401SEND TO SITE
1105"PKG",214,22,1,"PAH",1,1,33,0)
1106
1107"PKG",214,22,1,"PAH",1,1,34,0)
1108ROUTINE: ACTION:
1109"PKG",214,22,1,"PAH",1,1,35,0)
1110 C0QMU12 SEND TO SITE
1111"PKG",214,22,1,"PAH",1,1,36,0)
1112 C0QMU123 SEND TO SITE
1113"PKG",214,22,1,"PAH",1,1,37,0)
1114 Test Sites:
1115"PKG",214,22,1,"PAH",1,1,38,0)
1116 ===========
1117"PKG",214,22,1,"PAH",1,1,39,0)
1118 <None>
1119"PKG",214,22,1,"PAH",1,1,40,0)
1120
1121"PKG",214,22,1,"PAH",1,1,41,0)
1122 Compliance:
1123"PKG",214,22,1,"PAH",1,1,42,0)
1124 ===========
1125"PKG",214,22,1,"PAH",1,1,43,0)
1126 This software complies with the VA MUMPS Programming Standards and
1127"PKG",214,22,1,"PAH",1,1,44,0)
1128 Conventions (version 3 April 2007), with the following exception:
1129"PKG",214,22,1,"PAH",1,1,45,0)
1130
1131"PKG",214,22,1,"PAH",1,1,46,0)
1132 C0QMU12 * * 591 Lines, 20662 Bytes, Checksum: B351357107
1133"PKG",214,22,1,"PAH",1,1,47,0)
1134 S - Routine exceeds SACC maximum size of 20000 (20662).
1135"PKG",214,22,1,"PAH",1,1,48,0)
1136 S - Routine code exceeds SACC maximum size of 15000 (16922).
1137"PKG",214,22,1,"PAH",1,1,49,0)
1138
1139"PKG",214,22,1,"PAH",1,1,50,0)
1140
1141"PKG",214,22,1,"PAH",1,1,51,0)
1142 This software has not been tested for 508 compliance.
1143"PKG",214,22,1,"PAH",1,1,52,0)
1144
1145"PKG",214,22,1,"PAH",1,1,53,0)
1146 Installation Instructions:
1147"PKG",214,22,1,"PAH",1,1,54,0)
1148 ==========================
1149"PKG",214,22,1,"PAH",1,1,55,0)
1150 Install Time - less than 1 minute
1151"PKG",214,22,1,"PAH",1,1,56,0)
1152
1153"PKG",214,22,1,"PAH",1,1,57,0)
1154 1. LOAD TRANSPORT GLOBAL
1155"PKG",214,22,1,"PAH",1,1,58,0)
1156
1157"PKG",214,22,1,"PAH",1,1,59,0)
1158 Choose the PackMan message containing this patch and invoke the
1159"PKG",214,22,1,"PAH",1,1,60,0)
1160 INSTALL/CHECK MESSAGE PackMan option to unload the build.
1161"PKG",214,22,1,"PAH",1,1,61,0)
1162
1163"PKG",214,22,1,"PAH",1,1,62,0)
1164 2. START UP KIDS
1165"PKG",214,22,1,"PAH",1,1,63,0)
1166
1167"PKG",214,22,1,"PAH",1,1,64,0)
1168 Start up the Kernel Installation and Distribution System Menu
1169"PKG",214,22,1,"PAH",1,1,65,0)
1170 [XPD MAIN]:
1171"PKG",214,22,1,"PAH",1,1,66,0)
1172
1173"PKG",214,22,1,"PAH",1,1,67,0)
1174 Edits and Distribution ...
1175"PKG",214,22,1,"PAH",1,1,68,0)
1176 Utilities ...
1177"PKG",214,22,1,"PAH",1,1,69,0)
1178 Installation ...
1179"PKG",214,22,1,"PAH",1,1,70,0)
1180
1181"PKG",214,22,1,"PAH",1,1,71,0)
1182 Select Kernel Installation & Distribution System Option: INStallation
1183"PKG",214,22,1,"PAH",1,1,72,0)
1184 ---
1185"PKG",214,22,1,"PAH",1,1,73,0)
1186 Load a Distribution
1187"PKG",214,22,1,"PAH",1,1,74,0)
1188 Print Transport Global
1189"PKG",214,22,1,"PAH",1,1,75,0)
1190 Compare Transport Global to Current System
1191"PKG",214,22,1,"PAH",1,1,76,0)
1192 Verify Checksums in Transport Global
1193"PKG",214,22,1,"PAH",1,1,77,0)
1194 Install Package(s)
1195"PKG",214,22,1,"PAH",1,1,78,0)
1196 Restart Install of Package(s)
1197"PKG",214,22,1,"PAH",1,1,79,0)
1198 Unload a Distribution
1199"PKG",214,22,1,"PAH",1,1,80,0)
1200 Backup a Transport Global
1201"PKG",214,22,1,"PAH",1,1,81,0)
1202
1203"PKG",214,22,1,"PAH",1,1,82,0)
1204 Select Installation Option:
1205"PKG",214,22,1,"PAH",1,1,83,0)
1206
1207"PKG",214,22,1,"PAH",1,1,84,0)
1208 3. Select Installation Option:
1209"PKG",214,22,1,"PAH",1,1,85,0)
1210
1211"PKG",214,22,1,"PAH",1,1,86,0)
1212 NOTE: The following are OPTIONAL - (When prompted for the INSTALL
1213"PKG",214,22,1,"PAH",1,1,87,0)
1214 NAME, enter C0Q*1.0*6):
1215"PKG",214,22,1,"PAH",1,1,88,0)
1216
1217"PKG",214,22,1,"PAH",1,1,89,0)
1218 a. Backup a Transport Global - This option will create a backup
1219"PKG",214,22,1,"PAH",1,1,90,0)
1220 message of any routines exported with this patch. It will not
1221"PKG",214,22,1,"PAH",1,1,91,0)
1222 backup any other changes such as DD's or templates.
1223"PKG",214,22,1,"PAH",1,1,92,0)
1224 b. Compare Transport Global to Current System - This option will
1225"PKG",214,22,1,"PAH",1,1,93,0)
1226 allow you to view all changes that will be made when this patch
1227"PKG",214,22,1,"PAH",1,1,94,0)
1228 is installed. It compares all components of this patch
1229"PKG",214,22,1,"PAH",1,1,95,0)
1230 (routines, DD's, templates, etc.).
1231"PKG",214,22,1,"PAH",1,1,96,0)
1232 c. Verify Checksums in Transport Global - This option will allow
1233"PKG",214,22,1,"PAH",1,1,97,0)
1234 you to ensure the integrity of the routines that are in the
1235"PKG",214,22,1,"PAH",1,1,98,0)
1236 transport global.
1237"PKG",214,22,1,"PAH",1,1,99,0)
1238
1239"PKG",214,22,1,"PAH",1,1,100,0)
1240 4. Select Installation Option: Install Package(s)
1241"PKG",214,22,1,"PAH",1,1,101,0)
1242
1243"PKG",214,22,1,"PAH",1,1,102,0)
1244 **This is the step to start the installation of this KIDS patch:
1245"PKG",214,22,1,"PAH",1,1,103,0)
1246
1247"PKG",214,22,1,"PAH",1,1,104,0)
1248 a. Choose the Install Package(s) option to start the patch install
1249"PKG",214,22,1,"PAH",1,1,105,0)
1250 and enter "C0Q*1.0*6" at the INSTALL NAME prompt. As part of the
1251"PKG",214,22,1,"PAH",1,1,106,0)
1252 Environment Check routine, the message below will display
1253"PKG",214,22,1,"PAH",1,1,107,0)
1254 b. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of
1255"PKG",214,22,1,"PAH",1,1,108,0)
1256 Install? NO//' answer NO
1257"PKG",214,22,1,"PAH",1,1,109,0)
1258 c. When prompted 'Want KIDS to INHIBIT LOGONs during the install?
1259"PKG",214,22,1,"PAH",1,1,110,0)
1260 NO//' answer NO
1261"PKG",214,22,1,"PAH",1,1,111,0)
1262 d. When prompted 'Want to DISABLE Scheduled Options, Menu Options,
1263"PKG",214,22,1,"PAH",1,1,112,0)
1264 and Protocols? NO//' answer NO
1265"PKG",214,22,1,"PAH",1,1,113,0)
1266
1267"PKG",214,22,1,"PAH",1,1,114,0)
1268Install Transcript:
1269"PKG",214,22,1,"PAH",1,1,115,0)
1270Select OPTION NAME: XPD MAIN Kernel Installation & Distribution System
1271"PKG",214,22,1,"PAH",1,1,116,0)
1272
1273"PKG",214,22,1,"PAH",1,1,117,0)
1274Select Kernel Installation & Distribution System Option: INStallation
1275"PKG",214,22,1,"PAH",1,1,118,0)
1276
1277"PKG",214,22,1,"PAH",1,1,119,0)
1278Select Installation Option: 1 Load a Distribution
1279"PKG",214,22,1,"PAH",1,1,120,0)
1280Enter a Host File: C0Q*1.0*6
1281"PKG",214,22,1,"PAH",1,1,121,0)
1282
1283"PKG",214,22,1,"PAH",1,1,122,0)
1284KIDS Distribution saved on Oct 22, 2012@17:41:17
1285"PKG",214,22,1,"PAH",1,1,123,0)
1286Comment: FRDGHJKLFGHJKL
1287"PKG",214,22,1,"PAH",1,1,124,0)
1288
1289"PKG",214,22,1,"PAH",1,1,125,0)
1290This Distribution contains Transport Globals for the following Package(s):
1291"PKG",214,22,1,"PAH",1,1,126,0)
1292 C0Q*1.0*6
1293"PKG",214,22,1,"PAH",1,1,127,0)
1294Distribution OK!
1295"PKG",214,22,1,"PAH",1,1,128,0)
1296
1297"PKG",214,22,1,"PAH",1,1,129,0)
1298Want to Continue with Load? YES//
1299"PKG",214,22,1,"PAH",1,1,130,0)
1300Loading Distribution...
1301"PKG",214,22,1,"PAH",1,1,131,0)
1302
1303"PKG",214,22,1,"PAH",1,1,132,0)
1304 C0Q*1.0*6
1305"PKG",214,22,1,"PAH",1,1,133,0)
1306Use INSTALL NAME: C0Q*1.0*6 to install this Distribution.
1307"PKG",214,22,1,"PAH",1,1,134,0)
1308
1309"PKG",214,22,1,"PAH",1,1,135,0)
1310Select Installation Option: 6 Install Package(s)
1311"PKG",214,22,1,"PAH",1,1,136,0)
1312Select INSTALL NAME: C0Q*1.0*6 Loaded from Distribution Loaded from Di
1313"PKG",214,22,1,"PAH",1,1,137,0)
1314stribution 10/23/12@11:46:32
1315"PKG",214,22,1,"PAH",1,1,138,0)
1316 => FRDGHJKLFGHJKL ;Created on Oct 22, 2012@17:41:17
1317"PKG",214,22,1,"PAH",1,1,139,0)
1318
1319"PKG",214,22,1,"PAH",1,1,140,0)
1320This Distribution was loaded on Oct 23, 2012@11:46:32 with header of
1321"PKG",214,22,1,"PAH",1,1,141,0)
1322 FRDGHJKLFGHJKL ;Created on Oct 22, 2012@17:41:17
1323"PKG",214,22,1,"PAH",1,1,142,0)
1324 It consisted of the following Install(s):
1325"PKG",214,22,1,"PAH",1,1,143,0)
1326 C0Q*1.0*6
1327"PKG",214,22,1,"PAH",1,1,144,0)
1328
1329"PKG",214,22,1,"PAH",1,1,145,0)
1330 Checking C0Q*1.0*6 for overlap with VOE 1.0 ... OK
1331"PKG",214,22,1,"PAH",1,1,146,0)
1332 No overlap found
1333"PKG",214,22,1,"PAH",1,1,147,0)
1334
1335"PKG",214,22,1,"PAH",1,1,148,0)
1336 Checking C0Q*1.0*6 for overlap with VOE 1.1 ... OK
1337"PKG",214,22,1,"PAH",1,1,149,0)
1338 No overlap found
1339"PKG",214,22,1,"PAH",1,1,150,0)
1340
1341"PKG",214,22,1,"PAH",1,1,151,0)
1342 Checking C0Q*1.0*6 for overlap with NO HOME 1.0 ... OK
1343"PKG",214,22,1,"PAH",1,1,152,0)
1344 No overlap found
1345"PKG",214,22,1,"PAH",1,1,153,0)
1346
1347"PKG",214,22,1,"PAH",1,1,154,0)
1348Checking Install for Package C0Q*1.0*6
1349"PKG",214,22,1,"PAH",1,1,155,0)
1350
1351"PKG",214,22,1,"PAH",1,1,156,0)
1352Install Questions for C0Q*1.0*6
1353"PKG",214,22,1,"PAH",1,1,157,0)
1354
1355"PKG",214,22,1,"PAH",1,1,158,0)
1356Incoming Files:
1357"PKG",214,22,1,"PAH",1,1,159,0)
1358
1359"PKG",214,22,1,"PAH",1,1,160,0)
1360 1130580001.401C0Q PARAMETER (Partial Definition)
1361"PKG",214,22,1,"PAH",1,1,161,0)
1362Note: You already have the 'C0Q PARAMETER' File.
1363"PKG",214,22,1,"PAH",1,1,162,0)
1364
1365"PKG",214,22,1,"PAH",1,1,163,0)
1366Want KIDS to INHIBIT LOGONs during the install? NO//
1367"PKG",214,22,1,"PAH",1,1,164,0)
1368Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO//
1369"PKG",214,22,1,"PAH",1,1,165,0)
1370
1371"PKG",214,22,1,"PAH",1,1,166,0)
1372Enter the Device you want to print the Install messages.
1373"PKG",214,22,1,"PAH",1,1,167,0)
1374You can queue the install by enter a 'Q' at the device prompt.
1375"PKG",214,22,1,"PAH",1,1,168,0)
1376Enter a '^' to abort the install.
1377"PKG",214,22,1,"PAH",1,1,169,0)
1378
1379"PKG",214,22,1,"PAH",1,1,170,0)
1380DEVICE: HOME// 0;P-OTHER;80;9999 TELNET
1381"PKG",214,22,1,"PAH",1,1,171,0)
1382
1383"PKG",214,22,1,"PAH",1,1,172,0)
1384 Install Started for C0Q*1.0*6 :
1385"PKG",214,22,1,"PAH",1,1,173,0)
1386 Oct 23, 2012@11:46:53
1387"PKG",214,22,1,"PAH",1,1,174,0)
1388
1389"PKG",214,22,1,"PAH",1,1,175,0)
1390Build Distribution Date: Oct 22, 2012
1391"PKG",214,22,1,"PAH",1,1,176,0)
1392
1393"PKG",214,22,1,"PAH",1,1,177,0)
1394 Installing Routines:...
1395"PKG",214,22,1,"PAH",1,1,178,0)
1396 Oct 23, 2012@11:46:53
1397"PKG",214,22,1,"PAH",1,1,179,0)
1398
1399"PKG",214,22,1,"PAH",1,1,180,0)
1400 Installing Data Dictionaries: ..
1401"PKG",214,22,1,"PAH",1,1,181,0)
1402 Oct 23, 2012@11:46:54
1403"PKG",214,22,1,"PAH",1,1,182,0)
1404
1405"PKG",214,22,1,"PAH",1,1,183,0)
1406 Installing PACKAGE COMPONENTS:
1407"PKG",214,22,1,"PAH",1,1,184,0)
1408
1409"PKG",214,22,1,"PAH",1,1,185,0)
1410 Installing INPUT TEMPLATE..
1411"PKG",214,22,1,"PAH",1,1,186,0)
1412 Oct 23, 2012@11:46:54
1413"PKG",214,22,1,"PAH",1,1,187,0)
1414
1415"PKG",214,22,1,"PAH",1,1,188,0)
1416 Updating Routine file......
1417"PKG",214,22,1,"PAH",1,1,189,0)
1418
1419"PKG",214,22,1,"PAH",1,1,190,0)
1420 Updating KIDS files.......
1421"PKG",214,22,1,"PAH",1,1,191,0)
1422
1423"PKG",214,22,1,"PAH",1,1,192,0)
1424 C0Q*1.0*6 Installed.
1425"PKG",214,22,1,"PAH",1,1,193,0)
1426 Oct 23, 2012@11:46:54
1427"PKG",214,22,1,"PAH",1,1,194,0)
1428
1429"PKG",214,22,1,"PAH",1,1,195,0)
1430 Not a VA primary domain
1431"PKG",214,22,1,"PAH",1,1,196,0)
1432
1433"PKG",214,22,1,"PAH",1,1,197,0)
1434 NO Install Message sent
1435"PKG",214,22,1,"PAH",1,1,198,0)
1436
1437"PKG",214,22,1,"PAH",1,1,199,0)
1438Select Installation Option:
1439"PKG",214,22,1,"PAH",1,1,200,0)
1440----------------------------
1441"PKG",214,22,1,"PAH",1,1,201,0)
1442
1443"PKG",214,22,1,"PAH",1,1,202,0)
1444Usage instructions:
1445"PKG",214,22,1,"PAH",1,1,203,0)
1446===================
1447"PKG",214,22,1,"PAH",1,1,204,0)
14481. Create two measure sets, one for Performance Measures, and one for Quality
1449"PKG",214,22,1,"PAH",1,1,205,0)
1450Measures. If you have ones already created for other clinics, you can use them.
1451"PKG",214,22,1,"PAH",1,1,206,0)
1452It's okay for them to have filter lists, as these will be deleted by the
1453"PKG",214,22,1,"PAH",1,1,207,0)
1454software when the measure set is being copied.
1455"PKG",214,22,1,"PAH",1,1,208,0)
1456
1457"PKG",214,22,1,"PAH",1,1,209,0)
14582. Attach these measure sets to an Outpatient Parameter in the fields: MODEL
1459"PKG",214,22,1,"PAH",1,1,210,0)
1460PERFORMANCE MEASURE SET and MODEL QUALITY MEASURE SET. NB: The purpose of
1461"PKG",214,22,1,"PAH",1,1,211,0)
1462these fields is to generate the a measure set to use in the fields EP MU
1463"PKG",214,22,1,"PAH",1,1,212,0)
1464MEASUREMENT SET and EP QUALITY MEASUREMENT SET, respectively. If you have these
1465"PKG",214,22,1,"PAH",1,1,213,0)
1466filled out, the Model fields will have no effect.
1467"PKG",214,22,1,"PAH",1,1,214,0)
1468
1469"PKG",214,22,1,"PAH",1,1,215,0)
14703. Run the option EP UPDATE MU MEASURES. This create new measure sets based on
1471"PKG",214,22,1,"PAH",1,1,216,0)
1472the model measure sets and attach the appropriate filter lists.
1473"PKG",214,22,1,"PAH",1,1,217,0)
1474
1475"PKG",214,22,1,"PAH",1,1,218,0)
1476Miscellaneous remarks: If a model set is replaced and the option to update is
1477"PKG",214,22,1,"PAH",1,1,219,0)
1478reran, the behavior is not to delete the old created measure set but rather to
1479"PKG",214,22,1,"PAH",1,1,220,0)
1480merge the contents of the new model set into the old created measure set. I am
1481"PKG",214,22,1,"PAH",1,1,221,0)
1482not sure if this is the desirable behavior, but that is how it currently works.
1483"PKG",214,22,1,"PAH",1,1,222,0)
1484
1485"PKG",214,22,1,"PAH",1,1,223,0)
1486Transcript:
1487"PKG",214,22,1,"PAH",1,1,224,0)
1488Select QUALITY MEASUREMENT MENU Option: ?
1489"PKG",214,22,1,"PAH",1,1,225,0)
1490
1491"PKG",214,22,1,"PAH",1,1,226,0)
1492 COPY OVER PATIENT LISTS
1493"PKG",214,22,1,"PAH",1,1,227,0)
1494 ED-1 COMPUTATION
1495"PKG",214,22,1,"PAH",1,1,228,0)
1496 ED-2 COMPUTATION
1497"PKG",214,22,1,"PAH",1,1,229,0)
1498 EP UPDATE MU MEASURES
1499"PKG",214,22,1,"PAH",1,1,230,0)
1500 INP UPDATE MU MEASURES
1501"PKG",214,22,1,"PAH",1,1,231,0)
1502 PQRI MENU ...
1503"PKG",214,22,1,"PAH",1,1,232,0)
1504 PQRI PRINT XML
1505"PKG",214,22,1,"PAH",1,1,233,0)
1506 PRINT C0Q MEASURES
1507"PKG",214,22,1,"PAH",1,1,234,0)
1508 QRDA MENU ...
1509"PKG",214,22,1,"PAH",1,1,235,0)
1510 SETUP QUALITY REPORTING ...
1511"PKG",214,22,1,"PAH",1,1,236,0)
1512
1513"PKG",214,22,1,"PAH",1,1,237,0)
1514Enter ?? for more options, ??? for brief descriptions, ?OPTION for help text.
1515"PKG",214,22,1,"PAH",1,1,238,0)
1516
1517"PKG",214,22,1,"PAH",1,1,239,0)
1518Select QUALITY MEASUREMENT MENU Option: PRINT C0Q MEASURES
1519"PKG",214,22,1,"PAH",1,1,240,0)
1520
1521"PKG",214,22,1,"PAH",1,1,241,0)
1522Select C0Q MEASUREMENT SET NAME: DR OFF
1523"PKG",214,22,1,"PAH",1,1,242,0)
1524 1 DR OFFICE PERFORMANCE MEASURES
1525"PKG",214,22,1,"PAH",1,1,243,0)
1526 2 DR OFFICE QUALITY MEASURES
1527"PKG",214,22,1,"PAH",1,1,244,0)
1528CHOOSE 1-2: 1 DR OFFICE PERFORMANCE MEASURES
1529"PKG",214,22,1,"PAH",1,1,245,0)
1530
1531"PKG",214,22,1,"PAH",1,1,246,0)
1532DEVICE: HOME// TELNET
1533"PKG",214,22,1,"PAH",1,1,247,0)
1534C0Q MEASUREMENTS LIST OCT 23,2012 12:04 PAGE 1
1535"PKG",214,22,1,"PAH",1,1,248,0)
1536MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE
1537"PKG",214,22,1,"PAH",1,1,249,0)
1538--------------------------------------------------------------------------------
1539"PKG",214,22,1,"PAH",1,1,250,0)
1540
1541"PKG",214,22,1,"PAH",1,1,251,0)
1542CPOE 3 0 0.00
1543"PKG",214,22,1,"PAH",1,1,252,0)
1544
1545"PKG",214,22,1,"PAH",1,1,253,0)
1546PROBLEMS 3 3 100.00
1547"PKG",214,22,1,"PAH",1,1,254,0)
1548
1549"PKG",214,22,1,"PAH",1,1,255,0)
1550ALLERGIES 3 3 100.00
1551"PKG",214,22,1,"PAH",1,1,256,0)
1552
1553"PKG",214,22,1,"PAH",1,1,257,0)
1554Select C0Q MEASUREMENT SET NAME: DR OFF
1555"PKG",214,22,1,"PAH",1,1,258,0)
1556 1 DR OFFICE PERFORMANCE MEASURES
1557"PKG",214,22,1,"PAH",1,1,259,0)
1558 2 DR OFFICE QUALITY MEASURES
1559"PKG",214,22,1,"PAH",1,1,260,0)
1560CHOOSE 1-2: 2 DR OFFICE QUALITY MEASURES
1561"PKG",214,22,1,"PAH",1,1,261,0)
1562
1563"PKG",214,22,1,"PAH",1,1,262,0)
1564DEVICE: HOME// TELNET
1565"PKG",214,22,1,"PAH",1,1,263,0)
1566C0Q MEASUREMENTS LIST OCT 23,2012 12:04 PAGE 1
1567"PKG",214,22,1,"PAH",1,1,264,0)
1568MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE
1569"PKG",214,22,1,"PAH",1,1,265,0)
1570--------------------------------------------------------------------------------
1571"PKG",214,22,1,"PAH",1,1,266,0)
1572
1573"PKG",214,22,1,"PAH",1,1,267,0)
1574NQF0013 Hypertension: 0 0 0.00
1575"PKG",214,22,1,"PAH",1,1,268,0)
1576Blood Pressure
1577"PKG",214,22,1,"PAH",1,1,269,0)
1578Measurement
1579"PKG",214,22,1,"PAH",1,1,270,0)
1580
1581"PKG",214,22,1,"PAH",1,1,271,0)
1582NQF0028A Tobacco Use 0 0 0.00
1583"PKG",214,22,1,"PAH",1,1,272,0)
1584Assessment
1585"PKG",214,22,1,"PAH",1,1,273,0)
1586
1587"PKG",214,22,1,"PAH",1,1,274,0)
1588NQF0028B Tobacco Use 0 0 0.00
1589"PKG",214,22,1,"PAH",1,1,275,0)
1590Assessment and Cessation
1591"PKG",214,22,1,"PAH",1,1,276,0)
1592Intervention
1593"PKG",214,22,1,"PAH",1,1,277,0)
1594
1595"PKG",214,22,1,"PAH",1,1,278,0)
1596Select C0Q MEASUREMENT SET NAME:
1597"PKG",214,22,1,"PAH",1,1,279,0)
1598
1599"PKG",214,22,1,"PAH",1,1,280,0)
1600Select QUALITY MEASUREMENT MENU Option: SETUP QUALITY REPORTING
1601"PKG",214,22,1,"PAH",1,1,281,0)
1602
1603"PKG",214,22,1,"PAH",1,1,282,0)
1604Select SETUP QUALITY REPORTING Option: EP EDIT PARMS
1605"PKG",214,22,1,"PAH",1,1,283,0)
1606
1607"PKG",214,22,1,"PAH",1,1,284,0)
1608Select C0Q PARAMETER NAME: ACME CLINIC #1
1609"PKG",214,22,1,"PAH",1,1,285,0)
1610 Are you adding 'ACME CLINIC #1' as a new C0Q PARAMETER (the 2ND)? No// Y
1611"PKG",214,22,1,"PAH",1,1,286,0)
1612 (Yes)
1613"PKG",214,22,1,"PAH",1,1,287,0)
1614NAME: ACME CLINIC #1//
1615"PKG",214,22,1,"PAH",1,1,288,0)
1616MEASUREMENT PERIOD KEY: MU12
1617"PKG",214,22,1,"PAH",1,1,289,0)
1618PARAMETER TYPE: OU OUTPATIENT
1619"PKG",214,22,1,"PAH",1,1,290,0)
1620EP MU MEASUREMENT SET:
1621"PKG",214,22,1,"PAH",1,1,291,0)
1622EP QUALITY MEASUREMENT SET:
1623"PKG",214,22,1,"PAH",1,1,292,0)
1624Select CLINIC: ACME CLINIC #1
1625"PKG",214,22,1,"PAH",1,1,293,0)
1626 Are you adding 'ACME CLINIC #1' as a new CLINIC (the 1ST for this C0Q PARAMET
1627"PKG",214,22,1,"PAH",1,1,294,0)
1628ER)? No// Y (Yes)
1629"PKG",214,22,1,"PAH",1,1,295,0)
1630Select CLINIC:
1631"PKG",214,22,1,"PAH",1,1,296,0)
1632PATIENT LIST LABEL:
1633"PKG",214,22,1,"PAH",1,1,297,0)
1634Select SUBSCRIBER:
1635"PKG",214,22,1,"PAH",1,1,298,0)
1636MODEL PERFORMANCE MEASURE SET: DR,P DR OFFICE PERFORMANCE MEASURES
1637"PKG",214,22,1,"PAH",1,1,299,0)
1638MODEL QUALITY MEASURE SET: DR,Q DR OFFICE QUALITY MEASURES
1639"PKG",214,22,1,"PAH",1,1,300,0)
1640
1641"PKG",214,22,1,"PAH",1,1,301,0)
1642Select C0Q PARAMETER NAME:
1643"PKG",214,22,1,"PAH",1,1,302,0)
1644
1645"PKG",214,22,1,"PAH",1,1,303,0)
1646Select SETUP QUALITY REPORTING Option:
1647"PKG",214,22,1,"PAH",1,1,304,0)
1648
1649"PKG",214,22,1,"PAH",1,1,305,0)
1650Select QUALITY MEASUREMENT MENU Option: EP UPDATE MU MEASURES
1651"PKG",214,22,1,"PAH",1,1,306,0)
1652Jan 04, 2008@19:14:59
1653"PKG",214,22,1,"PAH",1,1,307,0)
1654Jan 02, 2008@18:40:58
1655"PKG",214,22,1,"PAH",1,1,308,0)
1656Nov 26, 2005@13:10:24
1657"PKG",214,22,1,"PAH",1,1,309,0)
1658Nov 26, 2005@14:12:42
1659"PKG",214,22,1,"PAH",1,1,310,0)
1660Nov 25, 2005@20:31:13
1661"PKG",214,22,1,"PAH",1,1,311,0)
1662Aug 02, 2005@08:40:36
1663"PKG",214,22,1,"PAH",1,1,312,0)
1664Aug 01, 2005@15:08:49
1665"PKG",214,22,1,"PAH",1,1,313,0)
1666Aug 01, 2005@15:21:18
1667"PKG",214,22,1,"PAH",1,1,314,0)
1668Jul 29, 2005@11:44:36
1669"PKG",214,22,1,"PAH",1,1,315,0)
1670Jul 29, 2005@11:53:15
1671"PKG",214,22,1,"PAH",1,1,316,0)
1672Jul 29, 2005@12:04:45
1673"PKG",214,22,1,"PAH",1,1,317,0)
1674Jul 28, 2005@12:20:20
1675"PKG",214,22,1,"PAH",1,1,318,0)
1676Jul 28, 2005@16:16:03
1677"PKG",214,22,1,"PAH",1,1,319,0)
1678Jul 27, 2005@11:21:04
1679"PKG",214,22,1,"PAH",1,1,320,0)
1680Jul 27, 2005@11:24:55
1681"PKG",214,22,1,"PAH",1,1,321,0)
1682Jul 27, 2005@11:41:40
1683"PKG",214,22,1,"PAH",1,1,322,0)
1684Jul 27, 2005@11:47:38
1685"PKG",214,22,1,"PAH",1,1,323,0)
1686Jul 27, 2005@11:49:41
1687"PKG",214,22,1,"PAH",1,1,324,0)
1688Jul 27, 2005@11:50:26
1689"PKG",214,22,1,"PAH",1,1,325,0)
1690Jul 27, 2005@15:45:45
1691"PKG",214,22,1,"PAH",1,1,326,0)
1692Jul 25, 2005@08:37:24
1693"PKG",214,22,1,"PAH",1,1,327,0)
1694Jul 24, 2005@11:01:55
1695"PKG",214,22,1,"PAH",1,1,328,0)
1696Jul 24, 2005@14:22:11
1697"PKG",214,22,1,"PAH",1,1,329,0)
1698Jul 24, 2005@16:22:29
1699"PKG",214,22,1,"PAH",1,1,330,0)
1700Jul 24, 2005@17:17:01
1701"PKG",214,22,1,"PAH",1,1,331,0)
1702Jul 24, 2005@17:33:39
1703"PKG",214,22,1,"PAH",1,1,332,0)
1704Jul 23, 2005@16:14:54
1705"PKG",214,22,1,"PAH",1,1,333,0)
1706Jul 23, 2005@17:17:08
1707"PKG",214,22,1,"PAH",1,1,334,0)
1708Jul 23, 2005@17:24:01
1709"PKG",214,22,1,"PAH",1,1,335,0)
1710Jul 22, 2005@10:49:29
1711"PKG",214,22,1,"PAH",1,1,336,0)
1712Jul 22, 2005@16:46:52
1713"PKG",214,22,1,"PAH",1,1,337,0)
1714Jul 21, 2005@08:56:56
1715"PKG",214,22,1,"PAH",1,1,338,0)
1716Jul 21, 2005@12:10:54
1717"PKG",214,22,1,"PAH",1,1,339,0)
1718Jul 21, 2005@15:39:22
1719"PKG",214,22,1,"PAH",1,1,340,0)
1720Jul 21, 2005@15:39:29
1721"PKG",214,22,1,"PAH",1,1,341,0)
1722Jul 20, 2005@10:07:46
1723"PKG",214,22,1,"PAH",1,1,342,0)
1724Jul 20, 2005@10:44:03
1725"PKG",214,22,1,"PAH",1,1,343,0)
1726Jul 19, 2005@07:41:49
1727"PKG",214,22,1,"PAH",1,1,344,0)
1728Jul 19, 2005@08:52:13
1729"PKG",214,22,1,"PAH",1,1,345,0)
1730Jul 19, 2005@11:32:14
1731"PKG",214,22,1,"PAH",1,1,346,0)
1732Jul 19, 2005@11:36:08
1733"PKG",214,22,1,"PAH",1,1,347,0)
1734Jul 19, 2005@13:35:12
1735"PKG",214,22,1,"PAH",1,1,348,0)
1736Jul 19, 2005@15:43:18
1737"PKG",214,22,1,"PAH",1,1,349,0)
1738Jul 19, 2005@15:54:48
1739"PKG",214,22,1,"PAH",1,1,350,0)
1740Jul 18, 2005@17:57:49
1741"PKG",214,22,1,"PAH",1,1,351,0)
1742Jul 15, 2005@16:00
1743"PKG",214,22,1,"PAH",1,1,352,0)
1744Jul 08, 2005@13:03
1745"PKG",214,22,1,"PAH",1,1,353,0)
1746Jul 01, 2005@14:37:23
1747"PKG",214,22,1,"PAH",1,1,354,0)
1748Oct 23, 2012@12:02
1749"PKG",214,22,1,"PAH",1,1,355,0)
1750CREATING MU12-EP-ACME CLINIC #1-PatientC0QFDA(1130580001.2011,"1,13,",3)=0
1751"PKG",214,22,1,"PAH",1,1,356,0)
1752C0QFDA(1130580001.2011,"2,13,",3)=100
1753"PKG",214,22,1,"PAH",1,1,357,0)
1754C0QFDA(1130580001.2011,"3,13,",3)=100
1755"PKG",214,22,1,"PAH",1,1,358,0)
1756C0QFDA(1130580001.2011,"1,14,",3)=0
1757"PKG",214,22,1,"PAH",1,1,359,0)
1758C0QFDA(1130580001.2011,"2,14,",3)=0
1759"PKG",214,22,1,"PAH",1,1,360,0)
1760C0QFDA(1130580001.2011,"3,14,",3)=0
1761"PKG",214,22,1,"PAH",1,1,361,0)
1762C0QFDA(1130580001.2011,"1,15,",1.1)=0
1763"PKG",214,22,1,"PAH",1,1,362,0)
1764C0QFDA(1130580001.2011,"1,15,",2.1)=1
1765"PKG",214,22,1,"PAH",1,1,363,0)
1766C0QFDA(1130580001.20112,"+1,1,15,",.01)=3
1767"PKG",214,22,1,"PAH",1,1,364,0)
1768C0QFDA(1130580001.2011,"1,15,",3)=0
1769"PKG",214,22,1,"PAH",1,1,365,0)
1770C0QFDA(1130580001.2011,"2,15,",1.1)=1
1771"PKG",214,22,1,"PAH",1,1,366,0)
1772C0QFDA(1130580001.20111,"+1,2,15,",.01)=3
1773"PKG",214,22,1,"PAH",1,1,367,0)
1774C0QFDA(1130580001.2011,"2,15,",2.1)=1
1775"PKG",214,22,1,"PAH",1,1,368,0)
1776C0QFDA(1130580001.20112,"+1,2,15,",.01)=3
1777"PKG",214,22,1,"PAH",1,1,369,0)
1778C0QFDA(1130580001.2011,"2,15,",3)=100
1779"PKG",214,22,1,"PAH",1,1,370,0)
1780C0QFDA(1130580001.2011,"3,15,",1.1)=1
1781"PKG",214,22,1,"PAH",1,1,371,0)
1782C0QFDA(1130580001.20111,"+1,3,15,",.01)=3
1783"PKG",214,22,1,"PAH",1,1,372,0)
1784C0QFDA(1130580001.2011,"3,15,",2.1)=1
1785"PKG",214,22,1,"PAH",1,1,373,0)
1786C0QFDA(1130580001.20112,"+1,3,15,",.01)=3
1787"PKG",214,22,1,"PAH",1,1,374,0)
1788C0QFDA(1130580001.2011,"3,15,",3)=100
1789"PKG",214,22,1,"PAH",1,1,375,0)
1790C0QFDA(1130580001.2011,"1,16,",1.1)=0
1791"PKG",214,22,1,"PAH",1,1,376,0)
1792C0QFDA(1130580001.2011,"1,16,",2.1)=0
1793"PKG",214,22,1,"PAH",1,1,377,0)
1794C0QFDA(1130580001.2011,"1,16,",3)=0
1795"PKG",214,22,1,"PAH",1,1,378,0)
1796C0QFDA(1130580001.2011,"2,16,",1.1)=0
1797"PKG",214,22,1,"PAH",1,1,379,0)
1798C0QFDA(1130580001.2011,"2,16,",2.1)=0
1799"PKG",214,22,1,"PAH",1,1,380,0)
1800C0QFDA(1130580001.2011,"2,16,",3)=0
1801"PKG",214,22,1,"PAH",1,1,381,0)
1802C0QFDA(1130580001.2011,"3,16,",1.1)=0
1803"PKG",214,22,1,"PAH",1,1,382,0)
1804C0QFDA(1130580001.2011,"3,16,",2.1)=0
1805"PKG",214,22,1,"PAH",1,1,383,0)
1806C0QFDA(1130580001.2011,"3,16,",3)=0
1807"PKG",214,22,1,"PAH",1,1,384,0)
1808
1809"PKG",214,22,1,"PAH",1,1,385,0)
1810Select QUALITY MEASUREMENT MENU Option: PRINT C0Q MEASURES
1811"PKG",214,22,1,"PAH",1,1,386,0)
1812
1813"PKG",214,22,1,"PAH",1,1,387,0)
1814Select C0Q MEASUREMENT SET NAME: ACME
1815"PKG",214,22,1,"PAH",1,1,388,0)
1816 1 ACME CLINIC #1 PR
1817"PKG",214,22,1,"PAH",1,1,389,0)
1818 2 ACME CLINIC #1 QM
1819"PKG",214,22,1,"PAH",1,1,390,0)
1820CHOOSE 1-2: 1 ACME CLINIC #1 PR
1821"PKG",214,22,1,"PAH",1,1,391,0)
1822
1823"PKG",214,22,1,"PAH",1,1,392,0)
1824DEVICE: HOME// TELNET
1825"PKG",214,22,1,"PAH",1,1,393,0)
1826C0Q MEASUREMENTS LIST OCT 23,2012 12:05 PAGE 1
1827"PKG",214,22,1,"PAH",1,1,394,0)
1828MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE
1829"PKG",214,22,1,"PAH",1,1,395,0)
1830--------------------------------------------------------------------------------
1831"PKG",214,22,1,"PAH",1,1,396,0)
1832
1833"PKG",214,22,1,"PAH",1,1,397,0)
1834CPOE 1 0 0.00
1835"PKG",214,22,1,"PAH",1,1,398,0)
1836
1837"PKG",214,22,1,"PAH",1,1,399,0)
1838PROBLEMS 1 1 100.00
1839"PKG",214,22,1,"PAH",1,1,400,0)
1840
1841"PKG",214,22,1,"PAH",1,1,401,0)
1842ALLERGIES 1 1 100.00
1843"PKG",214,22,1,"PAH",1,1,402,0)
1844
1845"PKG",214,22,1,"PAH",1,1,403,0)
1846Select C0Q MEASUREMENT SET NAME: ACME
1847"PKG",214,22,1,"PAH",1,1,404,0)
1848 1 ACME CLINIC #1 PR
1849"PKG",214,22,1,"PAH",1,1,405,0)
1850 2 ACME CLINIC #1 QM
1851"PKG",214,22,1,"PAH",1,1,406,0)
1852CHOOSE 1-2: 2 ACME CLINIC #1 QM
1853"PKG",214,22,1,"PAH",1,1,407,0)
1854
1855"PKG",214,22,1,"PAH",1,1,408,0)
1856DEVICE: HOME// TELNET
1857"PKG",214,22,1,"PAH",1,1,409,0)
1858C0Q MEASUREMENTS LIST OCT 23,2012 12:05 PAGE 1
1859"PKG",214,22,1,"PAH",1,1,410,0)
1860MEASURE:DISPLAY NAME DENOMINATOR NUMERATOR PERCENTAGE
1861"PKG",214,22,1,"PAH",1,1,411,0)
1862--------------------------------------------------------------------------------
1863"PKG",214,22,1,"PAH",1,1,412,0)
1864
1865"PKG",214,22,1,"PAH",1,1,413,0)
1866NQF0013 Hypertension: 0 0 0.00
1867"PKG",214,22,1,"PAH",1,1,414,0)
1868Blood Pressure
1869"PKG",214,22,1,"PAH",1,1,415,0)
1870Measurement
1871"PKG",214,22,1,"PAH",1,1,416,0)
1872
1873"PKG",214,22,1,"PAH",1,1,417,0)
1874NQF0028A Tobacco Use 0 0 0.00
1875"PKG",214,22,1,"PAH",1,1,418,0)
1876Assessment
1877"PKG",214,22,1,"PAH",1,1,419,0)
1878
1879"PKG",214,22,1,"PAH",1,1,420,0)
1880NQF0028B Tobacco Use 0 0 0.00
1881"PKG",214,22,1,"PAH",1,1,421,0)
1882Assessment and Cessation
1883"PKG",214,22,1,"PAH",1,1,422,0)
1884Intervention
1885"QUES","XPF1",0)
1886Y
1887"QUES","XPF1","??")
1888^D REP^XPDH
1889"QUES","XPF1","A")
1890Shall I write over your |FLAG| File
1891"QUES","XPF1","B")
1892YES
1893"QUES","XPF1","M")
1894D XPF1^XPDIQ
1895"QUES","XPF2",0)
1896Y
1897"QUES","XPF2","??")
1898^D DTA^XPDH
1899"QUES","XPF2","A")
1900Want my data |FLAG| yours
1901"QUES","XPF2","B")
1902YES
1903"QUES","XPF2","M")
1904D XPF2^XPDIQ
1905"QUES","XPI1",0)
1906YO
1907"QUES","XPI1","??")
1908^D INHIBIT^XPDH
1909"QUES","XPI1","A")
1910Want KIDS to INHIBIT LOGONs during the install
1911"QUES","XPI1","B")
1912NO
1913"QUES","XPI1","M")
1914D XPI1^XPDIQ
1915"QUES","XPM1",0)
1916PO^VA(200,:EM
1917"QUES","XPM1","??")
1918^D MG^XPDH
1919"QUES","XPM1","A")
1920Enter the Coordinator for Mail Group '|FLAG|'
1921"QUES","XPM1","B")
1922
1923"QUES","XPM1","M")
1924D XPM1^XPDIQ
1925"QUES","XPO1",0)
1926Y
1927"QUES","XPO1","??")
1928^D MENU^XPDH
1929"QUES","XPO1","A")
1930Want KIDS to Rebuild Menu Trees Upon Completion of Install
1931"QUES","XPO1","B")
1932NO
1933"QUES","XPO1","M")
1934D XPO1^XPDIQ
1935"QUES","XPZ1",0)
1936Y
1937"QUES","XPZ1","??")
1938^D OPT^XPDH
1939"QUES","XPZ1","A")
1940Want to DISABLE Scheduled Options, Menu Options, and Protocols
1941"QUES","XPZ1","B")
1942NO
1943"QUES","XPZ1","M")
1944D XPZ1^XPDIQ
1945"QUES","XPZ2",0)
1946Y
1947"QUES","XPZ2","??")
1948^D RTN^XPDH
1949"QUES","XPZ2","A")
1950Want to MOVE routines to other CPUs
1951"QUES","XPZ2","B")
1952NO
1953"QUES","XPZ2","M")
1954D XPZ2^XPDIQ
1955"RTN")
19562
1957"RTN","C0QMU12")
19580^1^B351357107
1959"RTN","C0QMU12",1,0)
1960C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 10/22/12 4:29pm
1961"RTN","C0QMU12",2,0)
1962 ;;1.0;QUALITY MEASURES;**1,5,6**;May 21, 2012;Build 3
1963"RTN","C0QMU12",3,0)
1964 ;
1965"RTN","C0QMU12",4,0)
1966 ;2011 Zach Gonzales<zach@linux.com> - Licensed under the terms of the GNU
1967"RTN","C0QMU12",5,0)
1968 ;General Public License See attached copy of the License.
1969"RTN","C0QMU12",6,0)
1970 ;
1971"RTN","C0QMU12",7,0)
1972 ; GPL - THIS ROUTINE IS A COPY OF JJOHMU11 THAT HAS BEEN MODIFIED
1973"RTN","C0QMU12",8,0)
1974 ; FOR MEANINGFUL USE CALCULATION FOR FISCAL YEAR 2012 AT OROVILLE HOSPITAL
1975"RTN","C0QMU12",9,0)
1976 ;
1977"RTN","C0QMU12",10,0)
1978C0QPFN() Q 1130580001.401 ; PARAMETER FILE
1979"RTN","C0QMU12",11,0)
1980C0QPCFN() Q 1130580001.411 ; CLINIC SUBFILE
1981"RTN","C0QMU12",12,0)
1982C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT SET FILE
1983"RTN","C0QMU12",13,0)
1984C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE
1985"RTN","C0QMU12",14,0)
1986INIT(ZARY,ZTYP) ; INITIALIZE THE PARAMETERS FOR BUILDING PATIENT LISTS
1987"RTN","C0QMU12",15,0)
1988 ; ZARY IS PASSED BY NAME
1989"RTN","C0QMU12",16,0)
1990 ; ZTYP IS "INP" OR "EP"
1991"RTN","C0QMU12",17,0)
1992 N ZMU S ZMU="MU12" ; THIS IS THE ONLY HARD CODED VALUE LEFT
1993"RTN","C0QMU12",18,0)
1994 ; TBD - CHANGE IT TO A READ FROM SYSTEM PARAMETERS
1995"RTN","C0QMU12",19,0)
1996 K @ZARY ; CLEAR RETURN ARRAY
1997"RTN","C0QMU12",20,0)
1998 N ZIEN,ZCNT,ZX
1999"RTN","C0QMU12",21,0)
2000 I $O(^C0Q(401,"MUTYP",ZMU,ZTYP,""))="" D Q ; OOPS NO RECORD THERE
2001"RTN","C0QMU12",22,0)
2002 . W !,"ERROR, NO PARAMETERS AVAILABLE"
2003"RTN","C0QMU12",23,0)
2004 S ZIEN=""
2005"RTN","C0QMU12",24,0)
2006 S ZCNT=0
2007"RTN","C0QMU12",25,0)
2008 F S ZIEN=$O(^C0Q(401,"MUTYP",ZMU,ZTYP,ZIEN)) Q:ZIEN="" D ;
2009"RTN","C0QMU12",26,0)
2010 . S ZCNT=ZCNT+1
2011"RTN","C0QMU12",27,0)
2012 . S @ZARY@(ZCNT,"IEN")=ZIEN
2013"RTN","C0QMU12",28,0)
2014 . S @ZARY@(ZCNT,"MU")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.02)
2015"RTN","C0QMU12",29,0)
2016 . S @ZARY@(ZCNT,"TYPE")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.03)
2017"RTN","C0QMU12",30,0)
2018 . ;
2019"RTN","C0QMU12",31,0)
2020 . ; Inpatient
2021"RTN","C0QMU12",32,0)
2022 . S (ZX,@ZARY@(ZCNT,"InpatientMeasurementSet"))=$$GET1^DIQ($$C0QPFN,ZIEN_",",1,"I")
2023"RTN","C0QMU12",33,0)
2024 . S @ZARY@(ZCNT,"InpatientBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I")
2025"RTN","C0QMU12",34,0)
2026 . S @ZARY@(ZCNT,"InpatientEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I")
2027"RTN","C0QMU12",35,0)
2028 . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I")
2029"RTN","C0QMU12",36,0)
2030 . ;
2031"RTN","C0QMU12",37,0)
2032 . ; Outpatient
2033"RTN","C0QMU12",38,0)
2034 . S (ZX,@ZARY@(ZCNT,"EPMeasurementSet"))=$$GET1^DIQ($$C0QPFN,ZIEN_",",2,"I")
2035"RTN","C0QMU12",39,0)
2036 . S @ZARY@(ZCNT,"EPBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I")
2037"RTN","C0QMU12",40,0)
2038 . S @ZARY@(ZCNT,"EPEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I")
2039"RTN","C0QMU12",41,0)
2040 . S @ZARY@(ZCNT,"EPQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",2.1,"I")
2041"RTN","C0QMU12",42,0)
2042 . S @ZARY@(ZCNT,"EPModelPerfSet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",6.1,"I")
2043"RTN","C0QMU12",43,0)
2044 . S @ZARY@(ZCNT,"EPModelQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",6.2,"I")
2045"RTN","C0QMU12",44,0)
2046 . ;
2047"RTN","C0QMU12",45,0)
2048 . D CLEAN^DILF
2049"RTN","C0QMU12",46,0)
2050 . D LIST^DIC($$C0QPCFN,","_ZIEN_",",".01I")
2051"RTN","C0QMU12",47,0)
2052 . I $D(^TMP("DIERR",$J)) D Q ; ERROR READING CLINIC LIST
2053"RTN","C0QMU12",48,0)
2054 . . W !,"ERROR READING CLINIC PARAMETER LIST"
2055"RTN","C0QMU12",49,0)
2056 . M @ZARY@(ZCNT,"CLINICS")=^TMP("DILIST",$J)
2057"RTN","C0QMU12",50,0)
2058 ;
2059"RTN","C0QMU12",51,0)
2060 Q
2061"RTN","C0QMU12",52,0)
2062 ;
2063"RTN","C0QMU12",53,0)
2064BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create
2065"RTN","C0QMU12",54,0)
2066 ; patient lists
2067"RTN","C0QMU12",55,0)
2068 ;N GRSLT ; ARRAY FOR RESULTS
2069"RTN","C0QMU12",56,0)
2070 I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array
2071"RTN","C0QMU12",57,0)
2072 I '$D(C0QPR) S C0QPR=0 ;default don't print out results
2073"RTN","C0QMU12",58,0)
2074 I '$D(C0QPL) S C0QPL=1 ;default do create patient lists
2075"RTN","C0QMU12",59,0)
2076 S ZYR="MU12-"
2077"RTN","C0QMU12",60,0)
2078 D INITCLST ; initialize C0QLIST
2079"RTN","C0QMU12",61,0)
2080 N G1 ; ONE SET OF VALUES - RNF1 FORMAT
2081"RTN","C0QMU12",62,0)
2082 N C0QPARM
2083"RTN","C0QMU12",63,0)
2084 D INIT("C0QPARM","INP") ; initialize inpatient parms
2085"RTN","C0QMU12",64,0)
2086 I $O(C0QPARM(""))="" D Q ; no parms for inpatient
2087"RTN","C0QMU12",65,0)
2088 . W !,"No inpatient parameters"
2089"RTN","C0QMU12",66,0)
2090 N ZDIV S ZDIV=""
2091"RTN","C0QMU12",67,0)
2092 F S ZDIV=$O(C0QPARM(ZDIV)) Q:ZDIV="" D ; for each inpatient division
2093"RTN","C0QMU12",68,0)
2094 . D ALL ; all currently admitted patients in the hospital
2095"RTN","C0QMU12",69,0)
2096 . D DIS ; all patients discharged since the reporting period began
2097"RTN","C0QMU12",70,0)
2098 . I C0QSS D ZWRITE^C0QUTIL("GRSLT")
2099"RTN","C0QMU12",71,0)
2100 . ;D ICUPAT ; GENERATE ICU PATIENT LIST
2101"RTN","C0QMU12",72,0)
2102 . I C0QPL D ;
2103"RTN","C0QMU12",73,0)
2104 . . D FILE ; FILE THE PATIENT LISTS
2105"RTN","C0QMU12",74,0)
2106 . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ;
2107"RTN","C0QMU12",75,0)
2108 . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ;
2109"RTN","C0QMU12",76,0)
2110 . K C0QLIST
2111"RTN","C0QMU12",77,0)
2112 Q
2113"RTN","C0QMU12",78,0)
2114 ;
2115"RTN","C0QMU12",79,0)
2116INITCLST ; initialize C0QLIST
2117"RTN","C0QMU12",80,0)
2118 ; INITIALIZE LISTS
2119"RTN","C0QMU12",81,0)
2120 ; this is done so that if there are no matching patients, the patient list
2121"RTN","C0QMU12",82,0)
2122 ; will be zeroed out
2123"RTN","C0QMU12",83,0)
2124 ; K C0QLIST - VEN/SMH - Oops, we kill the previous lists!!!
2125"RTN","C0QMU12",84,0)
2126 S C0QLIST(ZYR_"HasDemographics")=""
2127"RTN","C0QMU12",85,0)
2128 S C0QLIST(ZYR_"Patient")="" ; VEN/SMH - Is this needed? Not used in EP.
2129"RTN","C0QMU12",86,0)
2130 S C0QLIST(ZYR_"HasProblem")=""
2131"RTN","C0QMU12",87,0)
2132 S C0QLIST(ZYR_"HasAllergy")=""
2133"RTN","C0QMU12",88,0)
2134 S C0QLIST(ZYR_"HasMed")=""
2135"RTN","C0QMU12",89,0)
2136 S C0QLIST(ZYR_"HasERX")="" ; VEN/SMH C0Q*1*5
2137"RTN","C0QMU12",90,0)
2138 S C0QLIST(ZYR_"HasMedRecon")="" ; VEN/SMH C0Q*1*5
2139"RTN","C0QMU12",91,0)
2140 S C0QLIST(ZYR_"HasVitalSigns")=""
2141"RTN","C0QMU12",92,0)
2142 S C0QLIST(ZYR_"HasMedOrders")=""
2143"RTN","C0QMU12",93,0)
2144 S C0QLIST(ZYR_"HasSmokingStatus")=""
2145"RTN","C0QMU12",94,0)
2146 S C0QLIST(ZYR_"ALL-PATIENTS")="" ; VEN/SMH C0Q*1*5
2147"RTN","C0QMU12",95,0)
2148 Q
2149"RTN","C0QMU12",96,0)
2150 ;
2151"RTN","C0QMU12",97,0)
2152ALL ;retrieve active inpatients
2153"RTN","C0QMU12",98,0)
2154 N WARD S WARD=""
2155"RTN","C0QMU12",99,0)
2156 F D Q:WARD=""
2157"RTN","C0QMU12",100,0)
2158 . S WARD=$O(^DIC(42,"B",WARD)) ;ward name
2159"RTN","C0QMU12",101,0)
2160 . Q:WARD=""
2161"RTN","C0QMU12",102,0)
2162 . N WIEN S WIEN=""
2163"RTN","C0QMU12",103,0)
2164 . F S WIEN=$O(^DIC(42,"B",WARD,WIEN)) Q:'WIEN D ;wards IEN
2165"RTN","C0QMU12",104,0)
2166 . . S WARDNAME=$P(^DIC(42,WIEN,0),U,2) ;ward name
2167"RTN","C0QMU12",105,0)
2168 . . N DFN,RB S DFN=""
2169"RTN","C0QMU12",106,0)
2170 . . F S DFN=$O(^DPT("CN",WARD,+DFN)) Q:'DFN D ;DFN of patient on ward
2171"RTN","C0QMU12",107,0)
2172 . . . D DEMO^C0QMU122
2173"RTN","C0QMU12",108,0)
2174 . . . D PROBLEM
2175"RTN","C0QMU12",109,0)
2176 . . . D ALLERGY
2177"RTN","C0QMU12",110,0)
2178 . . . D MEDS4
2179"RTN","C0QMU12",111,0)
2180 . . . D RECON2
2181"RTN","C0QMU12",112,0)
2182 . . . D ADVDIR
2183"RTN","C0QMU12",113,0)
2184 . . . D SMOKING
2185"RTN","C0QMU12",114,0)
2186 . . . D VITALS
2187"RTN","C0QMU12",115,0)
2188 . . . D VTE1
2189"RTN","C0QMU12",116,0)
2190 . . . D COD
2191"RTN","C0QMU12",117,0)
2192 . . . D EDTIME
2193"RTN","C0QMU12",118,0)
2194 . . . I C0QPR D PRINT^C0QMU121
2195"RTN","C0QMU12",119,0)
2196 . . . I C0QSS D SS^C0QMU121
2197"RTN","C0QMU12",120,0)
2198 . . . I C0QPL D PATLIST^C0QMU121
2199"RTN","C0QMU12",121,0)
2200 Q
2201"RTN","C0QMU12",122,0)
2202 ;
2203"RTN","C0QMU12",123,0)
2204PROBLEM ; PATIENT PROBLEMS
2205"RTN","C0QMU12",124,0)
2206 D LIST^ORQQPL(.PROBL,DFN,"A")
2207"RTN","C0QMU12",125,0)
2208 S PBCNT=""
2209"RTN","C0QMU12",126,0)
2210 F S PBCNT=$O(PROBL(PBCNT)) Q:PBCNT="" D
2211"RTN","C0QMU12",127,0)
2212 . S PBDESC=$P(PROBL(PBCNT),U,2) ;problem description
2213"RTN","C0QMU12",128,0)
2214 I PBDESC["No problems found" S C0QLIST(ZYR_"NoProblem",DFN)=""
2215"RTN","C0QMU12",129,0)
2216 E S C0QLIST(ZYR_"HasProblem",DFN)=""
2217"RTN","C0QMU12",130,0)
2218 K PROBL
2219"RTN","C0QMU12",131,0)
2220 Q
2221"RTN","C0QMU12",132,0)
2222 ;
2223"RTN","C0QMU12",133,0)
2224ALLERGY ; ALLERGY LIST
2225"RTN","C0QMU12",134,0)
2226 ; WANT TO CHANGE ALLERGIES FOR 2012 TO POPULATE THE C0QLIST DIRECTLY. GPL
2227"RTN","C0QMU12",135,0)
2228 D LIST^ORQQAL(.ALRGYL,DFN)
2229"RTN","C0QMU12",136,0)
2230 S ALCNT=""
2231"RTN","C0QMU12",137,0)
2232 F S ALCNT=$O(ALRGYL(ALCNT)) Q:ALCNT="" D
2233"RTN","C0QMU12",138,0)
2234 . S ALDESC=$P(ALRGYL(ALCNT),U,2) ;allergy description
2235"RTN","C0QMU12",139,0)
2236 I ALDESC["No Allergy" S C0QLIST(ZYR_"NoAllergy",DFN)=""
2237"RTN","C0QMU12",140,0)
2238 E S C0QLIST(ZYR_"HasAllergy",DFN)=""
2239"RTN","C0QMU12",141,0)
2240 K ALRGYL
2241"RTN","C0QMU12",142,0)
2242 Q
2243"RTN","C0QMU12",143,0)
2244 ;
2245"RTN","C0QMU12",144,0)
2246MEDS4 ; USE OCL^PSOORRL TO GET ALL MEDS
2247"RTN","C0QMU12",145,0)
2248 ; DELETED MEDS, MEDS2, AND MEDS3 FOR 2012 TO USE ONLY MEDS4
2249"RTN","C0QMU12",146,0)
2250 N BEG,END
2251"RTN","C0QMU12",147,0)
2252 S BEG=$$DT^C0QUTIL("JULY 3,2011")
2253"RTN","C0QMU12",148,0)
2254 S END=$$DT^C0QUTIL("NOW")
2255"RTN","C0QMU12",149,0)
2256 D OCL^PSOORRL(DFN,BEG,END) ;DBIA #2400
2257"RTN","C0QMU12",150,0)
2258 N C0QMEDS
2259"RTN","C0QMU12",151,0)
2260 M C0QMEDS=^TMP("PS",$J) ; MEDS RETURNED FROM CALL
2261"RTN","C0QMU12",152,0)
2262 N FOUND
2263"RTN","C0QMU12",153,0)
2264 N ZI
2265"RTN","C0QMU12",154,0)
2266 I '$D(C0QMEDS(1)) D Q ; QUIT IF NO MEDS
2267"RTN","C0QMU12",155,0)
2268 . S C0QLIST(ZYR_"NoMed",DFN)=""
2269"RTN","C0QMU12",156,0)
2270 E D ; HAS MEDS
2271"RTN","C0QMU12",157,0)
2272 . S C0QLIST(ZYR_"HasMed",DFN)=""
2273"RTN","C0QMU12",158,0)
2274 S ZI="" S FOUND=0
2275"RTN","C0QMU12",159,0)
2276 F S ZI=$O(C0QMEDS(ZI)) Q:ZI="" D ; FOR EACH MED
2277"RTN","C0QMU12",160,0)
2278 . N ZM
2279"RTN","C0QMU12",161,0)
2280 . S ZM=$G(C0QMEDS(ZI,0)) ;THE MEDICATION
2281"RTN","C0QMU12",162,0)
2282 . I $P($P(ZM,"^",1),";",2)="I" D ; IE 1U;I FOR AN INPATIENT UNIT DOSE
2283"RTN","C0QMU12",163,0)
2284 . . S FOUND=1
2285"RTN","C0QMU12",164,0)
2286 I FOUND S C0QLIST(ZYR_"HasMedOrders",DFN)="" ; MET CPOE MEASURE
2287"RTN","C0QMU12",165,0)
2288 E S C0QLIST(ZYR_"NoMedOrders",DFN)=""
2289"RTN","C0QMU12",166,0)
2290 Q
2291"RTN","C0QMU12",167,0)
2292 ;
2293"RTN","C0QMU12",168,0)
2294RECON ; MEDICATIONS RECONCILIATION
2295"RTN","C0QMU12",169,0)
2296 ; WANT TO SIMPLIFY MEDS RECON FOR 2012. GPL
2297"RTN","C0QMU12",170,0)
2298 ;
2299"RTN","C0QMU12",171,0)
2300 I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ;
2301"RTN","C0QMU12",172,0)
2302 . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient
2303"RTN","C0QMU12",173,0)
2304 N HASRECON S HASRECON=0
2305"RTN","C0QMU12",174,0)
2306 N GT,G
2307"RTN","C0QMU12",175,0)
2308 S GT(4,"HasMedRecon","MEDICATION RECONCILIATION COMPLET")=""
2309"RTN","C0QMU12",176,0)
2310 S GT(5,"HasMedRecon","Medication Reconcilation Complete")=""
2311"RTN","C0QMU12",177,0)
2312 I $$TXTALL^C0QNOTES(.G,.GT,DFN) D ; SEARCH ALL NOTES FOR MED RECON
2313"RTN","C0QMU12",178,0)
2314 . S HASRECON=1
2315"RTN","C0QMU12",179,0)
2316 ;N ZT
2317"RTN","C0QMU12",180,0)
2318 ;S ZT="MEDICATION RECONCILIATION COMPLET"
2319"RTN","C0QMU12",181,0)
2320 ;I $$NTTXT^C0QNOTES("ER NURSE NOTE",ZT,DFN) D ;
2321"RTN","C0QMU12",182,0)
2322 ;. S HASRECON=1
2323"RTN","C0QMU12",183,0)
2324 ;E D ;
2325"RTN","C0QMU12",184,0)
2326 ;. S ZT="Medication Reconcilation Complete"
2327"RTN","C0QMU12",185,0)
2328 ;. I $$NTTXT^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",ZT,DFN) D ;
2329"RTN","C0QMU12",186,0)
2330 ;. . S HASRECON=1
2331"RTN","C0QMU12",187,0)
2332 ;I $$HFYN^C0QHF("MEDS HAVE BEEN REVIEWED",DFN) S HASRECON=1
2333"RTN","C0QMU12",188,0)
2334 I HASRECON D ;
2335"RTN","C0QMU12",189,0)
2336 . S C0QLIST(ZYR_"HasMedRecon",DFN)=""
2337"RTN","C0QMU12",190,0)
2338 E S C0QLIST(ZYR_"NoMedRecon",DFN)=""
2339"RTN","C0QMU12",191,0)
2340 Q
2341"RTN","C0QMU12",192,0)
2342 ;
2343"RTN","C0QMU12",193,0)
2344RECON2 ; USE HEALTH FACTORS FOR MEDICATION RECONCILIATION
2345"RTN","C0QMU12",194,0)
2346 I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D ;
2347"RTN","C0QMU12",195,0)
2348 . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient
2349"RTN","C0QMU12",196,0)
2350 I $$HFYN^C0QHF(DFN,"Medication Reconciliation Completed: Yes") D ;
2351"RTN","C0QMU12",197,0)
2352 . S C0QLIST(ZYR_"HasMedRecon",DFN)=""
2353"RTN","C0QMU12",198,0)
2354 E S C0QLIST(ZYR_"NoMedRecon",DFN)=""
2355"RTN","C0QMU12",199,0)
2356 Q
2357"RTN","C0QMU12",200,0)
2358 ;
2359"RTN","C0QMU12",201,0)
2360ERX ; FOR EP, WE LOOK AT ERX MEDS
2361"RTN","C0QMU12",202,0)
2362 N ZI S ZI=""
2363"RTN","C0QMU12",203,0)
2364 N ZERX S ZERX=$NA(^PS(55,DFN,"NVA"))
2365"RTN","C0QMU12",204,0)
2366 F S ZI=$O(@ZERX@(ZI)) Q:ZI="" D ;
2367"RTN","C0QMU12",205,0)
2368 . ;B
2369"RTN","C0QMU12",206,0)
2370 . I $G(@ZERX@(ZI,1,1,0))["E-Rx Web" D ;
2371"RTN","C0QMU12",207,0)
2372 . . S C0QLIST(ZYR_"HasMed",DFN)=""
2373"RTN","C0QMU12",208,0)
2374 . . S C0QLIST(ZYR_"HasMedOrders",DFN)=""
2375"RTN","C0QMU12",209,0)
2376 . . S C0QLIST(ZYR_"HasERX",DFN)=""
2377"RTN","C0QMU12",210,0)
2378 . . S C0QLIST(ZYR_"HasMedRecon",DFN)=""
2379"RTN","C0QMU12",211,0)
2380 . E D ;
2381"RTN","C0QMU12",212,0)
2382 . . S C0QLIST(ZYR_"NoMed",DFN)=""
2383"RTN","C0QMU12",213,0)
2384 . . S C0QLIST(ZYR_"NoMedOrders",DFN)=""
2385"RTN","C0QMU12",214,0)
2386 . . S C0QLIST(ZYR_"NoERX",DFN)=""
2387"RTN","C0QMU12",215,0)
2388 . . S C0QLIST(ZYR_"NoMedRecon",DFN)=""
2389"RTN","C0QMU12",216,0)
2390 Q
2391"RTN","C0QMU12",217,0)
2392 ;
2393"RTN","C0QMU12",218,0)
2394ADVDIR ; ADVANCE DIRECTIVE
2395"RTN","C0QMU12",219,0)
2396 ;
2397"RTN","C0QMU12",220,0)
2398 I $$AGE^C0QUTIL(DFN)>64 D ; ONLY FOR PATIENTS 65 AND OLDER
2399"RTN","C0QMU12",221,0)
2400 . S C0QLIST(ZYR_"Over65",DFN)=""
2401"RTN","C0QMU12",222,0)
2402 . I $$HASNTYN^C0QNOTES("ADVANCE DIRECTIVE",DFN) D ;
2403"RTN","C0QMU12",223,0)
2404 . . S C0QLIST(ZYR_"HasAdvanceDirective",DFN)=""
2405"RTN","C0QMU12",224,0)
2406 . E D ;
2407"RTN","C0QMU12",225,0)
2408 . . S C0QLIST(ZYR_"NoAdvanceDirective",DFN)=""
2409"RTN","C0QMU12",226,0)
2410 Q
2411"RTN","C0QMU12",227,0)
2412 ;
2413"RTN","C0QMU12",228,0)
2414SMOKING G SMOKING^C0QMU121
2415"RTN","C0QMU12",229,0)
2416VITALS ;
2417"RTN","C0QMU12",230,0)
2418 ;
2419"RTN","C0QMU12",231,0)
2420 N C0QSDT,C0QEDT
2421"RTN","C0QMU12",232,0)
2422 D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE
2423"RTN","C0QMU12",233,0)
2424 D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY
2425"RTN","C0QMU12",234,0)
2426 S C0QEDT=C0QEDT+.999999 ; Move to the end of the day! VEN/SMH C0Q*1*5
2427"RTN","C0QMU12",235,0)
2428 D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS
2429"RTN","C0QMU12",236,0)
2430 I $D(VITRSLT) D ;ZWR VITRSLT B ;
2431"RTN","C0QMU12",237,0)
2432 . I VITRSLT(1)["No vitals found." S C0QLIST(ZYR_"NoVitalSigns",DFN)=""
2433"RTN","C0QMU12",238,0)
2434 . E S C0QLIST(ZYR_"HasVitalSigns",DFN)=""
2435"RTN","C0QMU12",239,0)
2436 Q
2437"RTN","C0QMU12",240,0)
2438 ;
2439"RTN","C0QMU12",241,0)
2440VTE1 ; VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL
2441"RTN","C0QMU12",242,0)
2442 ;
2443"RTN","C0QMU12",243,0)
2444 I $$HFYN^C0QHF(DFN,"VTE PROPHYLAXIS WITHIN 24HRS OF ARRIVAL") D ;
2445"RTN","C0QMU12",244,0)
2446 . S C0QLIST(ZYR_"HasVTE24",DFN)=""
2447"RTN","C0QMU12",245,0)
2448 E S C0QLIST(ZYR_"NoVTE24",DFN)=""
2449"RTN","C0QMU12",246,0)
2450 Q
2451"RTN","C0QMU12",247,0)
2452 ;
2453"RTN","C0QMU12",248,0)
2454 ;
2455"RTN","C0QMU12",249,0)
2456 ;
2457"RTN","C0QMU12",250,0)
2458COD ; TEST FOR PRELIMINARY CAUSE OF DEATH NOTE
2459"RTN","C0QMU12",251,0)
2460 I $$HASNTYN^C0QNOTES("PRELIMINARY CAUSE OF DEATH",DFN) D ;
2461"RTN","C0QMU12",252,0)
2462 . S C0QLIST(ZYR_"CauseOfDeath",DFN)=""
2463"RTN","C0QMU12",253,0)
2464 Q
2465"RTN","C0QMU12",254,0)
2466 ;
2467"RTN","C0QMU12",255,0)
2468EDTIME ; CHECK FOR EMERGENCY DEPT TIME FACTORS
2469"RTN","C0QMU12",256,0)
2470 N FOUND
2471"RTN","C0QMU12",257,0)
2472 S FOUND=0
2473"RTN","C0QMU12",258,0)
2474 I $$HFYN^C0QHF(DFN,"ED ARRIVAL TIME") S FOUND=1
2475"RTN","C0QMU12",259,0)
2476 I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0
2477"RTN","C0QMU12",260,0)
2478 I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0
2479"RTN","C0QMU12",261,0)
2480 I FOUND D ;
2481"RTN","C0QMU12",262,0)
2482 . S C0QLIST(ZYR_"HasEDtime",DFN)=""
2483"RTN","C0QMU12",263,0)
2484 E S C0QLIST(ZYR_"NoEDtime",DFN)=""
2485"RTN","C0QMU12",264,0)
2486 Q
2487"RTN","C0QMU12",265,0)
2488 ;
2489"RTN","C0QMU12",266,0)
2490ICUPAT ; CREATE LIST OF ICU PATIENTS
2491"RTN","C0QMU12",267,0)
2492 N ZICU
2493"RTN","C0QMU12",268,0)
2494 S ZICU=$O(^SC("B","IC","")) ; IEN OF ICU HOSPITAL LOCATION
2495"RTN","C0QMU12",269,0)
2496 N ZI,ZJ,ZP
2497"RTN","C0QMU12",270,0)
2498 S ZI=""
2499"RTN","C0QMU12",271,0)
2500 F S ZI=$O(^AUPNVSIT("AHL",ZICU,ZI)) Q:ZI="" D ; EACH DATE
2501"RTN","C0QMU12",272,0)
2502 . S ZJ=""
2503"RTN","C0QMU12",273,0)
2504 . F S ZJ=$O(^AUPNVSIT("AHL",ZICU,ZI,ZJ)) Q:ZJ="" D ; EACH VISIT
2505"RTN","C0QMU12",274,0)
2506 . . S ZP=$P(^AUPNVSIT(ZJ,0),"^",5) ; DFN
2507"RTN","C0QMU12",275,0)
2508 . . S C0QLIST(ZYR_"ICUPatient",ZP)=""
2509"RTN","C0QMU12",276,0)
2510 Q
2511"RTN","C0QMU12",277,0)
2512 ;
2513"RTN","C0QMU12",278,0)
2514FILTER ; CALLED AFTER ALL THE PATIENT LISTS HAVE BEEN FILED
2515"RTN","C0QMU12",279,0)
2516 ; WILL KILL C0QLIST AND CREATE DERIVATIVE PATIENT LISTS BY FILTERING
2517"RTN","C0QMU12",280,0)
2518 K C0QLIST
2519"RTN","C0QMU12",281,0)
2520 N ZPAT
2521"RTN","C0QMU12",282,0)
2522 S ZPAT=$$PATLN(ZYR_"Patient") ; name of patient list of all patients admitted
2523"RTN","C0QMU12",283,0)
2524 ; during the reporting period. used to filter other lists
2525"RTN","C0QMU12",284,0)
2526 ;
2527"RTN","C0QMU12",285,0)
2528 ; filter ICU patients against ZPAT
2529"RTN","C0QMU12",286,0)
2530 N GN,GO,GF
2531"RTN","C0QMU12",287,0)
2532 S GN=ZPAT
2533"RTN","C0QMU12",288,0)
2534 S GO=$$PATLN(ZYR_"ICUPatient") ; all ICU patient
2535"RTN","C0QMU12",289,0)
2536 S GF=$NA(C0QLIST(ZYR_"ICUReporting")) ; the filtered list destination
2537"RTN","C0QMU12",290,0)
2538 D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation
2539"RTN","C0QMU12",291,0)
2540 ;
2541"RTN","C0QMU12",292,0)
2542 ; FILTER VTE-2 DENOMINATOR FOR QUALITY MEASURE
2543"RTN","C0QMU12",293,0)
2544 ;
2545"RTN","C0QMU12",294,0)
2546 S GN=$NA(C0QLIST(ZYR_"ICUReporting")) ; ICU patients admitted inside rpt period
2547"RTN","C0QMU12",295,0)
2548 S GO=$$RPATLN("MU VTE-2 DENOM PL") ; TAXONOMY BASED DENOMENATOR
2549"RTN","C0QMU12",296,0)
2550 S GF=$NA(C0QLIST(ZYR_"VTE2DEN")) ; NEW DENOMINATOR PL
2551"RTN","C0QMU12",297,0)
2552 D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation
2553"RTN","C0QMU12",298,0)
2554 ;
2555"RTN","C0QMU12",299,0)
2556 S GN=ZPAT
2557"RTN","C0QMU12",300,0)
2558 S GO=$$RPATLN("MU VTE-3 DENOM PL") ; TAXONOMY BASED DENOMENATOR
2559"RTN","C0QMU12",301,0)
2560 S GF=$NA(C0QLIST(ZYR_"VTE3DEN")) ; NEW DENOMINATOR PL
2561"RTN","C0QMU12",302,0)
2562 D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation
2563"RTN","C0QMU12",303,0)
2564 ;
2565"RTN","C0QMU12",304,0)
2566 S GN=ZPAT
2567"RTN","C0QMU12",305,0)
2568 S GO=$$RPATLN("MU VTE-4 DENOM PL") ; TAXONOMY BASED DENOMENATOR
2569"RTN","C0QMU12",306,0)
2570 S GF=$NA(C0QLIST(ZYR_"VTE4DEN")) ; NEW DENOMINATOR PL
2571"RTN","C0QMU12",307,0)
2572 D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation
2573"RTN","C0QMU12",308,0)
2574 ;
2575"RTN","C0QMU12",309,0)
2576 S GN=ZPAT
2577"RTN","C0QMU12",310,0)
2578 S GO=$$RPATLN("MU VTE-5 DENOM PL") ; TAXONOMY BASED DENOMENATOR
2579"RTN","C0QMU12",311,0)
2580 S GF=$NA(C0QLIST(ZYR_"VTE5DEN")) ; NEW DENOMINATOR PL
2581"RTN","C0QMU12",312,0)
2582 D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation
2583"RTN","C0QMU12",313,0)
2584 ;
2585"RTN","C0QMU12",314,0)
2586 D FILE ; FILE ALL THE PATIENT LISTS
2587"RTN","C0QMU12",315,0)
2588 D UPDATE^C0QUPDT(.G,5) ; UPDATE THE HOS 2011 MEANINGFUL USE measure set
2589"RTN","C0QMU12",316,0)
2590 Q
2591"RTN","C0QMU12",317,0)
2592 ;
2593"RTN","C0QMU12",318,0)
2594ED1 ;
2595"RTN","C0QMU12",319,0)
2596 S ZYR="MU12-"
2597"RTN","C0QMU12",320,0)
2598 D DOTIME^C0QMU121("ED DEPARTURE TIME")
2599"RTN","C0QMU12",321,0)
2600 Q
2601"RTN","C0QMU12",322,0)
2602 ;
2603"RTN","C0QMU12",323,0)
2604ED2 ;
2605"RTN","C0QMU12",324,0)
2606 S ZYR="MU12-"
2607"RTN","C0QMU12",325,0)
2608 D DOTIME2^C0QMU121("TIME DECISION TO ADMIT MADE")
2609"RTN","C0QMU12",326,0)
2610 Q
2611"RTN","C0QMU12",327,0)
2612 ;
2613"RTN","C0QMU12",328,0)
2614RPATLN(ZLST) ; EXTRINSIC RETURNS THE GLOBAL NAME OF THE REMINDER PATIENT LIST
2615"RTN","C0QMU12",329,0)
2616 ; WHOSE NAME IS ZLST
2617"RTN","C0QMU12",330,0)
2618 N ZIEN,ZN
2619"RTN","C0QMU12",331,0)
2620 S ZIEN=$O(^PXRMXP(810.5,"B",ZLST,"")) ; ien of patient list
2621"RTN","C0QMU12",332,0)
2622 S ZN=$NA(^PXRMXP(810.5,ZIEN,30,"B")) ; GLOBAL NAME IN REMINDER PATIENT LIST
2623"RTN","C0QMU12",333,0)
2624 Q ZN
2625"RTN","C0QMU12",334,0)
2626 ;
2627"RTN","C0QMU12",335,0)
2628PATLN(ZATTR) ; EXTRINSIC RETURNS THE NAME OF THE PATIENT LIST WITH
2629"RTN","C0QMU12",336,0)
2630 ; THE ATTRIBUTE ZATTR
2631"RTN","C0QMU12",337,0)
2632 N ZIEN,ZN
2633"RTN","C0QMU12",338,0)
2634 S ZIEN=$O(^C0Q(301,"CATTR",ZATTR,"")) ; ien of patient list
2635"RTN","C0QMU12",339,0)
2636 S ZN=$NA(^C0Q(301,ZIEN,1,"B")) ; NAME OF PATIENT LIST IN C0Q PATIENT LIST
2637"RTN","C0QMU12",340,0)
2638 Q ZN
2639"RTN","C0QMU12",341,0)
2640 ;
2641"RTN","C0QMU12",342,0)
2642INLIST(ZLIST,DFN) ; EXTRINSIC FOR IS PATIENT ALREADY IN LIST ZLIST
2643"RTN","C0QMU12",343,0)
2644 N ZL,ZR
2645"RTN","C0QMU12",344,0)
2646 S ZL=$O(^C0Q(301,"CATTR",ZLIST,"")) ; IEN OF LIST IN C0Q PATIENT LIST FILE
2647"RTN","C0QMU12",345,0)
2648 I ZL="" Q 0 ; LIST DOES NOT EXIST
2649"RTN","C0QMU12",346,0)
2650 S ZR=0 ; ASSUME NOT IN LIST
2651"RTN","C0QMU12",347,0)
2652 I $D(^C0Q(301,ZL,1,"B",DFN)) S ZR=1 ; PATIENT IS IN LIST
2653"RTN","C0QMU12",348,0)
2654 Q ZR
2655"RTN","C0QMU12",349,0)
2656 ;
2657"RTN","C0QMU12",350,0)
2658LOCPAT(PREFIX,LOC) ;retrieve active outpatients
2659"RTN","C0QMU12",351,0)
2660 ; PREFIX WILL GO IN C0XLIST(PREFIX_"-PATIENT",DFN)=""
2661"RTN","C0QMU12",352,0)
2662 ; LOC IS HOSPITAL LOCATION
2663"RTN","C0QMU12",353,0)
2664 ; Initially, make an empty list (C0Q*1.0*6)
2665"RTN","C0QMU12",354,0)
2666 S C0QLIST(PREFIX_"Patient")=""
2667"RTN","C0QMU12",355,0)
2668 S ULOC=$O(^SC("B",LOC,"")) ; IEN OF HOSPITAL LOCATION
2669"RTN","C0QMU12",356,0)
2670 I ULOC="" D Q ; OOPS
2671"RTN","C0QMU12",357,0)
2672 . W !,"HOSPITAL LOCATION NOT FOUND: ",LOC
2673"RTN","C0QMU12",358,0)
2674 S IDTE=9999999-DTE ; INVERSE DATE
2675"RTN","C0QMU12",359,0)
2676 N ZI
2677"RTN","C0QMU12",360,0)
2678 S ZI="" ; BEGIN AT LATEST DATE FOR THIS LOC IN VISIT FILE
2679"RTN","C0QMU12",361,0)
2680 F S ZI=$O(^AUPNVSIT("AHL",ULOC,ZI)) Q:(ZI="")!(ZI>IDTE) D ; FOR EACH DATE
2681"RTN","C0QMU12",362,0)
2682 . N C0QDATE S C0QDATE=9999999-$P(ZI,".")_"."_$P(ZI,".",2) ; VEN/SMH *5
2683"RTN","C0QMU12",363,0)
2684 . W !,$$FMTE^XLFDT(C0QDATE) ; VEN/SMH *5
2685"RTN","C0QMU12",364,0)
2686 . I ZI="" Q ;
2687"RTN","C0QMU12",365,0)
2688 . N ZJ S ZJ=""
2689"RTN","C0QMU12",366,0)
2690 . F S ZJ=$O(^AUPNVSIT("AHL",ULOC,ZI,ZJ)) Q:ZJ="" D ; FOR EACH VISIT
2691"RTN","C0QMU12",367,0)
2692 . . S DFN=$$GET1^DIQ(9000010,ZJ,.05,"I") ; PATIENT
2693"RTN","C0QMU12",368,0)
2694 . . S C0QLIST(PREFIX_"Patient",DFN)=""
2695"RTN","C0QMU12",369,0)
2696 Q
2697"RTN","C0QMU12",370,0)
2698 ;
2699"RTN","C0QMU12",371,0)
2700EPPAT(ZYR) ; BUILD ALL PATIENT LISTS FOR CLINICS
2701"RTN","C0QMU12",372,0)
2702 ;
2703"RTN","C0QMU12",373,0)
2704 S DTE=3111000
2705"RTN","C0QMU12",374,0)
2706 S MUYR=ZYR
2707"RTN","C0QMU12",375,0)
2708 N ZC,ZN
2709"RTN","C0QMU12",376,0)
2710 S ZN=0
2711"RTN","C0QMU12",377,0)
2712 N ZI S ZI=0
2713"RTN","C0QMU12",378,0)
2714 F S ZI=$O(^SC(ZI)) Q:+ZI=0 D ; FOR EVERY HOSPITAL LOCATION
2715"RTN","C0QMU12",379,0)
2716 . I $$GET1^DIQ(44,ZI_",",2,"I")'="C" Q ; NOT A CLINIC
2717"RTN","C0QMU12",380,0)
2718 . S ZC=$$GET1^DIQ(44,ZI_",",.01) ; NAME OF CLINIC
2719"RTN","C0QMU12",381,0)
2720 . S ZCIEN=ZI ; IEN OF CLINIC
2721"RTN","C0QMU12",382,0)
2722 . S ZN=ZN+1 ; COUNT OF CLINICS
2723"RTN","C0QMU12",383,0)
2724 . S PRE=MUYR_"-EP-"_ZC_"-"
2725"RTN","C0QMU12",384,0)
2726 . D LOCPAT(PRE,ZC)
2727"RTN","C0QMU12",385,0)
2728 W !,"NUMBER OF CLINICS: ",ZN
2729"RTN","C0QMU12",386,0)
2730 D FILE ; CREATE ALL THE EP PATIENT LISTS
2731"RTN","C0QMU12",387,0)
2732 Q
2733"RTN","C0QMU12",388,0)
2734 ;
2735"RTN","C0QMU12",389,0)
2736DOEP ; DO EP COMPUTATIONS
2737"RTN","C0QMU12",390,0)
2738 S ZYR="MU12-"
2739"RTN","C0QMU12",391,0)
2740 N C0QPARM,C0QCLNC
2741"RTN","C0QMU12",392,0)
2742 D INIT("C0QPARM","EP") ; INITIALIZE PARAMETERS
2743"RTN","C0QMU12",393,0)
2744 K C0QLIST ; CLEAR THE LIST
2745"RTN","C0QMU12",394,0)
2746 N ZI S ZI=""
2747"RTN","C0QMU12",395,0)
2748 F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ; FOR EACH EP
2749"RTN","C0QMU12",396,0)
2750 . S DTE=C0QPARM(ZI,"EPBeginDate") ; beginning of measurement period
2751"RTN","C0QMU12",397,0)
2752 . S EDTE=C0QPARM(ZI,"EPEndDate") ; end of measurement period -- tbd use this
2753"RTN","C0QMU12",398,0)
2754 . S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) ; only one clinic for now
2755"RTN","C0QMU12",399,0)
2756 . S PRE=ZYR_"EP-"_C0QCLNC_"-"
2757"RTN","C0QMU12",400,0)
2758 . D LOCPAT(PRE,C0QCLNC) ; GET THE PATIENTS
2759"RTN","C0QMU12",401,0)
2760 . I $D(DEBUG) D ZWRITE^C0QUTIL("C0QLIST")
2761"RTN","C0QMU12",402,0)
2762 . M C0QLIST(ZYR_"EP-ALL-PATIENTS")=C0QLIST(PRE_"Patient")
2763"RTN","C0QMU12",403,0)
2764 . ; update parameter list with filter list (1.0*6)
2765"RTN","C0QMU12",404,0)
2766 . S C0QPARM(ZI,"FilterListName")=PRE_"Patient"
2767"RTN","C0QMU12",405,0)
2768 S DFN=""
2769"RTN","C0QMU12",406,0)
2770 S ZYR=ZYR_"EP-"
2771"RTN","C0QMU12",407,0)
2772 D INITCLST ; VEN/SMH - Initialize Empty Lists just in case we don't have
2773"RTN","C0QMU12",408,0)
2774 ; any. C0Q*1*5
2775"RTN","C0QMU12",409,0)
2776 F S DFN=$O(C0QLIST(ZYR_"ALL-PATIENTS",DFN)) Q:DFN="" D ; EACH PATIENT
2777"RTN","C0QMU12",410,0)
2778 . D DEMO^C0QMU122
2779"RTN","C0QMU12",411,0)
2780 . D PROBLEM
2781"RTN","C0QMU12",412,0)
2782 . D ALLERGY
2783"RTN","C0QMU12",413,0)
2784 . ;D MEDS
2785"RTN","C0QMU12",414,0)
2786 . D ERX
2787"RTN","C0QMU12",415,0)
2788 . D SMOKING
2789"RTN","C0QMU12",416,0)
2790 . D VITALS
2791"RTN","C0QMU12",417,0)
2792 D FILE ; FILE THE PATIENT LISTS
2793"RTN","C0QMU12",418,0)
2794 ;
2795"RTN","C0QMU12",419,0)
2796 ; Now process eRx MU measures for these patients
2797"RTN","C0QMU12",420,0)
2798 ; Check for eRx template and code first; if they exist, run the code
2799"RTN","C0QMU12",421,0)
2800 I $D(^C0PX("B","GETMEDS6")),$L($T(SOAP^C0PWS2)) DO
2801"RTN","C0QMU12",422,0)
2802 . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data;
2803"RTN","C0QMU12",423,0)
2804 . D EN^C0QMUERX($$PATLN^C0QMU12(ZYR_"HasERX")) ; Pass the eRx patient list
2805"RTN","C0QMU12",424,0)
2806 ;
2807"RTN","C0QMU12",425,0)
2808 N ZI S ZI=""
2809"RTN","C0QMU12",426,0)
2810 F S ZI=$O(C0QPARM(ZI)) Q:ZI="" D ;
2811"RTN","C0QMU12",427,0)
2812 . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data;
2813"RTN","C0QMU12",428,0)
2814 . I 'C0QPARM(ZI,"EPMeasurementSet"),C0QPARM(ZI,"EPModelPerfSet") D
2815"RTN","C0QMU12",429,0)
2816 . . N C0QCLNC S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1)
2817"RTN","C0QMU12",430,0)
2818 . . N FLN S FLN=C0QPARM(ZI,"FilterListName")
2819"RTN","C0QMU12",431,0)
2820 . . ;
2821"RTN","C0QMU12",432,0)
2822 . . ; 1. BUILD New Measure Set from Model Performance Measure Set
2823"RTN","C0QMU12",433,0)
2824 . . ; Get IEN back of the newly created measure set.
2825"RTN","C0QMU12",434,0)
2826 . . N MSIEN ; Measure Set IEN that gets created
2827"RTN","C0QMU12",435,0)
2828 . . S MSIEN=$$CLONE^C0QMU123(C0QPARM(ZI,"EPModelPerfSet"),C0QCLNC,0,FLN)
2829"RTN","C0QMU12",436,0)
2830 . . ;
2831"RTN","C0QMU12",437,0)
2832 . . ; 2. File Measure Set
2833"RTN","C0QMU12",438,0)
2834 . . N C0QFDA S C0QFDA($$C0QPFN(),C0QPARM(ZI,"IEN")_",",2)=MSIEN
2835"RTN","C0QMU12",439,0)
2836 . . N C0QERR
2837"RTN","C0QMU12",440,0)
2838 . . D FILE^DIE("",$NA(C0QFDA),$NA(C0QERR))
2839"RTN","C0QMU12",441,0)
2840 . . I $D(C0QERR) S $EC=",U1,"
2841"RTN","C0QMU12",442,0)
2842 . . ;
2843"RTN","C0QMU12",443,0)
2844 . . ; 3. Set this IEN to be the one in EPMeasurementSet
2845"RTN","C0QMU12",444,0)
2846 . . S C0QPARM(ZI,"EPMeasurementSet")=MSIEN
2847"RTN","C0QMU12",445,0)
2848 . . ; DONE
2849"RTN","C0QMU12",446,0)
2850 . . ;
2851"RTN","C0QMU12",447,0)
2852 . I 'C0QPARM(ZI,"EPQualitySet"),C0QPARM(ZI,"EPModelQualitySet") D
2853"RTN","C0QMU12",448,0)
2854 . . N C0QCLNC S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1)
2855"RTN","C0QMU12",449,0)
2856 . . N FLN S FLN=C0QPARM(ZI,"FilterListName")
2857"RTN","C0QMU12",450,0)
2858 . . ;
2859"RTN","C0QMU12",451,0)
2860 . . ; 1. BUILD New Measure Set from Model Performance Measure Set
2861"RTN","C0QMU12",452,0)
2862 . . ; Get IEN back of the newly created measure set.
2863"RTN","C0QMU12",453,0)
2864 . . N MSIEN ; Measure Set IEN that gets created
2865"RTN","C0QMU12",454,0)
2866 . . S MSIEN=$$CLONE^C0QMU123(C0QPARM(ZI,"EPModelQualitySet"),C0QCLNC,1,FLN)
2867"RTN","C0QMU12",455,0)
2868 . . ;
2869"RTN","C0QMU12",456,0)
2870 . . ; 2. File Measure Set
2871"RTN","C0QMU12",457,0)
2872 . . N C0QFDA S C0QFDA($$C0QPFN(),C0QPARM(ZI,"IEN")_",",2.1)=MSIEN
2873"RTN","C0QMU12",458,0)
2874 . . N C0QERR
2875"RTN","C0QMU12",459,0)
2876 . . D FILE^DIE("",$NA(C0QFDA),$NA(C0QERR))
2877"RTN","C0QMU12",460,0)
2878 . . I $D(C0QERR) S $EC=",U1,"
2879"RTN","C0QMU12",461,0)
2880 . . ;
2881"RTN","C0QMU12",462,0)
2882 . . ; 3. Set this IEN to be the one in EPMeasurementSet
2883"RTN","C0QMU12",463,0)
2884 . . S C0QPARM(ZI,"EPQualitySet")=MSIEN
2885"RTN","C0QMU12",464,0)
2886 . . ; DONE
2887"RTN","C0QMU12",465,0)
2888 . ;
2889"RTN","C0QMU12",466,0)
2890 . ; Quit if we still don't have measurement sets
2891"RTN","C0QMU12",467,0)
2892 . I 'C0QPARM(ZI,"EPMeasurementSet")&('C0QPARM(ZI,"EPQualitySet")) QUIT
2893"RTN","C0QMU12",468,0)
2894 . ;
2895"RTN","C0QMU12",469,0)
2896 . D UPDATE^C0QUPDT(.G,C0QPARM(ZI,"EPMeasurementSet")) ; UPDATE THE MU MEASUREMENT SET
2897"RTN","C0QMU12",470,0)
2898 . ; VEN/SMH -- Quality Set missing for Outpatient -- adding
2899"RTN","C0QMU12",471,0)
2900 . D UPDATE^C0QUPDT(.G,C0QPARM(ZI,"EPQualitySet")) ; C0Q*1*5
2901"RTN","C0QMU12",472,0)
2902 Q
2903"RTN","C0QMU12",473,0)
2904 ;
2905"RTN","C0QMU12",474,0)
2906DIS ;
2907"RTN","C0QMU12",475,0)
2908 N DFN,DTE,EXDTE S DTE=""
2909"RTN","C0QMU12",476,0)
2910 F D Q:DTE=""
2911"RTN","C0QMU12",477,0)
2912 . S DTE=$O(^DGPM("B",DTE))
2913"RTN","C0QMU12",478,0)
2914 . Q:'DTE
2915"RTN","C0QMU12",479,0)
2916 . ;Q:$P(DTE,".")<3110703
2917"RTN","C0QMU12",480,0)
2918 . Q:$P(DTE,".")<3111000 ; NEW BEGIN DATE FOR FISCAL YEAR 2012
2919"RTN","C0QMU12",481,0)
2920 . S EXDTE=$$FMTE^XLFDT(DTE)
2921"RTN","C0QMU12",482,0)
2922 . N PTFM S PTFM=""
2923"RTN","C0QMU12",483,0)
2924 . D
2925"RTN","C0QMU12",484,0)
2926 . . S PTFM=$O(^DGPM("B",DTE,PTFM))
2927"RTN","C0QMU12",485,0)
2928 . . Q:'PTFM
2929"RTN","C0QMU12",486,0)
2930 . . S DFN=$P(^DGPM(PTFM,0),U,3)
2931"RTN","C0QMU12",487,0)
2932 . . S C0QLIST(ZYR_"Patient",DFN)=""
2933"RTN","C0QMU12",488,0)
2934 . . D DEMO^C0QMU122
2935"RTN","C0QMU12",489,0)
2936 . . D PROBLEM
2937"RTN","C0QMU12",490,0)
2938 . . D ALLERGY
2939"RTN","C0QMU12",491,0)
2940 . . D MEDS4
2941"RTN","C0QMU12",492,0)
2942 . . D RECON2
2943"RTN","C0QMU12",493,0)
2944 . . D ADVDIR
2945"RTN","C0QMU12",494,0)
2946 . . D SMOKING
2947"RTN","C0QMU12",495,0)
2948 . . D VITALS
2949"RTN","C0QMU12",496,0)
2950 . . ;D:$P(DTE,".")>3110912 VTE1
2951"RTN","C0QMU12",497,0)
2952 . . D VTE1
2953"RTN","C0QMU12",498,0)
2954 . . D COD
2955"RTN","C0QMU12",499,0)
2956 . . D EDTIME
2957"RTN","C0QMU12",500,0)
2958 . . I C0QPR D PRINT^C0QMU121
2959"RTN","C0QMU12",501,0)
2960 . . I C0QSS D SS^C0QMU121
2961"RTN","C0QMU12",502,0)
2962 . . I C0QPL D PATLIST^C0QMU121
2963"RTN","C0QMU12",503,0)
2964 Q
2965"RTN","C0QMU12",504,0)
2966 ;
2967"RTN","C0QMU12",505,0)
2968C0QPLF() Q 1130580001.301 ; FILE NUMBER FOR C0Q PATIENT LIST FILE
2969"RTN","C0QMU12",506,0)
2970C0QALFN() Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE
2971"RTN","C0QMU12",507,0)
2972FILE ; FILE THE PATIENT LISTS TO C0Q PATIENT LIST
2973"RTN","C0QMU12",508,0)
2974 ;
2975"RTN","C0QMU12",509,0)
2976 I '$D(C0QLIST) Q ;
2977"RTN","C0QMU12",510,0)
2978 N LFN S LFN=$$C0QALFN()
2979"RTN","C0QMU12",511,0)
2980 N ZI,ZN
2981"RTN","C0QMU12",512,0)
2982 S ZI=""
2983"RTN","C0QMU12",513,0)
2984 F S ZI=$O(C0QLIST(ZI)) Q:ZI="" D ;
2985"RTN","C0QMU12",514,0)
2986 . S ZN=$O(^C0Q(301,"CATTR",ZI,""))
2987"RTN","C0QMU12",515,0)
2988 . I ZN="" D ; LIST NOT FOUND, CREATE IT
2989"RTN","C0QMU12",516,0)
2990 . . K C0QFDA
2991"RTN","C0QMU12",517,0)
2992 . . S FN=$$C0QPLF ; C0Q PATIENT LIST FILE
2993"RTN","C0QMU12",518,0)
2994 . . S C0QFDA(FN,"+1,",.01)=ZI
2995"RTN","C0QMU12",519,0)
2996 . . S C0QFDA(FN,"+1,",999)=ZI ; ATTRIBUTE
2997"RTN","C0QMU12",520,0)
2998 . . W !,"CREATING ",ZI
2999"RTN","C0QMU12",521,0)
3000 . . D UPDIE ; ADD THE RECORD
3001"RTN","C0QMU12",522,0)
3002 . . S ZN=$O(^C0Q(301,"CATTR",ZI,"")) ; THE NEW IEN
3003"RTN","C0QMU12",523,0)
3004 . ;I ZN="" D Q ; OOPS
3005"RTN","C0QMU12",524,0)
3006 . ;. W !,"ERROR, ATTRIBUTE NOT FOUND IN PATIENT LIST FILE:"_ZI
3007"RTN","C0QMU12",525,0)
3008 . ;S ZN=$$KLNCR(ZN) ; KILL AND RECREATE RECORD ZN
3009"RTN","C0QMU12",526,0)
3010 . N C0QNEW,C0QOLD,C0QRSLT
3011"RTN","C0QMU12",527,0)
3012 . S C0QNEW=$NA(C0QLIST(ZI)) ; THE NEW PATIENT LIST
3013"RTN","C0QMU12",528,0)
3014 . S C0QOLD=$NA(^C0Q(301,ZN,1,"B")) ; THE OLD PATIENT LIST
3015"RTN","C0QMU12",529,0)
3016 . D UNITY^C0QSET("C0QRSLT",C0QNEW,C0QOLD) ; FIND WHAT'S NEW
3017"RTN","C0QMU12",530,0)
3018 . N ZJ,ZK
3019"RTN","C0QMU12",531,0)
3020 . ; FIRST, DELETE THE OLD ONES - NO LONGER IN THE LIST
3021"RTN","C0QMU12",532,0)
3022 . K C0QFDA
3023"RTN","C0QMU12",533,0)
3024 . S ZJ=""
3025"RTN","C0QMU12",534,0)
3026 . F S ZJ=$O(C0QRSLT(2,ZJ)) Q:ZJ="" D ; MARKED WITH A 2 FROM UNITY
3027"RTN","C0QMU12",535,0)
3028 . . S ZK=$O(@C0QOLD@(ZJ,"")) ; GET THE IEN OF THE RECORD TO DELETE
3029"RTN","C0QMU12",536,0)
3030 . . I ZK="" D Q ; OOPS SHOULDN'T HAPPEN
3031"RTN","C0QMU12",537,0)
3032 . . . W !,"INTERNAL ERROR FINDING A PATIENT TO DELETE"
3033"RTN","C0QMU12",538,0)
3034 . . . S $EC=",U1130580001," ; smh - instead of a BREAK
3035"RTN","C0QMU12",539,0)
3036 . . S C0QFDA(LFN,ZK_","_ZN_",",.01)="@"
3037"RTN","C0QMU12",540,0)
3038 . I $D(C0QFDA) D UPDIE ; PROCESS THE DELETIONS
3039"RTN","C0QMU12",541,0)
3040 . ; SECOND, PROCESS THE ADDITIONS
3041"RTN","C0QMU12",542,0)
3042 . K C0QFDA
3043"RTN","C0QMU12",543,0)
3044 . S ZJ="" S ZK=1
3045"RTN","C0QMU12",544,0)
3046 . F S ZJ=$O(C0QRSLT(0,ZJ)) Q:ZJ="" D ; PATIENTS TO ADD ARE MARKED WITH 0
3047"RTN","C0QMU12",545,0)
3048 . . S C0QFDA(LFN,"+"_ZK_","_ZN_",",.01)=ZJ
3049"RTN","C0QMU12",546,0)
3050 . . S ZK=ZK+1
3051"RTN","C0QMU12",547,0)
3052 . I $D(C0QFDA) D UPDIE ; PROCESS THE ADDITIONS
3053"RTN","C0QMU12",548,0)
3054 ;. Q
3055"RTN","C0QMU12",549,0)
3056 ;. K C0QFDA
3057"RTN","C0QMU12",550,0)
3058 ;. N ZJ,ZC
3059"RTN","C0QMU12",551,0)
3060 ;. S ZJ="" S ZC=1
3061"RTN","C0QMU12",552,0)
3062 ;. F S ZJ=$O(C0QLIST(ZI,ZJ)) Q:ZJ="" D ; FOR EACH PAT IN LIST
3063"RTN","C0QMU12",553,0)
3064 ;. . S C0QFDA(LFN,"?+"_ZC_","_ZN_",",.01)=ZJ
3065"RTN","C0QMU12",554,0)
3066 ;. . S ZC=ZC+1
3067"RTN","C0QMU12",555,0)
3068 ;. D UPDIE
3069"RTN","C0QMU12",556,0)
3070 ;. W !,"FOUND:"_ZI
3071"RTN","C0QMU12",557,0)
3072 Q
3073"RTN","C0QMU12",558,0)
3074 ;
3075"RTN","C0QMU12",559,0)
3076KLNCR(ZREC) ; KILL AND RECREATE RECORD ZREC IN PATIENT LIST FILE
3077"RTN","C0QMU12",560,0)
3078 ;
3079"RTN","C0QMU12",561,0)
3080 N C0QFDA,ZFN,LIST,ATTR
3081"RTN","C0QMU12",562,0)
3082 S ZFN=$$C0QPLF() ; FILE NUMBER FOR C0Q PATIENT LIST FILE
3083"RTN","C0QMU12",563,0)
3084 D CLEAN^DILF
3085"RTN","C0QMU12",564,0)
3086 S LIST=$$GET1^DIQ(ZFN,ZREC_",",.01) ; MEASURE NAME
3087"RTN","C0QMU12",565,0)
3088 S ATTR=$$GET1^DIQ(ZFN,ZREC_",",999) ; ATTRIBUTE
3089"RTN","C0QMU12",566,0)
3090 D CLEAN^DILF
3091"RTN","C0QMU12",567,0)
3092 K ZERR
3093"RTN","C0QMU12",568,0)
3094 S C0QFDA(ZFN,ZREC_",",.01)="@" ; GET READY TO DELETE THE MEASURE
3095"RTN","C0QMU12",569,0)
3096 D FILE^DIE(,"C0QFDA","ZERR") ; KILL THE SUBFILE
3097"RTN","C0QMU12",570,0)
3098 I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED
3099"RTN","C0QMU12",571,0)
3100 ;. W "ERROR",!
3101"RTN","C0QMU12",572,0)
3102 ;. ZWR ZERR
3103"RTN","C0QMU12",573,0)
3104 ;. B
3105"RTN","C0QMU12",574,0)
3106 K C0QFDA
3107"RTN","C0QMU12",575,0)
3108 S C0QFDA(ZFN,"+1,",.01)=LIST ; GET READY TO RECREATE THE RECORD
3109"RTN","C0QMU12",576,0)
3110 S C0QFDA(ZFN,"+1,",999)=ATTR ; ATTRIBUTE
3111"RTN","C0QMU12",577,0)
3112 D UPDIE ; CREATE THE SUBFILE
3113"RTN","C0QMU12",578,0)
3114 N ZR ; NEW IEN FOR THE RECORD
3115"RTN","C0QMU12",579,0)
3116 S ZR=$O(^C0Q(301,"CATTR",ATTR,""))
3117"RTN","C0QMU12",580,0)
3118 ;
3119"RTN","C0QMU12",581,0)
3120 Q ZR
3121"RTN","C0QMU12",582,0)
3122 ;
3123"RTN","C0QMU12",583,0)
3124UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
3125"RTN","C0QMU12",584,0)
3126 K ZERR
3127"RTN","C0QMU12",585,0)
3128 D CLEAN^DILF
3129"RTN","C0QMU12",586,0)
3130 D UPDATE^DIE("","C0QFDA","","ZERR")
3131"RTN","C0QMU12",587,0)
3132 I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST, INVOKE THE ERROR TRAP IF TASKED
3133"RTN","C0QMU12",588,0)
3134 K C0QFDA
3135"RTN","C0QMU12",589,0)
3136 Q
3137"RTN","C0QMU12",590,0)
3138 ;
3139"RTN","C0QMU12",591,0)
3140END ;end of C0QPRML;
3141"RTN","C0QMU123")
31420^2^B4208272
3143"RTN","C0QMU123",1,0)
3144C0QMU123 ; VEN/SMH - Clone a Measure Set and give a new name and filter. ; 10/23/12 1:07pm
3145"RTN","C0QMU123",2,0)
3146 ;;1.0;QUALITY MEASURES;**6**;;Build 3
3147"RTN","C0QMU123",3,0)
3148 ; (C) George Lilly. Licensed under AGPL.
3149"RTN","C0QMU123",4,0)
3150 QUIT
3151"RTN","C0QMU123",5,0)
3152 ;
3153"RTN","C0QMU123",6,0)
3154CLONE(MSIEN,CLNNM,ISQM,FLNAME) ; Private $$ ; Clone a measure set into a new one
3155"RTN","C0QMU123",7,0)
3156 ; Input:
3157"RTN","C0QMU123",8,0)
3158 ; 1. Measurement Set IEN to clone
3159"RTN","C0QMU123",9,0)
3160 ; 2. Clinic Name for which this Measurement Set would apply (FT)
3161"RTN","C0QMU123",10,0)
3162 ; 3. Boolean: Is Quality Measure?
3163"RTN","C0QMU123",11,0)
3164 ; 4. Filter List Name
3165"RTN","C0QMU123",12,0)
3166 ;
3167"RTN","C0QMU123",13,0)
3168 ; Output:
3169"RTN","C0QMU123",14,0)
3170 ; IEN of Created measure set.
3171"RTN","C0QMU123",15,0)
3172 ;
3173"RTN","C0QMU123",16,0)
3174 ; Get data from Model Set
3175"RTN","C0QMU123",17,0)
3176 N C0QIENS S C0QIENS=MSIEN_"," ; Input to GETS call
3177"RTN","C0QMU123",18,0)
3178 N C0QOUT,C0QERR ; Output Variables in GETS call.
3179"RTN","C0QMU123",19,0)
3180 D GETS^DIQ(1130580001.201,C0QIENS,"**","",$NA(C0QOUT),$NA(C0QERR))
3181"RTN","C0QMU123",20,0)
3182 ;
3183"RTN","C0QMU123",21,0)
3184 I $D(C0QERR) S $EC=",U1," ; Crash in case of error. Shouldn't happen.
3185"RTN","C0QMU123",22,0)
3186 ;
3187"RTN","C0QMU123",23,0)
3188 ; Deal with D0 stuff first.
3189"RTN","C0QMU123",24,0)
3190 ; Merge D0 level into a new FDA array.
3191"RTN","C0QMU123",25,0)
3192 N C0QNEW ; New FDA
3193"RTN","C0QMU123",26,0)
3194 M C0QNEW(1130580001.201,"?+1,")=C0QOUT(1130580001.201,C0QIENS)
3195"RTN","C0QMU123",27,0)
3196 ;
3197"RTN","C0QMU123",28,0)
3198 ; Change .01
3199"RTN","C0QMU123",29,0)
3200 ; NOTE: Field name is 30 characters. But HL is max 30 chars too!
3201"RTN","C0QMU123",30,0)
3202 ; So we have to truncate it.
3203"RTN","C0QMU123",31,0)
3204 ; If Is Quality Measure, Use QM, otherwise, use Performance Report.
3205"RTN","C0QMU123",32,0)
3206 S C0QNEW(1130580001.201,"?+1,",.01)=$E(CLNNM,1,27)_" "_$S(ISQM:"QM",1:"PR")
3207"RTN","C0QMU123",33,0)
3208 ;
3209"RTN","C0QMU123",34,0)
3210 ; Deal with D1 level
3211"RTN","C0QMU123",35,0)
3212 N I S I=0 ; Looper
3213"RTN","C0QMU123",36,0)
3214 N CNT S CNT=1 ; IENS counter ; Will become 2 and larger. Not to collide with the initial 1.
3215"RTN","C0QMU123",37,0)
3216 ;
3217"RTN","C0QMU123",38,0)
3218 ; For each record in D1 level
3219"RTN","C0QMU123",39,0)
3220 F S I=$O(C0QOUT(1130580001.2011,I)) Q:'I D
3221"RTN","C0QMU123",40,0)
3222 . S CNT=CNT+1
3223"RTN","C0QMU123",41,0)
3224 . ; Grab the Measure field
3225"RTN","C0QMU123",42,0)
3226 . S C0QNEW(1130580001.2011,"?+"_CNT_",?+1,",.01)=C0QOUT(1130580001.2011,I,.01)
3227"RTN","C0QMU123",43,0)
3228 . ;
3229"RTN","C0QMU123",44,0)
3230 . ; Put the Filter lists on
3231"RTN","C0QMU123",45,0)
3232 . S C0QNEW(1130580001.2011,"?+"_CNT_",?+1,",1.2)=FLNAME
3233"RTN","C0QMU123",46,0)
3234 . S C0QNEW(1130580001.2011,"?+"_CNT_",?+1,",2.2)=FLNAME
3235"RTN","C0QMU123",47,0)
3236 ;
3237"RTN","C0QMU123",48,0)
3238 ; File Data.
3239"RTN","C0QMU123",49,0)
3240 N C0QIEN,C0QERR ; Returned IEN, Error array
3241"RTN","C0QMU123",50,0)
3242 D UPDATE^DIE("E",$NA(C0QNEW),$NA(C0QIEN),$NA(C0QERR))
3243"RTN","C0QMU123",51,0)
3244 I $D(C0QERR) S $EC=",U1,"
3245"RTN","C0QMU123",52,0)
3246 ;
3247"RTN","C0QMU123",53,0)
3248 Q C0QIEN(1) ; Quit with IEN for ?+1.
3249"RTN","C0QMU123",54,0)
3250 ;
3251"RTN","C0QMU123",55,0)
3252 ; SAM(1130580001.201,"17,",.01)="DR OFFICE QM REPORT"
3253"RTN","C0QMU123",56,0)
3254 ; SAM(1130580001.201,"17,",.02)="AUG 1,2012"
3255"RTN","C0QMU123",57,0)
3256 ; SAM(1130580001.201,"17,",.03)="OCT 31,2012"
3257"RTN","C0QMU123",58,0)
3258 ; SAM(1130580001.201,"17,",.04)=""
3259"RTN","C0QMU123",59,0)
3260 ; SAM(1130580001.201,"17,",.05)=""
3261"RTN","C0QMU123",60,0)
3262 ; SAM(1130580001.201,"17,",.2)=""
3263"RTN","C0QMU123",61,0)
3264 ; SAM(1130580001.201,"17,",.3)=""
3265"RTN","C0QMU123",62,0)
3266 ; SAM(1130580001.201,"17,",.4)=""
3267"RTN","C0QMU123",63,0)
3268 ; SAM(1130580001.2011,"1,17,",.01)="MU EP NQF 0013"
3269"RTN","C0QMU123",64,0)
3270 ; SAM(1130580001.2011,"1,17,",1.1)=1
3271"RTN","C0QMU123",65,0)
3272 ; SAM(1130580001.2011,"1,17,",1.2)="MU12-EP-DR OFFICE-Patient"
3273"RTN","C0QMU123",66,0)
3274 ; SAM(1130580001.2011,"1,17,",2.1)=1
3275"RTN","C0QMU123",67,0)
3276 ; SAM(1130580001.2011,"1,17,",2.2)="MU12-EP-DR OFFICE-Patient"
3277"RTN","C0QMU123",68,0)
3278 ; SAM(1130580001.2011,"1,17,",3)=100
3279"RTN","C0QMU123",69,0)
3280 ; SAM(1130580001.2011,"2,17,",.01)="MU EP NQF 0028A"
3281"RTN","C0QMU123",70,0)
3282 ; SAM(1130580001.2011,"2,17,",1.1)=0
3283"RTN","C0QMU123",71,0)
3284 ; SAM(1130580001.2011,"2,17,",1.2)="MU12-EP-DR OFFICE-Patient"
3285"RTN","C0QMU123",72,0)
3286 ; SAM(1130580001.2011,"2,17,",2.1)=1
3287"RTN","C0QMU123",73,0)
3288 ; SAM(1130580001.2011,"2,17,",2.2)="MU12-EP-DR OFFICE-Patient"
3289"RTN","C0QMU123",74,0)
3290 ; SAM(1130580001.2011,"2,17,",3)=0
3291"RTN","C0QMU123",75,0)
3292 ; SAM(1130580001.2011,"3,17,",.01)="MU EP NQF 0028B"
3293"RTN","C0QMU123",76,0)
3294 ; SAM(1130580001.2011,"3,17,",1.1)=0
3295"RTN","C0QMU123",77,0)
3296 ; SAM(1130580001.2011,"3,17,",1.2)="MU12-EP-DR OFFICE-Patient"
3297"RTN","C0QMU123",78,0)
3298 ; SAM(1130580001.2011,"3,17,",2.1)=1
3299"RTN","C0QMU123",79,0)
3300 ; SAM(1130580001.2011,"3,17,",2.2)="MU12-EP-DR OFFICE-Patient"
3301"RTN","C0QMU123",80,0)
3302 ; SAM(1130580001.2011,"3,17,",3)=0
3303"RTN","C0QMU123",81,0)
3304 ; SAM(1130580001.2011,"4,17,",.01)="MU EP NQF 0421"
3305"RTN","C0QMU123",82,0)
3306 ; SAM(1130580001.2011,"4,17,",1.1)=1
3307"RTN","C0QMU123",83,0)
3308 ; SAM(1130580001.2011,"4,17,",1.2)="MU12-EP-DR OFFICE-Patient"
3309"RTN","C0QMU123",84,0)
3310 ; SAM(1130580001.2011,"4,17,",2.1)=1
3311"RTN","C0QMU123",85,0)
3312 ; SAM(1130580001.2011,"4,17,",2.2)="MU12-EP-DR OFFICE-Patient"
3313"RTN","C0QMU123",86,0)
3314 ; SAM(1130580001.2011,"4,17,",3)=100
3315"RTN","C0QMU123",87,0)
3316 ; SAM(1130580001.20111,"1,1,17,",.01)="MOUSE,MICKEY"
3317"RTN","C0QMU123",88,0)
3318 ; SAM(1130580001.20111,"1,4,17,",.01)="MOUSE,MICKEY"
3319"RTN","C0QMU123",89,0)
3320 ; SAM(1130580001.20112,"1,1,17,",.01)="MOUSE,MICKEY"
3321"RTN","C0QMU123",90,0)
3322 ; SAM(1130580001.20112,"1,2,17,",.01)="MOUSE,MICKEY"
3323"RTN","C0QMU123",91,0)
3324 ; SAM(1130580001.20112,"1,3,17,",.01)="MOUSE,MICKEY"
3325"RTN","C0QMU123",92,0)
3326 ; SAM(1130580001.20112,"1,4,17,",.01)="MOUSE,MICKEY"
3327"RTN","C0QMU123",93,0)
3328 ;
3329"VER")
33308.0^22.0
3331"^DD",1130580001.401,1130580001.401,6.1,0)
3332MODEL PERFORMANCE MEASURE SET^P1130580001.201'^C0Q(201,^6;1^Q
3333"^DD",1130580001.401,1130580001.401,6.1,3)
3334Enter a measure set to base created measure sets on
3335"^DD",1130580001.401,1130580001.401,6.1,21,0)
3336^^4^4^3121022^
3337"^DD",1130580001.401,1130580001.401,6.1,21,1,0)
3338Entering a selection here lets the software know that you want to create
3339"^DD",1130580001.401,1130580001.401,6.1,21,2,0)
3340a new Measure Set based on another measure set. The Measure Set's name
3341"^DD",1130580001.401,1130580001.401,6.1,21,3,0)
3342will be CLINIC NAME + PR, where the clinic name is truncated
3343"^DD",1130580001.401,1130580001.401,6.1,21,4,0)
3344to 27 characters, and where PR stands for Performance Report.
3345"^DD",1130580001.401,1130580001.401,6.1,"DT")
33463121022
3347"^DD",1130580001.401,1130580001.401,6.2,0)
3348MODEL QUALITY MEASURE SET^P1130580001.201'^C0Q(201,^6;2^Q
3349"^DD",1130580001.401,1130580001.401,6.2,3)
3350Enter a measure set to base created measure sets on
3351"^DD",1130580001.401,1130580001.401,6.2,21,0)
3352^^4^4^3121022^
3353"^DD",1130580001.401,1130580001.401,6.2,21,1,0)
3354Entering a selection here lets the software know that you want to create
3355"^DD",1130580001.401,1130580001.401,6.2,21,2,0)
3356a new Measure Set based on another measure set. The Measure Set's name
3357"^DD",1130580001.401,1130580001.401,6.2,21,3,0)
3358will be CLINIC NAME + QM, where the clinic name is truncated
3359"^DD",1130580001.401,1130580001.401,6.2,21,4,0)
3360to 27 characters, and where QM stands for Quality Measures.
3361"^DD",1130580001.401,1130580001.401,6.2,"DT")
33623121022
3363**END**
3364**END**
Note: See TracBrowser for help on using the repository browser.