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