source: FOIAVistA/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMGECY.m@ 794

PXRMGECY ;SLC/JVS - GEC Debug Utilities#2 ;08/21/2003  08:55
 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
 ;
 Q
MATCHB ;Build tmp global with origingal health factor names from PXRMGECY
 ;
 N GECNA,I,GECDA
 S CNT=0
 S GECNA=""
 F I=1:1:300 S GECNA=$P($TEXT(MATCH+I),";",4) S CNT=CNT+1 Q:GECNA=""  D
 .S GECDA=$P($TEXT(MATCH+I),";",3)
 .S ^TMP("PXRMGEC",$J,"MATCH",GECNA,$S(GECDA="":0,1:$P($T(MATCH+I),";",3)))=""
 ;
 Q
 ;
MATCH ;MATCH AGINST
 ;;334;GEC REFERRAL ADDITIONAL INFO
 ;;97;GEC ADVANCE DIRECTIVE-NO
 ;;98;GEC ADVANCE DIRECTIVE-YES
 ;;126;GEC BETTER OTHER LIVING ENVIRONMENT-NO
 ;;127;GEC BETTER OTHER LIVING ENVIRONMENT-YES
 ;;167;GEC DIFFICULT TO ENTER/LEAVE HOME-NO
 ;;168;GEC DIFFICULT TO ENTER/LEAVE HOME-YES
 ;;192;GEC DPOA FINANCIAL
 ;;193;GEC DPOA HEALTH CARE
 ;;205;GEC FIDUCIARY/CONSERVATOR
 ;;221;GEC GUARDIAN
 ;;257;GEC LEFT ALONE LAST 7D-NO
 ;;258;GEC LEFT ALONE LAST 7D-YES
 ;;307;GEC OTHERS MOVED IN W/PT LAST 90D-NO
 ;;308;GEC OTHERS MOVED IN W/PT LAST 90D-YES
 ;;321;GEC PHYSICAL ACTIVITY 2HRS LAST 7D-NO
 ;;322;GEC PHYSICAL ACTIVITY 2HRS LAST 7D-YES
 ;;346;GEC REFERRAL HOMEBOUND STATUS
 ;;229;GEC HOMEBOUND-NO
 ;;230;GEC HOMEBOUND-YES
 ;;348;GEC REFERRAL IADL
 ;;169;GEC DIFFICULT TRANSPORTATION/LAST 7D-NO
 ;;170;GEC DIFFICULT TRANSPORTATION/LAST 7D-YES
 ;;171;GEC DIFFICULTY MANAGING MEDS/LAST 7D-NO
 ;;172;GEC DIFFICULTY MANAGING MEDS/LAST 7D-YES
 ;;173;GEC DIFFICULTY MNG FINANCES/LAST 7D-NO
 ;;174;GEC DIFFICULTY MNG FINANCES/LAST 7D-YES
 ;;175;GEC DIFFICULTY PREPARE MEALS/LAST 7D-NO
 ;;176;GEC DIFFICULTY PREPARE MEALS/LAST 7D-YES
 ;;177;GEC DIFFICULTY USING PHONE/LAST 7D-NO
 ;;178;GEC DIFFICULTY USING PHONE/LAST 7D-YES
 ;;179;GEC DIFFICULTY W/ HOUSEWORK/LAST 7D-NO
 ;;180;GEC DIFFICULTY W/ HOUSEWORK/LAST 7D-YES
 ;;181;GEC DIFFICULTY WITH SHOPPING/LAST 7D-NO
 ;;182;GEC DIFFICULTY WITH SHOPPING/LAST 7D-YES
 ;;266;GEC MEALS PREPARED BY OTHERS/LAST 7D-NO
 ;;267;GEC MEALS PREPARED BY OTHERS/LAST 7D-YES
 ;;332;GEC RECENT CHANGE IN IADL FX-YES
 ;;331;GEC RECENT CHANGE IN IADL RX-NO
 ;;349;GEC REFERRAL LANGUAGE
 ;;202;GEC ENGLISH
 ;;292;GEC OTHER LANGUAGE
 ;;382;GEC SPANISH
 ;;350;GEC REFERRAL LIVING SITUATION
 ;;128;GEC BOARD AND CARE/ASSISTED LIVING
 ;;184;GEC DOMICILIARY
 ;;237;GEC HOMELESS
 ;;238;GEC HOMELESS SHELTER
 ;;261;GEC LIVES WHERE-OTHER
 ;;278;GEC NURSING HOME
 ;;325;GEC PRIVATE HOME/APT
 ;;351;GEC REFERRAL LIVING SITUATION-WITH WHO
 ;;101;GEC ALONE
 ;;145;GEC CHILD (NOT SPOUSE)
 ;;220;GEC GROUP SETTING WITH NON-RELATIVES
 ;;262;GEC LIVES WITH SPOUSE & OTHERS
 ;;306;GEC OTHERS (NOT SPOUSE OR CHILDREN)
 ;;386;GEC SPOUSE ONLY
 ;;355;GEC REFERRAL PRIMARY UNPAID CAREGIVER
 ;;90;GEC ACCESSIBLE TO PT-NO
 ;;91;GEC ACCESSIBLE TO PT-YES
 ;;94;GEC ADL HELP
 ;;99;GEC ADVICE/EMOTIONAL SUPPORT
 ;;136;GEC CAREGIVER CITY
 ;;137;GEC CAREGIVER FIRST NAME
 ;;138;GEC CAREGIVER LAST NAME
 ;;139;GEC CAREGIVER LIVES WITH PT-NO
 ;;140;GEC CAREGIVER LIVES WITH PT-YES
 ;;141;GEC CAREGIVER PHONE
 ;;142;GEC CAREGIVER STATE
 ;;143;GEC CAREGIVER STREET ADDRESS
 ;;144;GEC CAREGIVER ZIPCODE
 ;;146;GEC CHILD/CHILD-IN-LAW
 ;;208;GEC FRIEND/NEIGHBOR
 ;;249;GEC IADL HELP
 ;;274;GEC NO CAREGIVER
 ;;302;GEC OTHER RELATIVE
 ;;385;GEC SPOUSE
 ;;433;GEC WILLING/ABLE TO INCREASE HELP-NO
 ;;434;GEC WILLING/ABLE TO INCREASE HELP-YES
 ;;359;GEC REFERRAL SERVICES IN THE HOME
 ;;227;GEC HOME HEALTH AIDE/LAST 14D-NO
 ;;228;GEC HOME HEALTH AIDE/LAST 14D-YES
 ;;372;GEC RN HOME VISIT(T+/-30D)-NO
 ;;373;GEC RN HOME VISIT(T+/-30D)-YES
 ;;380;GEC SOCIAL WORK ASSISTANCE/LAST 14D-NO
 ;;381;GEC SOCIAL WORK ASSISTANCE/LAST 14D-YES
 ;;362;GEC REFERRAL SOURCE OF REFERRAL
 ;;150;GEC COMMUNITY NRSNG HOME (REFERRED FROM)
 ;;224;GEC HOME BASED PR. CARE (REFERRED FROM
 ;;246;GEC HOSPITAL < 7 DAYS
 ;;247;GEC HOSPITAL > 6 DAYS
 ;;301;GEC OTHER REFERRAL SOURCE
 ;;309;GEC OUTPATIENT CLINIC
 ;;416;GEC VA DOMICILIARY (REFERRED FROM)
 ;;424;GEC VA NURSING HOME
 ;;335;GEC REFERRAL BASIC ADL
 ;;119;GEC BATHING HELP/SUPERVISION LAST 7D-NO
 ;;120;GEC BATHING HELP/SUPERVISION LAST 7D-YES
 ;;121;GEC BATHING PHYS ASST NEEDED LAST 7D-NO
 ;;122;GEC BATHING PHYS ASST NEEDED LAST 7D-YES
 ;;123;GEC BED POSITIONING HELP LAST 7D-NO
 ;;124;GEC BED POSITIONING HELP LAST 7D-YES
 ;;194;GEC DRESS HELP/SUPERVISION LAST 7D-NO
 ;;195;GEC DRESS HELP/SUPERVISION LAST 7D-YES
 ;;198;GEC EATING HELP/SUPERVISION LAST 7D-NO
 ;;199;GEC EATING HELP/SUPERVISION LAST 7D-YES
 ;;252;GEC INDEPENDENT IN WC LAST 7D-NO
 ;;253;GEC INDEPENDENT IN WC LAST 7D-YES
 ;;272;GEC MOVING AROUND INDOORS LAST 7D-NO
 ;;273;GEC MOVING AROUND INDOORS LAST 7D-YES
 ;;329;GEC RECENT CHANGE IN ADL FX-NO
 ;;330;GEC RECENT CHANGE IN ADL FX-YES
 ;;402;GEC TOILET HELP/SUPERVISION LAST 7D-NO
 ;;403;GEC TOILET HELP/SUPERVISION LAST 7D-YES
 ;;406;GEC TRANSFERS HELP/SPRVISION LAST 7D-NO
 ;;407;GEC TRANSFERS HELP/SPRVISION LAST 7D-YES
 ;;336;GEC REFERRAL COGNITIVE STATUS
 ;;129;GEC CAN BE UNDERSTOOD LAST 7D-NO
 ;;130;GEC CAN BE UNDERSTOOD LAST 7D-YES
 ;;200;GEC ENDANGERED SAFETY LAST 90D-NO
 ;;201;GEC ENDANGERED SAFETY LAST 90D-YES
 ;;264;GEC MADE REASONABLE DECISION LAST 7D-YES
 ;;265;GEC MADE REASONABLE DECISIONS LAST 7D-NO
 ;;338;GEC REFERRAL CONTINENCE
 ;;389;GEC STOOL INCONTINENT-NO
 ;;390;GEC STOOL INCONTINENT-YES
 ;;413;GEC URINE INCONTINENT-NO
 ;;414;GEC URINE INCONTINENT-YES
 ;;339;GEC REFERRAL DIET
 ;;270;GEC MODIFIED DIET
 ;;365;GEC REGULAR DIET
 ;;341;GEC REFERRAL EQUIPMENT/PROSTHETICS
 ;;93;GEC ADL EQUIPMENT
 ;;131;GEC CANE
 ;;248;GEC HOSPITAL BED
 ;;288;GEC ORTHOTIC/SPLINT
 ;;291;GEC OTHER EQUIPMENT
 ;;383;GEC SPECIAL MATTRESS
 ;;408;GEC TRAPEZE
 ;;429;GEC WALKER/ASSISTIVE DEVICE
 ;;432;GEC WHEELCHAIR
 ;;354;GEC REFERRAL PATIENT BEHAVIORS/SYMPTOM
 ;;222;GEC HALLUCINATIONS/DELUSIONS LAST 7D-NO
 ;;223;GEC HALLUCINATIONS/DELUSIONS LAST 7D-YES
 ;;323;GEC PHYSICALLY ABUSIVE LAST 7D-NO
 ;;324;GEC PHYSICALLY ABUSIVE LAST 7D-YES
 ;;368;GEC RESISTS CARE LAST 7D-NO
 ;;369;GEC RESISTS CARE LAST 7D-YES
 ;;426;GEC VERBALLY ABUSIVE LAST 7D-NO
 ;;427;GEC VERBALLY ABUSIVE LAST 7D-YES
 ;;430;GEC WANDERING LAST 7D-NO
 ;;431;GEC WANDERING LAST 7D-YES
 ;;356;GEC REFERRAL PROGNOSIS
 ;;132;GEC CAPABLE INCREASED INDEPENDENCE-YES
 ;;133;GEC CAPABLE INCREASED INDEPENDENCE-NO
 ;;203;GEC EXACERBATION CHR ILLNESS LAST 7D-YES
 ;;204;GEC EXACERBATION CHR ILLNESS LAST 7D-NO
 ;;259;GEC LIFE EXPECTANCY < 6MO-NO
 ;;260;GEC LIFE EXPECTANCY < 6MO-YES
 ;;360;GEC REFERRAL SKILLED CARE
 ;;154;GEC CPAP/BIPAP/VENT-NO
 ;;155;GEC CPAP/BIPAP/VENT-YES
 ;;157;GEC PRESSURE ULCER CARE-NO
 ;;158;GEC PRESSURE ULCER CARE-YES
 ;;159;GEC PRESSURE ULCER-STAGE 1
 ;;160;GEC PRESSURE ULCER-STAGE 2
 ;;161;GEC PRESSURE ULCER-STAGE 3
 ;;162;GEC PRESSURE ULCER-STAGE 4
 ;;163;GEC DIALYSIS (CENTER-BASED)-NO
 ;;164;GEC DIALYSIS (CENTER-BASED)-YES
 ;;165;GEC DIALYSIS (HOME-BASED)-NO
 ;;166;GEC DIALYSIS (HOME-BASED)-YES
 ;;196;GEC DYSPHAGIA DIET-NO
 ;;197;GEC DYSPHAGIA DIET-YES
 ;;206;GEC FREQ RN OBSERVATION >QWEEK-NO
 ;;207;GEC FREQ RN OBSERVATION >QWEEK-YES
 ;;255;GEC IV INFUSIONS-NO
 ;;256;GEC IV INFUSIONS-YES
 ;;268;GEC MEDICATIONS BY INJECTION-NO
 ;;269;GEC MEDICATIONS BY INJECTION-YES
 ;;289;GEC OSTOMY CARE (NOT TRACH)-NO
 ;;290;GEC OSTOMY CARE (NOT TRACH)-YES
 ;;303;GEC OTHER SKILLED CARE-1
 ;;304;GEC OTHER SKILLED CARE-2
 ;;310;GEC OXYGEN-NO
 ;;311;GEC OXYGEN-YES
 ;;314;GEC PARENTERAL FEEDING-NO
 ;;315;GEC PARENTERAL FEEDING-YES
 ;;327;GEC PT/OT/SPEECH/KIN-NO
 ;;328;GEC PT/OT/SPEECH/KIN-YES
 ;;397;GEC SUBSTANCE ABUSE TX-NO
 ;;398;GEC SUBSTANCE ABUSE TX-YES
 ;;399;GEC SUCTIONING-NO
 ;;400;GEC SUCTIONING-YES
 ;;404;GEC TRACH CARE-NO
 ;;405;GEC TRACH CARE-YES
 ;;409;GEC TUBEFEEDING-NO
 ;;410;GEC TUBEFEEDING-YES
 ;;411;GEC URINARY CATHETER CARE-NO
 ;;412;GEC URINARY CATHETER CARE-YES
 ;;435;GEC WOUND CARE (NON-PRESSURE ULCER)-NO
 ;;436;GEC WOUND CARE (NON-PRESSURE ULCER)-YES
 ;;361;GEC REFERRAL SKIN
 ;;377;GEC SKIN PROBLEMS LAST 30D-NO
 ;;378;GEC SKIN PROBLEMS LAST 30D-YES
 ;;364;GEC REFERRAL WEIGHT BEARING
 ;;209;GEC FULL WEIGHT BEARING
 ;;275;GEC NON WEIGHTBEARING
 ;;316;GEC PARTIAL WEIGHT BEARING
 ;;342;GEC REFERRAL EST. DURATION OF SERVICES
 ;;87;GEC 2-3 MONTHS
 ;;88;GEC 2-3 WEEKS
 ;;89;GEC 4-6 MONTHS
 ;;251;GEC INDEFINITE
 ;;286;GEC ONE MONTH
 ;;287;GEC ONE WEEK OR LESS
 ;;344;GEC REFERRAL GOALS OF CARE
 ;;125;GEC BEHAVIOR STABILIZATION
 ;;250;GEC IMPROVE COMPLIANCE MEDS/TREATMENTS
 ;;271;GEC MONITORING TO AVOID COMPLICATIONS
 ;;312;GEC PALLIATIVE/END OF LIFE CARE
 ;;319;GEC PATIENT/FAMILY EDUCATION
 ;;333;GEC REDUCE ER VISITS/HOSPITALIZATIONS
 ;;366;GEC REHABILITATION/IMPROVED FX
 ;;371;GEC RESPITE FOR CAREGIVER
 ;;376;GEC SKILLED NURSING CARE
 ;;401;GEC SUPERVISED/SUPPORTIVE LVNG SITUATION
 ;;358;GEC REFERRAL REFERRING TO
 ;;92;GEC ADL ASSISTANCE IN HOME
 ;;96;GEC ADULT DAY HEALTH CARE (REFERRING TO