Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXRMGECY

PXRMGECY.m

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