source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMG2E3.m@ 1489

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1PXRMG2E3 ;SLC/JVS -GEC #2 EXTRACT #3 ;2/13/05 20:08
2 ;;2.0;CLINICAL REMINDERS;**2**;Feb 04, 2005
3 Q
4 ;
5CRITER4 ; Extracts the IEN for the health factors that represents
6 ; the 3 IADL'S
7 I $D(^AUTTHF("B","GEC DIFFICULT TRANSPORTATION/LAST 7D-YES")) D
8 .S C142($O(^AUTTHF("B","GEC DIFFICULT TRANSPORTATION/LAST 7D-YES",0)))=""
9 I $D(^AUTTHF("B","GEC DIFFICULTY MANAGING MEDS/LAST 7D-YES")) D
10 .S C144($O(^AUTTHF("B","GEC DIFFICULTY MANAGING MEDS/LAST 7D-YES",0)))=""
11 I $D(^AUTTHF("B","GEC DIFFICULTY MNG FINANCES/LAST 7D-YES")) D
12 .S C146($O(^AUTTHF("B","GEC DIFFICULTY MNG FINANCES/LAST 7D-YES",0)))=""
13 I $D(^AUTTHF("B","GEC DIFFICULTY PREPARE MEALS/LAST 7D-YES")) D
14 .S C148($O(^AUTTHF("B","GEC DIFFICULTY PREPARE MEALS/LAST 7D-YES",0)))=""
15 I $D(^AUTTHF("B","GEC DIFFICULTY USING PHONE/LAST 7D-YES")) D
16 .S C1410($O(^AUTTHF("B","GEC DIFFICULTY USING PHONE/LAST 7D-YES",0)))=""
17 I $D(^AUTTHF("B","GEC DIFFICULTY W/ HOUSEWORK/LAST 7D-YES")) D
18 .S C1412($O(^AUTTHF("B","GEC DIFFICULTY W/ HOUSEWORK/LAST 7D-YES",0)))=""
19 I $D(^AUTTHF("B","GEC DIFFICULTY WITH SHOPPING/LAST 7D-YES")) D
20 .S C1414($O(^AUTTHF("B","GEC DIFFICULTY WITH SHOPPING/LAST 7D-YES",0)))=""
21 I $D(^AUTTHF("B","GEC COMMUNITY NRSNG HOME (REFERRED FROM)")) D
22 .S C1101($O(^AUTTHF("B","GEC COMMUNITY NRSNG HOME (REFERRED FROM)",0)))=""
23 I $D(^AUTTHF("B","GEC VA DOMICILIARY (REFERRED FROM)")) D
24 .S C1107($O(^AUTTHF("B","GEC VA DOMICILIARY (REFERRED FROM)",0)))=""
25 I $D(^AUTTHF("B","GEC VA NURSING HOME")) D
26 .S C1108($O(^AUTTHF("B","GEC VA NURSING HOME",0)))=""
27 I $D(^AUTTHF("B","GEC ALONE")) D
28 .S C171($O(^AUTTHF("B","GEC ALONE",0)))=""
29 I $D(^AUTTHF("B","GEC NURSING HOME")) D
30 .S C166($O(^AUTTHF("B","GEC NURSING HOME",0)))=""
31 ;
32 Q
33 ;Continued in..
Note: See TracBrowser for help on using the repository browser.