Index: qrda/C0Q/trunk/kids/C0Q*1.0*2.DONTUSE
===================================================================
--- qrda/C0Q/trunk/kids/C0Q*1.0*2.DONTUSE (revision 1488)
+++ qrda/C0Q/trunk/kids/C0Q*1.0*2.DONTUSE (revision 1489)
@@ -1,4 +1,4 @@
-KIDS Distribution saved on Jul 16, 2012@11:09:10
-SDFGHJKL
+KIDS Distribution saved on Jul 17, 2012@12:16:02
+TEST TEST TEST
**KIDS**:C0Q*1.0*2^
@@ -6,5 +6,5 @@
C0Q*1.0*2
"BLD",7935,0)
-C0Q*1.0*2^QUALITY MEASURES^0^3120716^y
+C0Q*1.0*2^QUALITY MEASURES^0^3120717^y
"BLD",7935,1,0)
^^4^4^3120713^
@@ -28,5 +28,5 @@
"BLD",7935,6.3)
-7
+8
"BLD",7935,"ABPKG")
n
@@ -9223,4 +9223,5656 @@
"DATA",811.8,173,120,8,1,10,0)
MU NQF0064 NUM LDL RS^1271^1279^1284^1285^1^1
+"DATA",811.8,176,0)
+MU NQF 0497 ED-2^HABIEL,SAM at VOE OFFICE INSTITUTION^3120717.115023
+"DATA",811.8,176,100,0)
+^811.801^1419^1419
+"DATA",811.8,176,100,1,0)
+
+"DATA",811.8,176,100,2,0)
+
+"DATA",811.8,176,100,3,0)
+2.0P17
+"DATA",811.8,176,100,4,0)
+1326
+"DATA",811.8,176,100,5,0)
+
+"DATA",811.8,176,100,6,0)
+MU NQF 0497 ED-2
+"DATA",811.8,176,100,7,0)
+HABIEL,SAM
+"DATA",811.8,176,100,8,0)
+VOE OFFICE INSTITUTION
+"DATA",811.8,176,100,9,0)
+07/17/2012@11:50:23
+"DATA",811.8,176,100,10,0)
+
+"DATA",811.8,176,100,11,0)
+
+"DATA",811.8,176,100,19,0)
+
+"DATA",811.8,176,100,20,0)
+MU
+"DATA",811.8,176,100,21,0)
+NQF
+"DATA",811.8,176,100,22,0)
+0497
+"DATA",811.8,176,100,23,0)
+ED-2
+"DATA",811.8,176,100,24,0)
+
+"DATA",811.8,176,100,25,0)
+
+"DATA",811.8,176,100,26,0)
+PXRMINPL
+"DATA",811.8,176,100,27,0)
+2982435994
+"DATA",811.8,176,100,28,0)
+
+"DATA",811.8,176,100,29,0)
+EDT)!(DATE="") D
+"DATA",811.8,176,100,48,0)
+ . S IEN=""
+"DATA",811.8,176,100,49,0)
+ . F S IEN=$O(^DGPM(SUB,DATE,IEN)) Q:IEN="" D
+"DATA",811.8,176,100,50,0)
+ .. S DATA=^DGPM(IEN,0)
+"DATA",811.8,176,100,51,0)
+ .. S DFN=$P(DATA,U,3)
+"DATA",811.8,176,100,52,0)
+ .. I SUB="ATT1" D
+"DATA",811.8,176,100,53,0)
+ ...;WARD is a required field but it may not exist for older entries.
+"DATA",811.8,176,100,54,0)
+ ... S WARDP=+$P(DATA,U,6)
+"DATA",811.8,176,100,55,0)
+ ... S WARD=WARDP_";"_$S(WARDP>0:$P($G(^DIC(42,WARDP,0)),U,1),1:0)
+"DATA",811.8,176,100,56,0)
+ .. I SUB="ATT3" D
+"DATA",811.8,176,100,57,0)
+ ... S WARD=$$GET1^DIQ(405,IEN,200)
+"DATA",811.8,176,100,58,0)
+ ... S WARDP=$S(WARD'="":$O(^DIC(42,"B",WARD,"")),1:0)
+"DATA",811.8,176,100,59,0)
+ ... S WARD=WARDP_";"_WARD
+"DATA",811.8,176,100,60,0)
+ ..;If a location list has been passed in make sure the hospital
+"DATA",811.8,176,100,61,0)
+ ..;location for the ward is on the list.
+"DATA",811.8,176,100,62,0)
+ .. S HLOC=$S(WARDP>0:^DIC(42,WARDP,44),1:0)
+"DATA",811.8,176,100,63,0)
+ .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0)
+"DATA",811.8,176,100,64,0)
+ .. I 'OK Q
+"DATA",811.8,176,100,65,0)
+ .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1
+"DATA",811.8,176,100,66,0)
+ .. S ^TMP($J,PLIST,DFN,CNT)=U_DATE_U_405_U_DFN_U_WARD
+"DATA",811.8,176,100,67,0)
+ .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0)
+"DATA",811.8,176,100,68,0)
+ .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0)
+"DATA",811.8,176,100,69,0)
+ .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0)
+"DATA",811.8,176,100,70,0)
+ .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARD
+"DATA",811.8,176,100,71,0)
+ .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM
+"DATA",811.8,176,100,72,0)
+ .. S ^TMP($J,PLIST,DFN,CNT,"TYPE_OF_MVMT")=$$GET1^DIQ(405.1,$P(DATA,U,4),.01)
+"DATA",811.8,176,100,73,0)
+ K ^TMP($J,"CNT")
+"DATA",811.8,176,100,74,0)
+ Q
+"DATA",811.8,176,100,75,0)
+ ;
+"DATA",811.8,176,100,76,0)
+ ;=====================================
+"DATA",811.8,176,100,77,0)
+CURR(NGET,BDT,EDT,PLIST,PARAM) ;Current inpatients.
+"DATA",811.8,176,100,78,0)
+ ; DBIAs #10035, #10039, #10040, #10061, #10090
+"DATA",811.8,176,100,79,0)
+ N CNT,DFN,HLOC,INST,INSTNM,LOCLIST,OK,WARD,WARDP,WARDSUB,VAIN,VAERR
+"DATA",811.8,176,100,80,0)
+ K ^TMP($J,PLIST),^TMP($J,"CNT")
+"DATA",811.8,176,100,81,0)
+ S OK=1
+"DATA",811.8,176,100,82,0)
+ S LOCLIST=$S(PARAM'="":+$O(^PXRMD(810.9,"B",PARAM,0)),1:0)
+"DATA",811.8,176,100,83,0)
+ S WARD=""
+"DATA",811.8,176,100,84,0)
+ F S WARD=$O(^DPT("CN",WARD)) Q:WARD="" D
+"DATA",811.8,176,100,85,0)
+ . S DFN=0
+"DATA",811.8,176,100,86,0)
+ . F S DFN=$O(^DPT("CN",WARD,DFN)) Q:'+DFN D
+"DATA",811.8,176,100,87,0)
+ ..;If a location list has been passed in make sure the hospital
+"DATA",811.8,176,100,88,0)
+ ..;location for the ward is on the list.
+"DATA",811.8,176,100,89,0)
+ .. S WARDP=+$O(^DIC(42,"B",WARD,""))
+"DATA",811.8,176,100,90,0)
+ .. S HLOC=+$G(^DIC(42,WARDP,44))
+"DATA",811.8,176,100,91,0)
+ .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0)
+"DATA",811.8,176,100,92,0)
+ .. I 'OK Q
+"DATA",811.8,176,100,93,0)
+ .. K VAIN,VAERR D INP^VADPT
+"DATA",811.8,176,100,94,0)
+ .. S WARDSUB=+VAIN(4)_";"_WARD
+"DATA",811.8,176,100,95,0)
+ .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1
+"DATA",811.8,176,100,96,0)
+ .. S ^TMP($J,PLIST,DFN,CNT)=U_+VAIN(7)_U_2_U_DFN_U_WARDSUB
+"DATA",811.8,176,100,97,0)
+ .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0)
+"DATA",811.8,176,100,98,0)
+ .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0)
+"DATA",811.8,176,100,99,0)
+ .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0)
+"DATA",811.8,176,100,100,0)
+ .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARDSUB
+"DATA",811.8,176,100,101,0)
+ .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM
+"DATA",811.8,176,100,102,0)
+ .. S ^TMP($J,PLIST,DFN,CNT,"ADMIT DATE")=VAIN(7)
+"DATA",811.8,176,100,103,0)
+ K ^TMP($J,"CNT")
+"DATA",811.8,176,100,104,0)
+ Q
+"DATA",811.8,176,100,105,0)
+ ;
+"DATA",811.8,176,100,106,0)
+ ;=====================================
+"DATA",811.8,176,100,107,0)
+DISCH(NGET,BDT,EDT,PLIST,PARAM) ;Discharges during a date range.
+"DATA",811.8,176,100,108,0)
+ ;NOTE: ASIH is not accounted for in this version.
+"DATA",811.8,176,100,109,0)
+ D ADMDISCH(BDT,EDT,PLIST,PARAM,"ATT3")
+"DATA",811.8,176,100,110,0)
+ Q
+"DATA",811.8,176,100,111,0)
+ ;
+"DATA",811.8,176,100,112,0)
+]]>
+"DATA",811.8,176,100,113,0)
+
+"DATA",811.8,176,100,114,0)
+
+"DATA",811.8,176,100,115,0)
+
+"DATA",811.8,176,100,116,0)
+HEALTH FACTORS
+"DATA",811.8,176,100,117,0)
+9999999.64
+"DATA",811.8,176,100,118,0)
+MU STK
+"DATA",811.8,176,100,119,0)
+50049
+"DATA",811.8,176,100,120,0)
+1292931282
+"DATA",811.8,176,100,121,0)
+NO
+"DATA",811.8,176,100,122,0)
+
+"DATA",811.8,176,100,123,0)
+
+"DATA",811.8,176,100,127,0)
+
+"DATA",811.8,176,100,128,0)
+
+"DATA",811.8,176,100,129,0)
+
+"DATA",811.8,176,100,130,0)
+HEALTH FACTORS
+"DATA",811.8,176,100,131,0)
+9999999.64
+"DATA",811.8,176,100,132,0)
+ADMIT DECISION
+"DATA",811.8,176,100,133,0)
+50092
+"DATA",811.8,176,100,134,0)
+3538184457
+"DATA",811.8,176,100,135,0)
+NO
+"DATA",811.8,176,100,136,0)
+
+"DATA",811.8,176,100,137,0)
+
+"DATA",811.8,176,100,144,0)
+
+"DATA",811.8,176,100,145,0)
+
+"DATA",811.8,176,100,146,0)
+
+"DATA",811.8,176,100,147,0)
+HEALTH FACTORS
+"DATA",811.8,176,100,148,0)
+9999999.64
+"DATA",811.8,176,100,149,0)
+ARRIVAL
+"DATA",811.8,176,100,150,0)
+50063
+"DATA",811.8,176,100,151,0)
+3668375555
+"DATA",811.8,176,100,152,0)
+NO
+"DATA",811.8,176,100,153,0)
+
+"DATA",811.8,176,100,154,0)
+
+"DATA",811.8,176,100,161,0)
+
+"DATA",811.8,176,100,162,0)
+
+"DATA",811.8,176,100,163,0)
+
+"DATA",811.8,176,100,164,0)
+REMINDER COMPUTED FINDINGS
+"DATA",811.8,176,100,165,0)
+811.4
+"DATA",811.8,176,100,166,0)
+VA-ADMISSIONS FOR A DATE RANGE
+"DATA",811.8,176,100,167,0)
+90
+"DATA",811.8,176,100,168,0)
+1960922291
+"DATA",811.8,176,100,169,0)
+NO
+"DATA",811.8,176,100,170,0)
+
+"DATA",811.8,176,100,171,0)
+
+"DATA",811.8,176,100,212,0)
+
+"DATA",811.8,176,100,213,0)
+
+"DATA",811.8,176,100,214,0)
+
+"DATA",811.8,176,100,217,0)
+
+"DATA",811.8,176,100,218,0)
+
+"DATA",811.8,176,100,219,0)
+
+"DATA",811.8,176,100,220,0)
+REMINDER COMPUTED FINDINGS
+"DATA",811.8,176,100,221,0)
+811.4
+"DATA",811.8,176,100,222,0)
+VA-DISCHARGES FOR A DATE RANGE
+"DATA",811.8,176,100,223,0)
+94
+"DATA",811.8,176,100,224,0)
+1608937132
+"DATA",811.8,176,100,225,0)
+NO
+"DATA",811.8,176,100,226,0)
+
+"DATA",811.8,176,100,227,0)
+
+"DATA",811.8,176,100,265,0)
+
+"DATA",811.8,176,100,266,0)
+
+"DATA",811.8,176,100,267,0)
+
+"DATA",811.8,176,100,270,0)
+
+"DATA",811.8,176,100,271,0)
+
+"DATA",811.8,176,100,272,0)
+
+"DATA",811.8,176,100,273,0)
+REMINDER TAXONOMY
+"DATA",811.8,176,100,274,0)
+811.2
+"DATA",811.8,176,100,275,0)
+MU TABLE 7P01 TX
+"DATA",811.8,176,100,276,0)
+187
+"DATA",811.8,176,100,277,0)
+1550059983
+"DATA",811.8,176,100,278,0)
+NO
+"DATA",811.8,176,100,279,0)
+
+"DATA",811.8,176,100,280,0)
+
+"DATA",811.8,176,100,876,0)
+
+"DATA",811.8,176,100,877,0)
+
+"DATA",811.8,176,100,878,0)
+
+"DATA",811.8,176,100,1028,0)
+
+"DATA",811.8,176,100,1029,0)
+
+"DATA",811.8,176,100,1030,0)
+
+"DATA",811.8,176,100,1031,0)
+REMINDER TERM
+"DATA",811.8,176,100,1032,0)
+811.5
+"DATA",811.8,176,100,1033,0)
+MU ADMISSION ICU OBSERVATION TRM
+"DATA",811.8,176,100,1034,0)
+668
+"DATA",811.8,176,100,1035,0)
+1406123770
+"DATA",811.8,176,100,1036,0)
+NO
+"DATA",811.8,176,100,1037,0)
+
+"DATA",811.8,176,100,1038,0)
+
+"DATA",811.8,176,100,1048,0)
+
+"DATA",811.8,176,100,1049,0)
+
+"DATA",811.8,176,100,1050,0)
+
+"DATA",811.8,176,100,1054,0)
+
+"DATA",811.8,176,100,1055,0)
+
+"DATA",811.8,176,100,1056,0)
+
+"DATA",811.8,176,100,1057,0)
+REMINDER DEFINITION
+"DATA",811.8,176,100,1058,0)
+811.9
+"DATA",811.8,176,100,1059,0)
+MU ED2 CR
+"DATA",811.8,176,100,1060,0)
+219
+"DATA",811.8,176,100,1061,0)
+534524201
+"DATA",811.8,176,100,1062,0)
+NO
+"DATA",811.8,176,100,1063,0)
+
+"DATA",811.8,176,100,1064,0)
+
+"DATA",811.8,176,100,1122,0)
+
+"DATA",811.8,176,100,1123,0)
+
+"DATA",811.8,176,100,1124,0)
+
+"DATA",811.8,176,100,1138,0)
+
+"DATA",811.8,176,100,1139,0)
+
+"DATA",811.8,176,100,1140,0)
+
+"DATA",811.8,176,100,1141,0)
+REMINDER DEFINITION
+"DATA",811.8,176,100,1142,0)
+811.9
+"DATA",811.8,176,100,1143,0)
+MU ED 1&2 DENOM
+"DATA",811.8,176,100,1144,0)
+247
+"DATA",811.8,176,100,1145,0)
+543950955
+"DATA",811.8,176,100,1146,0)
+NO
+"DATA",811.8,176,100,1147,0)
+
+"DATA",811.8,176,100,1148,0)
+
+"DATA",811.8,176,100,1207,0)
+
+"DATA",811.8,176,100,1208,0)
+
+"DATA",811.8,176,100,1209,0)
+
+"DATA",811.8,176,100,1222,0)
+
+"DATA",811.8,176,100,1223,0)
+
+"DATA",811.8,176,100,1224,0)
+
+"DATA",811.8,176,100,1225,0)
+REMINDER LIST RULE
+"DATA",811.8,176,100,1226,0)
+810.4
+"DATA",811.8,176,100,1227,0)
+MU ED-2 NUMER RR
+"DATA",811.8,176,100,1228,0)
+89
+"DATA",811.8,176,100,1229,0)
+739660164
+"DATA",811.8,176,100,1230,0)
+NO
+"DATA",811.8,176,100,1231,0)
+
+"DATA",811.8,176,100,1232,0)
+
+"DATA",811.8,176,100,1241,0)
+
+"DATA",811.8,176,100,1242,0)
+
+"DATA",811.8,176,100,1243,0)
+
+"DATA",811.8,176,100,1246,0)
+
+"DATA",811.8,176,100,1247,0)
+
+"DATA",811.8,176,100,1248,0)
+
+"DATA",811.8,176,100,1249,0)
+REMINDER LIST RULE
+"DATA",811.8,176,100,1250,0)
+810.4
+"DATA",811.8,176,100,1251,0)
+MU ED-2 NUMER RS
+"DATA",811.8,176,100,1252,0)
+90
+"DATA",811.8,176,100,1253,0)
+34079790
+"DATA",811.8,176,100,1254,0)
+YES
+"DATA",811.8,176,100,1255,0)
+
+"DATA",811.8,176,100,1256,0)
+
+"DATA",811.8,176,100,1267,0)
+
+"DATA",811.8,176,100,1268,0)
+
+"DATA",811.8,176,100,1269,0)
+
+"DATA",811.8,176,100,1273,0)
+
+"DATA",811.8,176,100,1274,0)
+
+"DATA",811.8,176,100,1275,0)
+
+"DATA",811.8,176,100,1276,0)
+REMINDER LIST RULE
+"DATA",811.8,176,100,1277,0)
+810.4
+"DATA",811.8,176,100,1278,0)
+MU ED-2 DENOM RR
+"DATA",811.8,176,100,1279,0)
+164
+"DATA",811.8,176,100,1280,0)
+1426345292
+"DATA",811.8,176,100,1281,0)
+NO
+"DATA",811.8,176,100,1282,0)
+
+"DATA",811.8,176,100,1283,0)
+
+"DATA",811.8,176,100,1292,0)
+
+"DATA",811.8,176,100,1293,0)
+
+"DATA",811.8,176,100,1294,0)
+
+"DATA",811.8,176,100,1297,0)
+
+"DATA",811.8,176,100,1298,0)
+
+"DATA",811.8,176,100,1299,0)
+
+"DATA",811.8,176,100,1300,0)
+REMINDER LIST RULE
+"DATA",811.8,176,100,1301,0)
+810.4
+"DATA",811.8,176,100,1302,0)
+MU ED-2 DENOM RS
+"DATA",811.8,176,100,1303,0)
+168
+"DATA",811.8,176,100,1304,0)
+833941687
+"DATA",811.8,176,100,1305,0)
+YES
+"DATA",811.8,176,100,1306,0)
+
+"DATA",811.8,176,100,1307,0)
+
+"DATA",811.8,176,100,1318,0)
+
+"DATA",811.8,176,100,1319,0)
+
+"DATA",811.8,176,100,1320,0)
+
+"DATA",811.8,176,100,1324,0)
+
+"DATA",811.8,176,100,1325,0)
+
+"DATA",811.8,176,100,1326,0)
+
+"DATA",811.8,176,100,1327,0)
+14
+"DATA",811.8,176,100,1328,0)
+
+"DATA",811.8,176,100,1329,0)
+25
+"DATA",811.8,176,100,1330,0)
+111
+"DATA",811.8,176,100,1331,0)
+30
+"DATA",811.8,176,100,1332,0)
+
+"DATA",811.8,176,100,1333,0)
+
+"DATA",811.8,176,100,1334,0)
+125
+"DATA",811.8,176,100,1335,0)
+124
+"DATA",811.8,176,100,1336,0)
+115
+"DATA",811.8,176,100,1337,0)
+
+"DATA",811.8,176,100,1338,0)
+
+"DATA",811.8,176,100,1339,0)
+142
+"DATA",811.8,176,100,1340,0)
+138
+"DATA",811.8,176,100,1341,0)
+129
+"DATA",811.8,176,100,1342,0)
+
+"DATA",811.8,176,100,1343,0)
+
+"DATA",811.8,176,100,1344,0)
+159
+"DATA",811.8,176,100,1345,0)
+155
+"DATA",811.8,176,100,1346,0)
+146
+"DATA",811.8,176,100,1347,0)
+
+"DATA",811.8,176,100,1348,0)
+
+"DATA",811.8,176,100,1349,0)
+210
+"DATA",811.8,176,100,1350,0)
+172
+"DATA",811.8,176,100,1351,0)
+163
+"DATA",811.8,176,100,1352,0)
+215
+"DATA",811.8,176,100,1353,0)
+215
+"DATA",811.8,176,100,1354,0)
+
+"DATA",811.8,176,100,1355,0)
+
+"DATA",811.8,176,100,1356,0)
+263
+"DATA",811.8,176,100,1357,0)
+228
+"DATA",811.8,176,100,1358,0)
+219
+"DATA",811.8,176,100,1359,0)
+268
+"DATA",811.8,176,100,1360,0)
+268
+"DATA",811.8,176,100,1361,0)
+
+"DATA",811.8,176,100,1362,0)
+
+"DATA",811.8,176,100,1363,0)
+874
+"DATA",811.8,176,100,1364,0)
+281
+"DATA",811.8,176,100,1365,0)
+272
+"DATA",811.8,176,100,1366,0)
+1026
+"DATA",811.8,176,100,1367,0)
+879
+"DATA",811.8,176,100,1368,0)
+
+"DATA",811.8,176,100,1369,0)
+
+"DATA",811.8,176,100,1370,0)
+1046
+"DATA",811.8,176,100,1371,0)
+1039
+"DATA",811.8,176,100,1372,0)
+1030
+"DATA",811.8,176,100,1373,0)
+1052
+"DATA",811.8,176,100,1374,0)
+1051
+"DATA",811.8,176,100,1375,0)
+
+"DATA",811.8,176,100,1376,0)
+
+"DATA",811.8,176,100,1377,0)
+1120
+"DATA",811.8,176,100,1378,0)
+1065
+"DATA",811.8,176,100,1379,0)
+1056
+"DATA",811.8,176,100,1380,0)
+1136
+"DATA",811.8,176,100,1381,0)
+1125
+"DATA",811.8,176,100,1382,0)
+
+"DATA",811.8,176,100,1383,0)
+
+"DATA",811.8,176,100,1384,0)
+1205
+"DATA",811.8,176,100,1385,0)
+1149
+"DATA",811.8,176,100,1386,0)
+1140
+"DATA",811.8,176,100,1387,0)
+1220
+"DATA",811.8,176,100,1388,0)
+1210
+"DATA",811.8,176,100,1389,0)
+
+"DATA",811.8,176,100,1390,0)
+
+"DATA",811.8,176,100,1391,0)
+1239
+"DATA",811.8,176,100,1392,0)
+1233
+"DATA",811.8,176,100,1393,0)
+1224
+"DATA",811.8,176,100,1394,0)
+1244
+"DATA",811.8,176,100,1395,0)
+1244
+"DATA",811.8,176,100,1396,0)
+
+"DATA",811.8,176,100,1397,0)
+
+"DATA",811.8,176,100,1398,0)
+1265
+"DATA",811.8,176,100,1399,0)
+1257
+"DATA",811.8,176,100,1400,0)
+1248
+"DATA",811.8,176,100,1401,0)
+1271
+"DATA",811.8,176,100,1402,0)
+1270
+"DATA",811.8,176,100,1403,0)
+
+"DATA",811.8,176,100,1404,0)
+
+"DATA",811.8,176,100,1405,0)
+1290
+"DATA",811.8,176,100,1406,0)
+1284
+"DATA",811.8,176,100,1407,0)
+1275
+"DATA",811.8,176,100,1408,0)
+1295
+"DATA",811.8,176,100,1409,0)
+1295
+"DATA",811.8,176,100,1410,0)
+
+"DATA",811.8,176,100,1411,0)
+
+"DATA",811.8,176,100,1412,0)
+1316
+"DATA",811.8,176,100,1413,0)
+1308
+"DATA",811.8,176,100,1414,0)
+1299
+"DATA",811.8,176,100,1415,0)
+1322
+"DATA",811.8,176,100,1416,0)
+1321
+"DATA",811.8,176,100,1417,0)
+
+"DATA",811.8,176,100,1418,0)
+
+"DATA",811.8,176,100,1419,0)
+
+"DATA",811.8,176,110,0)
+^811.804^19^19
+"DATA",811.8,176,110,1,0)
+Source: HABIEL,SAM at VOE OFFICE INSTITUTION
+"DATA",811.8,176,110,2,0)
+Date Packed: 07/17/2012@11:50:23
+"DATA",811.8,176,110,3,0)
+Package Version: 2.0P17
+"DATA",811.8,176,110,4,0)
+
+"DATA",811.8,176,110,5,0)
+Description:
+"DATA",811.8,176,110,6,0)
+Package for Inpatient Measure MU HOS NQF 0497
+"DATA",811.8,176,110,7,0)
+
+"DATA",811.8,176,110,8,0)
+The following Clinical Reminder items were selected for packing:
+"DATA",811.8,176,110,9,0)
+REMINDER LIST RULE
+"DATA",811.8,176,110,10,0)
+ MU ED-2 NUMER RS
+"DATA",811.8,176,110,11,0)
+ MU ED-2 DENOM RS
+"DATA",811.8,176,110,12,0)
+
+"DATA",811.8,176,110,13,0)
+Keywords:
+"DATA",811.8,176,110,14,0)
+MU
+"DATA",811.8,176,110,15,0)
+NQF
+"DATA",811.8,176,110,16,0)
+0497
+"DATA",811.8,176,110,17,0)
+ED-2
+"DATA",811.8,176,110,18,0)
+
+"DATA",811.8,176,110,19,0)
+Components:
+"DATA",811.8,178,0)
+MU NQF 0495 ED-1^HABIEL,SAM at VOE OFFICE INSTITUTION^3120717.114755
+"DATA",811.8,178,100,0)
+^811.801^1363^1363
+"DATA",811.8,178,100,1,0)
+
+"DATA",811.8,178,100,2,0)
+
+"DATA",811.8,178,100,3,0)
+2.0P17
+"DATA",811.8,178,100,4,0)
+1282
+"DATA",811.8,178,100,5,0)
+
+"DATA",811.8,178,100,6,0)
+MU NQF 0495 ED-1
+"DATA",811.8,178,100,7,0)
+HABIEL,SAM
+"DATA",811.8,178,100,8,0)
+VOE OFFICE INSTITUTION
+"DATA",811.8,178,100,9,0)
+07/17/2012@11:47:55
+"DATA",811.8,178,100,10,0)
+
+"DATA",811.8,178,100,11,0)
+
+"DATA",811.8,178,100,19,0)
+
+"DATA",811.8,178,100,20,0)
+MU
+"DATA",811.8,178,100,21,0)
+NQF
+"DATA",811.8,178,100,22,0)
+0495
+"DATA",811.8,178,100,23,0)
+ED-1
+"DATA",811.8,178,100,24,0)
+
+"DATA",811.8,178,100,25,0)
+
+"DATA",811.8,178,100,26,0)
+PXRMINPL
+"DATA",811.8,178,100,27,0)
+2982435994
+"DATA",811.8,178,100,28,0)
+
+"DATA",811.8,178,100,29,0)
+EDT)!(DATE="") D
+"DATA",811.8,178,100,48,0)
+ . S IEN=""
+"DATA",811.8,178,100,49,0)
+ . F S IEN=$O(^DGPM(SUB,DATE,IEN)) Q:IEN="" D
+"DATA",811.8,178,100,50,0)
+ .. S DATA=^DGPM(IEN,0)
+"DATA",811.8,178,100,51,0)
+ .. S DFN=$P(DATA,U,3)
+"DATA",811.8,178,100,52,0)
+ .. I SUB="ATT1" D
+"DATA",811.8,178,100,53,0)
+ ...;WARD is a required field but it may not exist for older entries.
+"DATA",811.8,178,100,54,0)
+ ... S WARDP=+$P(DATA,U,6)
+"DATA",811.8,178,100,55,0)
+ ... S WARD=WARDP_";"_$S(WARDP>0:$P($G(^DIC(42,WARDP,0)),U,1),1:0)
+"DATA",811.8,178,100,56,0)
+ .. I SUB="ATT3" D
+"DATA",811.8,178,100,57,0)
+ ... S WARD=$$GET1^DIQ(405,IEN,200)
+"DATA",811.8,178,100,58,0)
+ ... S WARDP=$S(WARD'="":$O(^DIC(42,"B",WARD,"")),1:0)
+"DATA",811.8,178,100,59,0)
+ ... S WARD=WARDP_";"_WARD
+"DATA",811.8,178,100,60,0)
+ ..;If a location list has been passed in make sure the hospital
+"DATA",811.8,178,100,61,0)
+ ..;location for the ward is on the list.
+"DATA",811.8,178,100,62,0)
+ .. S HLOC=$S(WARDP>0:^DIC(42,WARDP,44),1:0)
+"DATA",811.8,178,100,63,0)
+ .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0)
+"DATA",811.8,178,100,64,0)
+ .. I 'OK Q
+"DATA",811.8,178,100,65,0)
+ .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1
+"DATA",811.8,178,100,66,0)
+ .. S ^TMP($J,PLIST,DFN,CNT)=U_DATE_U_405_U_DFN_U_WARD
+"DATA",811.8,178,100,67,0)
+ .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0)
+"DATA",811.8,178,100,68,0)
+ .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0)
+"DATA",811.8,178,100,69,0)
+ .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0)
+"DATA",811.8,178,100,70,0)
+ .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARD
+"DATA",811.8,178,100,71,0)
+ .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM
+"DATA",811.8,178,100,72,0)
+ .. S ^TMP($J,PLIST,DFN,CNT,"TYPE_OF_MVMT")=$$GET1^DIQ(405.1,$P(DATA,U,4),.01)
+"DATA",811.8,178,100,73,0)
+ K ^TMP($J,"CNT")
+"DATA",811.8,178,100,74,0)
+ Q
+"DATA",811.8,178,100,75,0)
+ ;
+"DATA",811.8,178,100,76,0)
+ ;=====================================
+"DATA",811.8,178,100,77,0)
+CURR(NGET,BDT,EDT,PLIST,PARAM) ;Current inpatients.
+"DATA",811.8,178,100,78,0)
+ ; DBIAs #10035, #10039, #10040, #10061, #10090
+"DATA",811.8,178,100,79,0)
+ N CNT,DFN,HLOC,INST,INSTNM,LOCLIST,OK,WARD,WARDP,WARDSUB,VAIN,VAERR
+"DATA",811.8,178,100,80,0)
+ K ^TMP($J,PLIST),^TMP($J,"CNT")
+"DATA",811.8,178,100,81,0)
+ S OK=1
+"DATA",811.8,178,100,82,0)
+ S LOCLIST=$S(PARAM'="":+$O(^PXRMD(810.9,"B",PARAM,0)),1:0)
+"DATA",811.8,178,100,83,0)
+ S WARD=""
+"DATA",811.8,178,100,84,0)
+ F S WARD=$O(^DPT("CN",WARD)) Q:WARD="" D
+"DATA",811.8,178,100,85,0)
+ . S DFN=0
+"DATA",811.8,178,100,86,0)
+ . F S DFN=$O(^DPT("CN",WARD,DFN)) Q:'+DFN D
+"DATA",811.8,178,100,87,0)
+ ..;If a location list has been passed in make sure the hospital
+"DATA",811.8,178,100,88,0)
+ ..;location for the ward is on the list.
+"DATA",811.8,178,100,89,0)
+ .. S WARDP=+$O(^DIC(42,"B",WARD,""))
+"DATA",811.8,178,100,90,0)
+ .. S HLOC=+$G(^DIC(42,WARDP,44))
+"DATA",811.8,178,100,91,0)
+ .. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0)
+"DATA",811.8,178,100,92,0)
+ .. I 'OK Q
+"DATA",811.8,178,100,93,0)
+ .. K VAIN,VAERR D INP^VADPT
+"DATA",811.8,178,100,94,0)
+ .. S WARDSUB=+VAIN(4)_";"_WARD
+"DATA",811.8,178,100,95,0)
+ .. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1
+"DATA",811.8,178,100,96,0)
+ .. S ^TMP($J,PLIST,DFN,CNT)=U_+VAIN(7)_U_2_U_DFN_U_WARDSUB
+"DATA",811.8,178,100,97,0)
+ .. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0)
+"DATA",811.8,178,100,98,0)
+ .. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0)
+"DATA",811.8,178,100,99,0)
+ .. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0)
+"DATA",811.8,178,100,100,0)
+ .. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARDSUB
+"DATA",811.8,178,100,101,0)
+ .. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM
+"DATA",811.8,178,100,102,0)
+ .. S ^TMP($J,PLIST,DFN,CNT,"ADMIT DATE")=VAIN(7)
+"DATA",811.8,178,100,103,0)
+ K ^TMP($J,"CNT")
+"DATA",811.8,178,100,104,0)
+ Q
+"DATA",811.8,178,100,105,0)
+ ;
+"DATA",811.8,178,100,106,0)
+ ;=====================================
+"DATA",811.8,178,100,107,0)
+DISCH(NGET,BDT,EDT,PLIST,PARAM) ;Discharges during a date range.
+"DATA",811.8,178,100,108,0)
+ ;NOTE: ASIH is not accounted for in this version.
+"DATA",811.8,178,100,109,0)
+ D ADMDISCH(BDT,EDT,PLIST,PARAM,"ATT3")
+"DATA",811.8,178,100,110,0)
+ Q
+"DATA",811.8,178,100,111,0)
+ ;
+"DATA",811.8,178,100,112,0)
+]]>
+"DATA",811.8,178,100,113,0)
+
+"DATA",811.8,178,100,114,0)
+
+"DATA",811.8,178,100,115,0)
+
+"DATA",811.8,178,100,116,0)
+HEALTH FACTORS
+"DATA",811.8,178,100,117,0)
+9999999.64
+"DATA",811.8,178,100,118,0)
+MU STK
+"DATA",811.8,178,100,119,0)
+50049
+"DATA",811.8,178,100,120,0)
+1292931282
+"DATA",811.8,178,100,121,0)
+NO
+"DATA",811.8,178,100,122,0)
+
+"DATA",811.8,178,100,123,0)
+
+"DATA",811.8,178,100,127,0)
+
+"DATA",811.8,178,100,128,0)
+
+"DATA",811.8,178,100,129,0)
+
+"DATA",811.8,178,100,130,0)
+HEALTH FACTORS
+"DATA",811.8,178,100,131,0)
+9999999.64
+"DATA",811.8,178,100,132,0)
+ARRIVAL
+"DATA",811.8,178,100,133,0)
+50063
+"DATA",811.8,178,100,134,0)
+3668375555
+"DATA",811.8,178,100,135,0)
+NO
+"DATA",811.8,178,100,136,0)
+
+"DATA",811.8,178,100,137,0)
+
+"DATA",811.8,178,100,144,0)
+
+"DATA",811.8,178,100,145,0)
+
+"DATA",811.8,178,100,146,0)
+
+"DATA",811.8,178,100,147,0)
+REMINDER COMPUTED FINDINGS
+"DATA",811.8,178,100,148,0)
+811.4
+"DATA",811.8,178,100,149,0)
+VA-DISCHARGES FOR A DATE RANGE
+"DATA",811.8,178,100,150,0)
+94
+"DATA",811.8,178,100,151,0)
+1608937132
+"DATA",811.8,178,100,152,0)
+NO
+"DATA",811.8,178,100,153,0)
+
+"DATA",811.8,178,100,154,0)
+
+"DATA",811.8,178,100,192,0)
+
+"DATA",811.8,178,100,193,0)
+
+"DATA",811.8,178,100,194,0)
+
+"DATA",811.8,178,100,197,0)
+
+"DATA",811.8,178,100,198,0)
+
+"DATA",811.8,178,100,199,0)
+
+"DATA",811.8,178,100,200,0)
+REMINDER COMPUTED FINDINGS
+"DATA",811.8,178,100,201,0)
+811.4
+"DATA",811.8,178,100,202,0)
+VA-ADMISSIONS FOR A DATE RANGE
+"DATA",811.8,178,100,203,0)
+90
+"DATA",811.8,178,100,204,0)
+1960922291
+"DATA",811.8,178,100,205,0)
+NO
+"DATA",811.8,178,100,206,0)
+
+"DATA",811.8,178,100,207,0)
+
+"DATA",811.8,178,100,248,0)
+
+"DATA",811.8,178,100,249,0)
+
+"DATA",811.8,178,100,250,0)
+
+"DATA",811.8,178,100,253,0)
+
+"DATA",811.8,178,100,254,0)
+
+"DATA",811.8,178,100,255,0)
+
+"DATA",811.8,178,100,256,0)
+REMINDER TAXONOMY
+"DATA",811.8,178,100,257,0)
+811.2
+"DATA",811.8,178,100,258,0)
+MU TABLE 7P01 TX
+"DATA",811.8,178,100,259,0)
+187
+"DATA",811.8,178,100,260,0)
+1550059983
+"DATA",811.8,178,100,261,0)
+NO
+"DATA",811.8,178,100,262,0)
+
+"DATA",811.8,178,100,263,0)
+
+"DATA",811.8,178,100,859,0)
+
+"DATA",811.8,178,100,860,0)
+
+"DATA",811.8,178,100,861,0)
+
+"DATA",811.8,178,100,1011,0)
+
+"DATA",811.8,178,100,1012,0)
+
+"DATA",811.8,178,100,1013,0)
+
+"DATA",811.8,178,100,1014,0)
+REMINDER DEFINITION
+"DATA",811.8,178,100,1015,0)
+811.9
+"DATA",811.8,178,100,1016,0)
+MU ED1 CR
+"DATA",811.8,178,100,1017,0)
+215
+"DATA",811.8,178,100,1018,0)
+2525598549
+"DATA",811.8,178,100,1019,0)
+NO
+"DATA",811.8,178,100,1020,0)
+
+"DATA",811.8,178,100,1021,0)
+
+"DATA",811.8,178,100,1079,0)
+
+"DATA",811.8,178,100,1080,0)
+
+"DATA",811.8,178,100,1081,0)
+
+"DATA",811.8,178,100,1094,0)
+
+"DATA",811.8,178,100,1095,0)
+
+"DATA",811.8,178,100,1096,0)
+
+"DATA",811.8,178,100,1097,0)
+REMINDER DEFINITION
+"DATA",811.8,178,100,1098,0)
+811.9
+"DATA",811.8,178,100,1099,0)
+MU ED 1&2 DENOM
+"DATA",811.8,178,100,1100,0)
+247
+"DATA",811.8,178,100,1101,0)
+543950955
+"DATA",811.8,178,100,1102,0)
+NO
+"DATA",811.8,178,100,1103,0)
+
+"DATA",811.8,178,100,1104,0)
+
+"DATA",811.8,178,100,1163,0)
+
+"DATA",811.8,178,100,1164,0)
+
+"DATA",811.8,178,100,1165,0)
+
+"DATA",811.8,178,100,1178,0)
+
+"DATA",811.8,178,100,1179,0)
+
+"DATA",811.8,178,100,1180,0)
+
+"DATA",811.8,178,100,1181,0)
+REMINDER LIST RULE
+"DATA",811.8,178,100,1182,0)
+810.4
+"DATA",811.8,178,100,1183,0)
+MU ED-1 NUMER RR
+"DATA",811.8,178,100,1184,0)
+87
+"DATA",811.8,178,100,1185,0)
+3352144439
+"DATA",811.8,178,100,1186,0)
+NO
+"DATA",811.8,178,100,1187,0)
+
+"DATA",811.8,178,100,1188,0)
+
+"DATA",811.8,178,100,1197,0)
+
+"DATA",811.8,178,100,1198,0)
+
+"DATA",811.8,178,100,1199,0)
+
+"DATA",811.8,178,100,1202,0)
+
+"DATA",811.8,178,100,1203,0)
+
+"DATA",811.8,178,100,1204,0)
+
+"DATA",811.8,178,100,1205,0)
+REMINDER LIST RULE
+"DATA",811.8,178,100,1206,0)
+810.4
+"DATA",811.8,178,100,1207,0)
+MU ED-1 NUMER RS
+"DATA",811.8,178,100,1208,0)
+88
+"DATA",811.8,178,100,1209,0)
+3590207834
+"DATA",811.8,178,100,1210,0)
+YES
+"DATA",811.8,178,100,1211,0)
+
+"DATA",811.8,178,100,1212,0)
+
+"DATA",811.8,178,100,1223,0)
+
+"DATA",811.8,178,100,1224,0)
+
+"DATA",811.8,178,100,1225,0)
+
+"DATA",811.8,178,100,1229,0)
+
+"DATA",811.8,178,100,1230,0)
+
+"DATA",811.8,178,100,1231,0)
+
+"DATA",811.8,178,100,1232,0)
+REMINDER LIST RULE
+"DATA",811.8,178,100,1233,0)
+810.4
+"DATA",811.8,178,100,1234,0)
+MU ED-1 DENOM RR
+"DATA",811.8,178,100,1235,0)
+163
+"DATA",811.8,178,100,1236,0)
+4198688042
+"DATA",811.8,178,100,1237,0)
+NO
+"DATA",811.8,178,100,1238,0)
+
+"DATA",811.8,178,100,1239,0)
+
+"DATA",811.8,178,100,1248,0)
+
+"DATA",811.8,178,100,1249,0)
+
+"DATA",811.8,178,100,1250,0)
+
+"DATA",811.8,178,100,1253,0)
+
+"DATA",811.8,178,100,1254,0)
+
+"DATA",811.8,178,100,1255,0)
+
+"DATA",811.8,178,100,1256,0)
+REMINDER LIST RULE
+"DATA",811.8,178,100,1257,0)
+810.4
+"DATA",811.8,178,100,1258,0)
+MU ED-1 DENOM RS
+"DATA",811.8,178,100,1259,0)
+165
+"DATA",811.8,178,100,1260,0)
+3863137731
+"DATA",811.8,178,100,1261,0)
+YES
+"DATA",811.8,178,100,1262,0)
+
+"DATA",811.8,178,100,1263,0)
+
+"DATA",811.8,178,100,1274,0)
+
+"DATA",811.8,178,100,1275,0)
+
+"DATA",811.8,178,100,1276,0)
+
+"DATA",811.8,178,100,1280,0)
+
+"DATA",811.8,178,100,1281,0)
+
+"DATA",811.8,178,100,1282,0)
+
+"DATA",811.8,178,100,1283,0)
+12
+"DATA",811.8,178,100,1284,0)
+
+"DATA",811.8,178,100,1285,0)
+25
+"DATA",811.8,178,100,1286,0)
+111
+"DATA",811.8,178,100,1287,0)
+30
+"DATA",811.8,178,100,1288,0)
+
+"DATA",811.8,178,100,1289,0)
+
+"DATA",811.8,178,100,1290,0)
+125
+"DATA",811.8,178,100,1291,0)
+124
+"DATA",811.8,178,100,1292,0)
+115
+"DATA",811.8,178,100,1293,0)
+
+"DATA",811.8,178,100,1294,0)
+
+"DATA",811.8,178,100,1295,0)
+142
+"DATA",811.8,178,100,1296,0)
+138
+"DATA",811.8,178,100,1297,0)
+129
+"DATA",811.8,178,100,1298,0)
+
+"DATA",811.8,178,100,1299,0)
+
+"DATA",811.8,178,100,1300,0)
+190
+"DATA",811.8,178,100,1301,0)
+155
+"DATA",811.8,178,100,1302,0)
+146
+"DATA",811.8,178,100,1303,0)
+195
+"DATA",811.8,178,100,1304,0)
+195
+"DATA",811.8,178,100,1305,0)
+
+"DATA",811.8,178,100,1306,0)
+
+"DATA",811.8,178,100,1307,0)
+246
+"DATA",811.8,178,100,1308,0)
+208
+"DATA",811.8,178,100,1309,0)
+199
+"DATA",811.8,178,100,1310,0)
+251
+"DATA",811.8,178,100,1311,0)
+251
+"DATA",811.8,178,100,1312,0)
+
+"DATA",811.8,178,100,1313,0)
+
+"DATA",811.8,178,100,1314,0)
+857
+"DATA",811.8,178,100,1315,0)
+264
+"DATA",811.8,178,100,1316,0)
+255
+"DATA",811.8,178,100,1317,0)
+1009
+"DATA",811.8,178,100,1318,0)
+862
+"DATA",811.8,178,100,1319,0)
+
+"DATA",811.8,178,100,1320,0)
+
+"DATA",811.8,178,100,1321,0)
+1077
+"DATA",811.8,178,100,1322,0)
+1022
+"DATA",811.8,178,100,1323,0)
+1013
+"DATA",811.8,178,100,1324,0)
+1092
+"DATA",811.8,178,100,1325,0)
+1082
+"DATA",811.8,178,100,1326,0)
+
+"DATA",811.8,178,100,1327,0)
+
+"DATA",811.8,178,100,1328,0)
+1161
+"DATA",811.8,178,100,1329,0)
+1105
+"DATA",811.8,178,100,1330,0)
+1096
+"DATA",811.8,178,100,1331,0)
+1176
+"DATA",811.8,178,100,1332,0)
+1166
+"DATA",811.8,178,100,1333,0)
+
+"DATA",811.8,178,100,1334,0)
+
+"DATA",811.8,178,100,1335,0)
+1195
+"DATA",811.8,178,100,1336,0)
+1189
+"DATA",811.8,178,100,1337,0)
+1180
+"DATA",811.8,178,100,1338,0)
+1200
+"DATA",811.8,178,100,1339,0)
+1200
+"DATA",811.8,178,100,1340,0)
+
+"DATA",811.8,178,100,1341,0)
+
+"DATA",811.8,178,100,1342,0)
+1221
+"DATA",811.8,178,100,1343,0)
+1213
+"DATA",811.8,178,100,1344,0)
+1204
+"DATA",811.8,178,100,1345,0)
+1227
+"DATA",811.8,178,100,1346,0)
+1226
+"DATA",811.8,178,100,1347,0)
+
+"DATA",811.8,178,100,1348,0)
+
+"DATA",811.8,178,100,1349,0)
+1246
+"DATA",811.8,178,100,1350,0)
+1240
+"DATA",811.8,178,100,1351,0)
+1231
+"DATA",811.8,178,100,1352,0)
+1251
+"DATA",811.8,178,100,1353,0)
+1251
+"DATA",811.8,178,100,1354,0)
+
+"DATA",811.8,178,100,1355,0)
+
+"DATA",811.8,178,100,1356,0)
+1272
+"DATA",811.8,178,100,1357,0)
+1264
+"DATA",811.8,178,100,1358,0)
+1255
+"DATA",811.8,178,100,1359,0)
+1278
+"DATA",811.8,178,100,1360,0)
+1277
+"DATA",811.8,178,100,1361,0)
+
+"DATA",811.8,178,100,1362,0)
+
+"DATA",811.8,178,100,1363,0)
+
+"DATA",811.8,178,110,0)
+^811.804^19^19
+"DATA",811.8,178,110,1,0)
+Source: HABIEL,SAM at VOE OFFICE INSTITUTION
+"DATA",811.8,178,110,2,0)
+Date Packed: 07/17/2012@11:47:55
+"DATA",811.8,178,110,3,0)
+Package Version: 2.0P17
+"DATA",811.8,178,110,4,0)
+
+"DATA",811.8,178,110,5,0)
+Description:
+"DATA",811.8,178,110,6,0)
+For Inpatient Education measure MU HOS NQF 0495
+"DATA",811.8,178,110,7,0)
+
+"DATA",811.8,178,110,8,0)
+The following Clinical Reminder items were selected for packing:
+"DATA",811.8,178,110,9,0)
+REMINDER LIST RULE
+"DATA",811.8,178,110,10,0)
+ MU ED-1 NUMER RS
+"DATA",811.8,178,110,11,0)
+ MU ED-1 DENOM RS
+"DATA",811.8,178,110,12,0)
+
+"DATA",811.8,178,110,13,0)
+Keywords:
+"DATA",811.8,178,110,14,0)
+MU
+"DATA",811.8,178,110,15,0)
+NQF
+"DATA",811.8,178,110,16,0)
+0495
+"DATA",811.8,178,110,17,0)
+ED-1
+"DATA",811.8,178,110,18,0)
+
+"DATA",811.8,178,110,19,0)
+Components:
"FIA",811.8)
REMINDER EXCHANGE
@@ -9322,7 +14974,7 @@
1.0^3120713^3120702^8
"PKG",215,22,1,"PAH",1,0)
-2^3120716
+2^3120717
"PKG",215,22,1,"PAH",1,1,0)
-^^4^4^3120716
+^^4^4^3120717
"PKG",215,22,1,"PAH",1,1,1,0)
Written by Sam Habiel on July 13 2012 for use in WorldVistA 2.0.
@@ -9406,9 +15058,9 @@
1
"RTN","C0Q1P2")
-0^^B11532213
+0^^B13158846
"RTN","C0Q1P2",1,0)
-C0Q1P2 ; VEN/SMH - Kids utilities for C0Q 1.0 patch 1 ; 7/16/12 11:05am
+C0Q1P2 ; VEN/SMH - Kids utilities for C0Q 1.0 patch 1 ; 7/17/12 12:14pm
"RTN","C0Q1P2",2,0)
- ;;1.0;QUALITY MEASURES;*1*;July 13, 2112;Build 7
+ ;;1.0;QUALITY MEASURES;*1*;July 13, 2112;Build 8
"RTN","C0Q1P2",3,0)
; Licensed under package license. See Documentation
@@ -9518,140 +15170,160 @@
S LN=LN+1
"RTN","C0Q1P2",56,0)
+ ;
+"RTN","C0Q1P2",57,0)
+ ; Inpatient Education Reminders (popularly known as ED-1 and ED-2)
+"RTN","C0Q1P2",58,0)
+ ; NQF 0495
+"RTN","C0Q1P2",59,0)
+ ; NQF 0497
+"RTN","C0Q1P2",60,0)
+ S ARRAY(LN,1)="MU NQF 0495 ED-1"
+"RTN","C0Q1P2",61,0)
+ I MODE S ARRAY(LN,2)="07/17/2012@11:47:55"
+"RTN","C0Q1P2",62,0)
+ S LN=LN+1
+"RTN","C0Q1P2",63,0)
+ S ARRAY(LN,1)="MU NQF 0497 ED-2"
+"RTN","C0Q1P2",64,0)
+ I MODE S ARRAY(LN,2)="07/17/2012@11:50:23"
+"RTN","C0Q1P2",65,0)
+ S LN=LN+1
+"RTN","C0Q1P2",66,0)
Q
-"RTN","C0Q1P2",57,0)
+"RTN","C0Q1P2",67,0)
;
-"RTN","C0Q1P2",58,0)
+"RTN","C0Q1P2",68,0)
;===============================================================
-"RTN","C0Q1P2",59,0)
+"RTN","C0Q1P2",69,0)
DELEI ;If the Exchange File entry already exists delete it.
-"RTN","C0Q1P2",60,0)
+"RTN","C0Q1P2",70,0)
N ARRAY,IC,IND,LIST,LUVALUE,NUM
-"RTN","C0Q1P2",61,0)
+"RTN","C0Q1P2",71,0)
D ARRAY(1,.ARRAY)
-"RTN","C0Q1P2",62,0)
+"RTN","C0Q1P2",72,0)
S IC=0
-"RTN","C0Q1P2",63,0)
+"RTN","C0Q1P2",73,0)
F S IC=$O(ARRAY(IC)) Q:'IC D
-"RTN","C0Q1P2",64,0)
+"RTN","C0Q1P2",74,0)
.S LUVALUE(1)=ARRAY(IC,1)
-"RTN","C0Q1P2",65,0)
+"RTN","C0Q1P2",75,0)
.D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")
-"RTN","C0Q1P2",66,0)
+"RTN","C0Q1P2",76,0)
.I '$D(LIST) Q
-"RTN","C0Q1P2",67,0)
+"RTN","C0Q1P2",77,0)
.S NUM=$P(LIST("DILIST",0),U,1)
-"RTN","C0Q1P2",68,0)
+"RTN","C0Q1P2",78,0)
.I NUM'=0 D
-"RTN","C0Q1P2",69,0)
+"RTN","C0Q1P2",79,0)
..F IND=1:1:NUM D
-"RTN","C0Q1P2",70,0)
+"RTN","C0Q1P2",80,0)
... N DA,DIK
-"RTN","C0Q1P2",71,0)
+"RTN","C0Q1P2",81,0)
... S DIK="^PXD(811.8,"
-"RTN","C0Q1P2",72,0)
+"RTN","C0Q1P2",82,0)
... S DA=LIST("DILIST",2,IND)
-"RTN","C0Q1P2",73,0)
+"RTN","C0Q1P2",83,0)
... D ^DIK
-"RTN","C0Q1P2",74,0)
+"RTN","C0Q1P2",84,0)
Q
-"RTN","C0Q1P2",75,0)
+"RTN","C0Q1P2",85,0)
;
-"RTN","C0Q1P2",76,0)
+"RTN","C0Q1P2",86,0)
;===============================================================
-"RTN","C0Q1P2",77,0)
+"RTN","C0Q1P2",87,0)
EXFINC(Y) ;Return a 1 if the Exchange file entry is in the list to
-"RTN","C0Q1P2",78,0)
+"RTN","C0Q1P2",88,0)
;include in the build. This is used in the build to determine which
-"RTN","C0Q1P2",79,0)
+"RTN","C0Q1P2",89,0)
;entries to include.
-"RTN","C0Q1P2",80,0)
+"RTN","C0Q1P2",90,0)
N ARRAY,FOUND,IEN,IC,LUVALUE
-"RTN","C0Q1P2",81,0)
+"RTN","C0Q1P2",91,0)
D ARRAY(1,.ARRAY)
-"RTN","C0Q1P2",82,0)
+"RTN","C0Q1P2",92,0)
S FOUND=0
-"RTN","C0Q1P2",83,0)
+"RTN","C0Q1P2",93,0)
S IC=0
-"RTN","C0Q1P2",84,0)
+"RTN","C0Q1P2",94,0)
F S IC=+$O(ARRAY(IC)) Q:(IC=0)!(FOUND) D
-"RTN","C0Q1P2",85,0)
+"RTN","C0Q1P2",95,0)
. M LUVALUE=ARRAY(IC)
-"RTN","C0Q1P2",86,0)
+"RTN","C0Q1P2",96,0)
. S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
-"RTN","C0Q1P2",87,0)
+"RTN","C0Q1P2",97,0)
. I IEN=Y S FOUND=1 Q
-"RTN","C0Q1P2",88,0)
+"RTN","C0Q1P2",98,0)
Q FOUND
-"RTN","C0Q1P2",89,0)
+"RTN","C0Q1P2",99,0)
;
-"RTN","C0Q1P2",90,0)
+"RTN","C0Q1P2",100,0)
PREREM ;
-"RTN","C0Q1P2",91,0)
+"RTN","C0Q1P2",101,0)
D DELEI
-"RTN","C0Q1P2",92,0)
+"RTN","C0Q1P2",102,0)
Q
-"RTN","C0Q1P2",93,0)
+"RTN","C0Q1P2",103,0)
POSTREM ;
-"RTN","C0Q1P2",94,0)
+"RTN","C0Q1P2",104,0)
D SMEXINS
-"RTN","C0Q1P2",95,0)
+"RTN","C0Q1P2",105,0)
Q
-"RTN","C0Q1P2",96,0)
+"RTN","C0Q1P2",106,0)
;===============================================================
-"RTN","C0Q1P2",97,0)
+"RTN","C0Q1P2",107,0)
SMEXINS ;Silent mode install.
-"RTN","C0Q1P2",98,0)
+"RTN","C0Q1P2",108,0)
N ARRAY,IC,IEN,LUVALUE,PXRMINST
-"RTN","C0Q1P2",99,0)
+"RTN","C0Q1P2",109,0)
S PXRMINST=1
-"RTN","C0Q1P2",100,0)
+"RTN","C0Q1P2",110,0)
D ARRAY(1,.ARRAY)
-"RTN","C0Q1P2",101,0)
+"RTN","C0Q1P2",111,0)
S IC=0
-"RTN","C0Q1P2",102,0)
+"RTN","C0Q1P2",112,0)
F S IC=$O(ARRAY(IC)) Q:'IC D
-"RTN","C0Q1P2",103,0)
+"RTN","C0Q1P2",113,0)
.M LUVALUE=ARRAY(IC)
-"RTN","C0Q1P2",104,0)
+"RTN","C0Q1P2",114,0)
.S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
-"RTN","C0Q1P2",105,0)
+"RTN","C0Q1P2",115,0)
.I IEN'=0 D
-"RTN","C0Q1P2",106,0)
+"RTN","C0Q1P2",116,0)
.. N TEXT
-"RTN","C0Q1P2",107,0)
+"RTN","C0Q1P2",117,0)
.. I LUVALUE(1)["PARAMETER" S TEXT="Installing entry "_LUVALUE(1)
-"RTN","C0Q1P2",108,0)
+"RTN","C0Q1P2",118,0)
.. E S TEXT="Installing reminder exchange entry "_LUVALUE(1)
-"RTN","C0Q1P2",109,0)
+"RTN","C0Q1P2",119,0)
.. D BMES^XPDUTL(TEXT)
-"RTN","C0Q1P2",110,0)
+"RTN","C0Q1P2",120,0)
.. D INSTALL^PXRMEXSI(IEN,"I",1)
-"RTN","C0Q1P2",111,0)
+"RTN","C0Q1P2",121,0)
Q
-"RTN","C0Q1P2",112,0)
+"RTN","C0Q1P2",122,0)
;
-"RTN","C0Q1P2",113,0)
+"RTN","C0Q1P2",123,0)
CRPL(PLNAME,C0QERR) ; Private ; $$ ; Create Patient List
-"RTN","C0Q1P2",114,0)
+"RTN","C0Q1P2",124,0)
; Input: PLNAME: By Value: Patient List Name
-"RTN","C0Q1P2",115,0)
+"RTN","C0Q1P2",125,0)
; C0QERR: By Ref: Error Array
-"RTN","C0Q1P2",116,0)
+"RTN","C0Q1P2",126,0)
; Output: IEN of Patient List, or -1 for error
-"RTN","C0Q1P2",117,0)
+"RTN","C0Q1P2",127,0)
N C0QFDA,C0QIENS ; FDA, return IEN
-"RTN","C0Q1P2",118,0)
+"RTN","C0Q1P2",128,0)
S C0QFDA(810.5,"?+1,",.01)=PLNAME ; Patient List Name
-"RTN","C0Q1P2",119,0)
+"RTN","C0Q1P2",129,0)
S C0QFDA(810.5,"?+1,",.07)="`"_DUZ ; Creator
-"RTN","C0Q1P2",120,0)
+"RTN","C0Q1P2",130,0)
S C0QFDA(810.5,"?+1,",.08)="PUB" ; Type: Public
-"RTN","C0Q1P2",121,0)
+"RTN","C0Q1P2",131,0)
S C0QFDA(810.5,"?+1,",100)="L" ; Class: Local
-"RTN","C0Q1P2",122,0)
+"RTN","C0Q1P2",132,0)
D UPDATE^DIE("E",$NA(C0QFDA),$NA(C0QIENS),$NA(C0QERR)) ; External Flag
-"RTN","C0Q1P2",123,0)
+"RTN","C0Q1P2",133,0)
I $G(C0QIENS(1)) QUIT C0QIENS(1)
-"RTN","C0Q1P2",124,0)
+"RTN","C0Q1P2",134,0)
E QUIT -1
"SEC","^DIC",811.8,811.8,0,"AUDIT")
Index: qrda/C0Q/trunk/kids/C0Q*1.0*3.DONTUSE
===================================================================
--- qrda/C0Q/trunk/kids/C0Q*1.0*3.DONTUSE (revision 1488)
+++ qrda/C0Q/trunk/kids/C0Q*1.0*3.DONTUSE (revision 1489)
@@ -1,4 +1,4 @@
-KIDS Distribution saved on Jul 16, 2012@11:55:58
-DFGHJKL
+KIDS Distribution saved on Jul 17, 2012@14:03:59
+DFGHJKLDFGHJK
**KIDS**:C0Q*1.0*3^
@@ -6,5 +6,5 @@
C0Q*1.0*3
"BLD",7936,0)
-C0Q*1.0*3^QUALITY MEASURES^0^3120716^y
+C0Q*1.0*3^QUALITY MEASURES^0^3120717^y
"BLD",7936,1,0)
^^5^5^3120713^
@@ -28,5 +28,5 @@
"BLD",7936,6.3)
-3
+4
"BLD",7936,"ABPKG")
n
@@ -498,5 +498,5 @@
emergency department
"DATA",1130580001.101,23,7)
-NQF0495^^^^
+NQF0495^^^^^^88^165
"DATA",1130580001.101,24,0)
MU HOS NQF 0497^^
@@ -514,5 +514,5 @@
inpatient status
"DATA",1130580001.101,24,7)
-NQF0497^^^^
+NQF0497^^^^^^90^168
"DATA",1130580001.101,25,0)
MU HOS NQF 0435^^
@@ -1721,4 +1721,20 @@
"FIA",1130580001.101,1130580001.111)
0
+"FRV1",1130580001.101,"23,7",7)
+MU ED-1 NUMER RS
+"FRV1",1130580001.101,"23,7",7,"F")
+;PXRM(810.4,
+"FRV1",1130580001.101,"23,7",8)
+MU ED-1 DENOM RS
+"FRV1",1130580001.101,"23,7",8,"F")
+;PXRM(810.4,
+"FRV1",1130580001.101,"24,7",7)
+MU ED-2 NUMER RS
+"FRV1",1130580001.101,"24,7",7,"F")
+;PXRM(810.4,
+"FRV1",1130580001.101,"24,7",8)
+MU ED-2 DENOM RS
+"FRV1",1130580001.101,"24,7",8,"F")
+;PXRM(810.4,
"FRV1",1130580001.101,"40,7",7)
MU NQF0013 HTN NUMER2 RS
@@ -1785,4 +1801,20 @@
"FRV1",1130580001.101,"81,7",8,"F")
;PXRM(810.4,
+"FRV1K",1130580001.101,"23,7",7)
+B
+"FRV1K",1130580001.101,"23,7",7,1)
+MU ED-1 NUMER RS
+"FRV1K",1130580001.101,"23,7",8)
+B
+"FRV1K",1130580001.101,"23,7",8,1)
+MU ED-1 DENOM RS
+"FRV1K",1130580001.101,"24,7",7)
+B
+"FRV1K",1130580001.101,"24,7",7,1)
+MU ED-2 NUMER RS
+"FRV1K",1130580001.101,"24,7",8)
+B
+"FRV1K",1130580001.101,"24,7",8,1)
+MU ED-2 DENOM RS
"FRV1K",1130580001.101,"40,7",7)
B
@@ -1890,7 +1922,7 @@
1.0^3120713^3120702^8
"PKG",215,22,1,"PAH",1,0)
-3^3120716
+3^3120717
"PKG",215,22,1,"PAH",1,1,0)
-^^5^5^3120716
+^^5^5^3120717
"PKG",215,22,1,"PAH",1,1,1,0)
Created by Sam Habiel on July 13th 2012 for distribution with WorldVistA