1 | C0Q1P2 ; VEN/SMH - Kids utilities for C0Q 1.0 patch 1 ; 7/20/12 10:52am
|
---|
2 | ;;1.0;QUALITY MEASURES;*1*;July 13, 2112;
|
---|
3 | ; Licensed under package license. See Documentation
|
---|
4 | ;
|
---|
5 | ; PEPs: PRE, TRAN, POST
|
---|
6 | ;
|
---|
7 | PRE ; Unified Pre; PEP
|
---|
8 | D PREREM
|
---|
9 | QUIT
|
---|
10 | TRAN ; Unified Tran; PEP
|
---|
11 | QUIT
|
---|
12 | POST ; Unified Post; PEP
|
---|
13 | D POSTREM
|
---|
14 | QUIT
|
---|
15 | ;
|
---|
16 | ; Rest of entry points are private
|
---|
17 | ;
|
---|
18 | ;
|
---|
19 | ARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install
|
---|
20 | ;
|
---|
21 | N LN S LN=1
|
---|
22 | ;
|
---|
23 | ; NQF 0024-alt-core_wt-kids
|
---|
24 | ; NB: Commented out. Reminder needs to be re-done to include BMI %tile
|
---|
25 | ; S ARRAY(LN,1)="MU NQF0024 BMI_MK"
|
---|
26 | ; I MODE S ARRAY(LN,2)="07/06/2011@15:11:46"
|
---|
27 | ; S LN=LN+1
|
---|
28 | ;
|
---|
29 | ; NQF 0013-core-HTN
|
---|
30 | S ARRAY(LN,1)="MU NQF0013 HTN_MK"
|
---|
31 | I MODE S ARRAY(LN,2)="07/06/2011@15:08:53"
|
---|
32 | S LN=LN+1
|
---|
33 | ;
|
---|
34 | ; NQF 0028a-core-tobacco-access
|
---|
35 | ; NQF 0028b-core-tobaocc-intervention
|
---|
36 | ; Both are in the first; dialog is in the second.
|
---|
37 | S ARRAY(LN,1)="MU NQF0028 TOBACCO_MK"
|
---|
38 | I MODE S ARRAY(LN,2)="07/06/2011@15:14:49"
|
---|
39 | S LN=LN+1
|
---|
40 | S ARRAY(LN,1)="MU NQF0028AB MANAGEMENT DI"
|
---|
41 | I MODE S ARRAY(LN,2)="06/08/2011@16:50:31"
|
---|
42 | S LN=LN+1
|
---|
43 | ;
|
---|
44 | ; NQF 0041-alt-core-flu
|
---|
45 | S ARRAY(LN,1)="MU NQF0041 FLU_MK"
|
---|
46 | I MODE S ARRAY(LN,2)="07/06/2011@15:26:59"
|
---|
47 | S LN=LN+1
|
---|
48 | ;
|
---|
49 | ; NQF 0059-option1-DM-Hbalc
|
---|
50 | ; NQF 0061-option3-DM-BP
|
---|
51 | ; NQF 0064-option2-DM-LDL
|
---|
52 | ; All are in One Reminder Exchange entry
|
---|
53 | S ARRAY(LN,1)="MU NQF0059_61_64_SMH"
|
---|
54 | I MODE S ARRAY(LN,2)="07/16/2012@10:46:17"
|
---|
55 | S LN=LN+1
|
---|
56 | ;
|
---|
57 | ; Inpatient Education Reminders (popularly known as ED-1 and ED-2)
|
---|
58 | ; NQF 0495
|
---|
59 | ; NQF 0497
|
---|
60 | S ARRAY(LN,1)="MU NQF 0495 ED-1"
|
---|
61 | I MODE S ARRAY(LN,2)="07/17/2012@11:47:55"
|
---|
62 | S LN=LN+1
|
---|
63 | S ARRAY(LN,1)="MU NQF 0497 ED-2"
|
---|
64 | I MODE S ARRAY(LN,2)="07/17/2012@11:50:23"
|
---|
65 | S LN=LN+1
|
---|
66 | ;
|
---|
67 | ; MU Stroke Measures
|
---|
68 | ; NQF 0435
|
---|
69 | ; NQF 0436
|
---|
70 | ; NQF 0437
|
---|
71 | ; NQF 0438
|
---|
72 | ; NQF 0439
|
---|
73 | ; NQF 0440
|
---|
74 | ; NQF 0441
|
---|
75 | ; NB: Contains two Labs! Must rematch if not on your system.
|
---|
76 | ; Installation will become talkative
|
---|
77 | S ARRAY(LN,1)="MU STROKE 2.3.4.5.6.8.10 SMH"
|
---|
78 | I MODE S ARRAY(LN,2)="07/18/2012@10:33:53"
|
---|
79 | S LN=LN+1
|
---|
80 | ;
|
---|
81 | ; MU VTE Measures
|
---|
82 | ; NQF 0371
|
---|
83 | ; NQF 0372
|
---|
84 | ; NQF 0373
|
---|
85 | ; NQF 0374
|
---|
86 | ; NQF 0375
|
---|
87 | ; NQF 0376
|
---|
88 | ; NB: Contains several labs. Must rematch if not on your system.
|
---|
89 | ; Installation will become talkative
|
---|
90 | S ARRAY(LN,1)="MU VTE 1.2.3.4.5.6 SMH"
|
---|
91 | I MODE S ARRAY(LN,2)="07/20/2012@09:48:30"
|
---|
92 | S LN=LN+1
|
---|
93 | Q
|
---|
94 | ;
|
---|
95 | ;===============================================================
|
---|
96 | DELEI ;If the Exchange File entry already exists delete it.
|
---|
97 | N ARRAY,IC,IND,LIST,LUVALUE,NUM
|
---|
98 | D ARRAY(1,.ARRAY)
|
---|
99 | S IC=0
|
---|
100 | F S IC=$O(ARRAY(IC)) Q:'IC D
|
---|
101 | .S LUVALUE(1)=ARRAY(IC,1)
|
---|
102 | .D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")
|
---|
103 | .I '$D(LIST) Q
|
---|
104 | .S NUM=$P(LIST("DILIST",0),U,1)
|
---|
105 | .I NUM'=0 D
|
---|
106 | ..F IND=1:1:NUM D
|
---|
107 | ... N DA,DIK
|
---|
108 | ... S DIK="^PXD(811.8,"
|
---|
109 | ... S DA=LIST("DILIST",2,IND)
|
---|
110 | ... D ^DIK
|
---|
111 | Q
|
---|
112 | ;
|
---|
113 | ;===============================================================
|
---|
114 | EXFINC(Y) ;Return a 1 if the Exchange file entry is in the list to
|
---|
115 | ;include in the build. This is used in the build to determine which
|
---|
116 | ;entries to include.
|
---|
117 | N ARRAY,FOUND,IEN,IC,LUVALUE
|
---|
118 | D ARRAY(1,.ARRAY)
|
---|
119 | S FOUND=0
|
---|
120 | S IC=0
|
---|
121 | F S IC=+$O(ARRAY(IC)) Q:(IC=0)!(FOUND) D
|
---|
122 | . M LUVALUE=ARRAY(IC)
|
---|
123 | . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
|
---|
124 | . I IEN=Y S FOUND=1 Q
|
---|
125 | Q FOUND
|
---|
126 | ;
|
---|
127 | PREREM ;
|
---|
128 | D DELEI
|
---|
129 | Q
|
---|
130 | POSTREM ;
|
---|
131 | D SMEXINS
|
---|
132 | Q
|
---|
133 | ;===============================================================
|
---|
134 | SMEXINS ;Silent mode install.
|
---|
135 | N ARRAY,IC,IEN,LUVALUE,PXRMINST
|
---|
136 | S PXRMINST=1
|
---|
137 | D ARRAY(1,.ARRAY)
|
---|
138 | S IC=0
|
---|
139 | F S IC=$O(ARRAY(IC)) Q:'IC D
|
---|
140 | .M LUVALUE=ARRAY(IC)
|
---|
141 | .S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
|
---|
142 | .I IEN'=0 D
|
---|
143 | .. N TEXT
|
---|
144 | .. I LUVALUE(1)["PARAMETER" S TEXT="Installing entry "_LUVALUE(1)
|
---|
145 | .. E S TEXT="Installing reminder exchange entry "_LUVALUE(1)
|
---|
146 | .. D BMES^XPDUTL(TEXT)
|
---|
147 | .. D INSTALL^PXRMEXSI(IEN,"I",1)
|
---|
148 | Q
|
---|
149 | ;
|
---|
150 | CRPL(PLNAME,C0QERR) ; Private ; $$ ; Create Patient List
|
---|
151 | ; Input: PLNAME: By Value: Patient List Name
|
---|
152 | ; C0QERR: By Ref: Error Array
|
---|
153 | ; Output: IEN of Patient List, or -1 for error
|
---|
154 | N C0QFDA,C0QIENS ; FDA, return IEN
|
---|
155 | S C0QFDA(810.5,"?+1,",.01)=PLNAME ; Patient List Name
|
---|
156 | S C0QFDA(810.5,"?+1,",.07)="`"_DUZ ; Creator
|
---|
157 | S C0QFDA(810.5,"?+1,",.08)="PUB" ; Type: Public
|
---|
158 | S C0QFDA(810.5,"?+1,",100)="L" ; Class: Local
|
---|
159 | D UPDATE^DIE("E",$NA(C0QFDA),$NA(C0QIENS),$NA(C0QERR)) ; External Flag
|
---|
160 | I $G(C0QIENS(1)) QUIT C0QIENS(1)
|
---|
161 | E QUIT -1
|
---|