Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All
Print Page as PDF
Global: ^HBHC(631

Package: Hospital Based Home Care

Global: ^HBHC(631


Information

FileMan FileNo FileMan Filename Package
631 HBHC PATIENT Hospital Based Home Care

Description

Directly Accessed By Routines, Total: 34

Package Total Routines
Hospital Based Home Care 32 HBHC DISCHARGE    HBHC EDIT PROVIDER (631.4)    HBHC MFH DEMOGRAPHIC INPUT    HBHC UPDATE DISCHARGE    HBHCADM    HBHCDIS    HBHCFILE    HBHCLKU1
HBHCPS24    HBHCRP10    HBHCRP11    HBHCRP12    HBHCRP16    HBHCRP18    HBHCRP2    HBHCRP21
HBHCRP23    HBHCRP24    HBHCRP25    HBHCRP5    HBHCRP7    HBHCRXMT    HBHCUPD    HBHCUTL
HBHCUTL1    HBHCUTL2    HBHCUTL5    HBHCXMA    HBHCXMD    HBHCXMT    HBHXMNT1    ^HBHC(634.7
Kernel 1 XUXCTY    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
Hospital Based Home Care 10 HBHCADM    HBHCDIS    HBHCPS24    HBHCRP2    HBHCRP5    HBHCRXMT    HBHCUPD    HBHCUTL5
HBHCXMT    HBHXMNT1    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Hospital Based Home Care 2 HBHC EVALUATION/ADMISSION ERROR(S)(#634.1)[1]    HBHC DISCHARGE ERROR(S)(#634.3)[1]    

Pointer To FileMan Files, Total: 11

Package Total FileMan Files
Hospital Based Home Care 7 HBHC REJECT/WITHDRAW REASON(#631.1)[15]    HBHC EXPRESSIVE COMMUNICATION(#631.2)[2149]    HBHC RECEPTIVE COMMUNICATION(#631.3)[2250]    HBHC PROVIDER(#631.4)[376567]
HBHC PERIOD OF SERVICE(#631.7)[7]    HBHC VALID STATE CODE(#631.8)[2]    HBHC MEDICAL FOSTER HOME(#633.2)[89]    
Registration 2 MEDICAL CENTER DIVISION(#40.8)[91]    PATIENT(#2)[.01]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[1846]    
Kernel 1 NEW PERSON(#200)[8082]    

Fields, Total: 93

Field # Name Loc Type Details
.01 NAME 0;1 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  APR 15, 1992
  • HELP-PROMPT:  Answer using last name, first name, middle name format, or enter first letter of last name and last four digits of social security number (e.g. A1234)
  • DESCRIPTION:  
    This field represents patient's name in Patient (2) file. Patient must exist in DPT for HBHC selection, since LAYGO not allowed.
  • CROSS-REFERENCE:  631^B
    1)= S ^HBHC(631,"B",$E(X,1,30),DA)=""
    2)= K ^HBHC(631,"B",$E(X,1,30),DA)
    This cross-reference represents regular 'B' file index of HBHC Patient (631) file, Name (.01) field, which references Patient (2) file entries.
1 EVALUATION DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S (HBHCDTE,X)=Y,HBHCAD=$P(^HBHC(631,D0,0),U,18) K:X>DT!(2770101>X) X K:(HBHCAD]"")&(HBHCDTE>HBHCAD) X K HBHCAD,HBHCDTE
  • LAST EDITED:  JUL 24, 1997
  • HELP-PROMPT:  Answer with date patient was evaluated for HBHC program. Answer must be between 1/1/1977 and current date. Evaluation date must be prior to or same as admission date.
  • DESCRIPTION:  
    This field represents date patient was evaluated for HBHC program. Date range allowed is between 1/1/1977 and current date, and must be prior to or same as HBHC Admission Date.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  631^AI
    1)= S ^HBHC(631,"AI",$E(X,1,30),DA)=""
    2)= K ^HBHC(631,"AI",$E(X,1,30),DA)
    This cross-reference represents regular 'AI' file index of HBHC Patient (631) file, Evaluation Date (1) field. Field no longer used after installation of patch 6. Field data retained for historical purposes only.
2 STATE CODE 0;3 POINTER TO HBHC VALID STATE CODE FILE (#631.8)
************************REQUIRED FIELD************************
HBHC VALID STATE CODE(#631.8)

  • LAST EDITED:  JUN 22, 2009
  • HELP-PROMPT:  Answer with 2 digit numeric state code, or state name, of state where patient resides. Only state code(s) in HBHC VALID STATE CODE file are allowed. Field is required for county verification.
  • DESCRIPTION:  
    This field represents 2 digit numeric code, in State (5) file, of location where patient resides.
  • CROSS-REFERENCE:  ^^TRIGGER^631^3
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I X'=$P(^HBHC(631,DA,0),U,3) I X S X=DIV S Y(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(631,2,1,1,1.4)
    1.4)= S DIH=$G(^HBHC(631,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=631,DIG=3 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I X'=$P(^HBHC(631,DA,0),U,3) I X S X=DIV S Y(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(631,2,1,1,2.4)
    2.4)= S DIH=$G(^HBHC(631,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=631,DIG=3 D ^DICR
    CREATE CONDITION)= I X'=$P(^HBHC(631,DA,0),U,3)
    CREATE VALUE)= @
    DELETE CONDITION)= I X'=$P(^HBHC(631,DA,0),U,3)
    DELETE VALUE)= @
    FIELD)= COUNTY CODE
3 COUNTY CODE 0;4 NUMBER

  • INPUT TRANSFORM:  S Z0=$S($P($G(^HBHC(631,D0,0)),U,3)]"":+^HBHC(631.8,$P(^HBHC(631,D0,0),U,3),0),1:0) K:'Z0 X Q:'Z0!'$D(^DIC(5,Z0,1,0)) S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC
  • OUTPUT TRANSFORM:  Q:Y']"" S Z0=$S($P($G(^HBHC(631,D0,0)),U,3)]"":+^HBHC(631.8,$P(^HBHC(631,D0,0),U,3),0),1:"") Q:'Z0 S Y=$P($S($D(^DIC(5,Z0,1,Y,0)):^(0),1:""),U)_" ("_$P($S($D(^(0)):^(0),1:""),U,3)_")"
  • LAST EDITED:  JUL 26, 1993
  • HELP-PROMPT:  Answer with 3 digit numeric county code, or county name, of county where patient resides. County codes are checked for validity of State Code entered.
  • DESCRIPTION:  
    This field represents 3 digit numeric code of County, in State (5) file, of location where patient resides. County codes are checked for validity of State Code entered.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the STATE CODE field of the HBHC PATIENT File
4 ZIP CODE 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<5)!'((X?5N)!(X?9N)) X
  • OUTPUT TRANSFORM:  S Y=$E(Y,1,5)_$S($E(Y,6,9)]"":"-"_$E(Y,6,9),1:"")
  • LAST EDITED:  JUN 05, 1997
  • HELP-PROMPT:  Answer must be 5 or 9 characters in length.
  • DESCRIPTION:  
    This fields represents 5 or 9 digit numeric ZIP Code of area where patient resides.
5 ELIGIBILITY @ EVALUATION 0;6 SET
  • '01' FOR Service Connected 50% or More (01);
  • '02' FOR Aid & Attendance or Housebound (02);
  • '03' FOR Service Connected Less Than 50% (03);
  • '04' FOR Non-Service Connected, Receiving VA Pension (04);
  • '05' FOR Other Non-Service Connected (05);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 2 digit numeric code representing patient's eligibility at time of evaluation.
  • DESCRIPTION:  
    This field represents 2 digit numeric code of patient's eligibility at time of evaluation for HBHC program.
6 BIRTH YEAR COMPUTED DATE

  • MUMPS CODE:  X ^DD(631,6,9.2) S X=$P(Y(631,6,101),U,3),X=$E(X,1,3)_"0000" S:'X X="" S X=X S D0=Y(631,6,80)
    9.2 = S Y(631,6,80)=$S($D(D0):D0,1:""),Y(631,6,1)=$S($D(^HBHC(631,D0,0)):^(0),1:""),D0=$P(Y(631,6,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(631,6,101)=$S($D(^DPT(D0,0)):^(0),1:"")
  • ALGORITHM:  YEAR(.01:DATE OF BIRTH)
  • LAST EDITED:  FEB 18, 1997
  • HELP-PROMPT:  Answer must be 4 numeric characters in length and represents patient's birth year.
  • DESCRIPTION:  
    This field represents 4 digit year of patient's birthdate in Patient (2) file.
7 PERIOD OF SERVICE 0;8 POINTER TO HBHC PERIOD OF SERVICE FILE (#631.7)
************************REQUIRED FIELD************************
HBHC PERIOD OF SERVICE(#631.7)

  • OUTPUT TRANSFORM:  Q:Y']"" S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,8),1:"") Q:'Z0 S Y=$P($S($D(^HBHC(631.7,Z0,0)):^(0),1:""),U,2)
  • LAST EDITED:  OCT 14, 1993
  • HELP-PROMPT:  Answer must be 2 characters in length. Valid entries are '00' thru '05', '07' thru '10' and 'X '. (Note 'X' is followed by space character.) All one digit numeric entries must have leading zero.
  • DESCRIPTION:  This field represents 2 character code in HBHC Period of Service (631.7) file. Valid codes are: '00' thru '05', '07' thru '10', and 'X '. (Note 'X' code is followed by space character.) All 1 digit numeric codes must
    have leading zero.
8 SEX COMPUTED

  • MUMPS CODE:  X ^DD(631,8,9.3) S X=$P($P(Y(631,8,102),$C(59)_$P(Y(631,8,101),U,2)_":",2),$C(59),1) S D0=Y(631,8,80)
    9.2 = S Y(631,8,80)=$S($D(D0):D0,1:""),Y(631,8,1)=$S($D(^HBHC(631,D0,0)):^(0),1:""),D0=$P(Y(631,8,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1
    9.3 = X ^DD(631,8,9.2) S Y(631,8,102)=$C(59)_$S($D(^DD(2,.02,0)):$P(^(0),U,3),1:""),Y(631,8,101)=$S($D(^DPT(D0,0)):^(0),1:"")
    9.4 = X ^DD(631,8,9.3) S X=$P($P(Y(631,8,103),$C(59)_$P(Y(631,8,102),U,2)_":",2),$C(59),1)="M",Y(631,8,104)=X S X="Male (1)",Y(631,8,105)=X S X=1,Y(631,8,106)=X
  • ALGORITHM:  .01:SEX
  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's sex.
  • DESCRIPTION:  
    This field represents patient's Sex in Patient (2) file.
9 RACE COMPUTED

  • MUMPS CODE:  X ^DD(631,9,9.5) S X=$S(Y(631,9,2):Y(631,9,3),Y(631,9,4):Y(631,9,5),Y(631,9,6):Y(631,9,7),Y(631,9,8):Y(631,9,9),Y(631,9,10):Y(631,9,11),Y(631,9,12):Y(631,9,13),Y(631,9,14):X)
    9.2 = X $P(^DD(631,9.1,0),U,5,99) S Y(631,9,1)=X S X=Y(631,9,1)=6,Y(631,9,2)=X S X="White (1)",Y(631,9,3)=X S X=Y(631,9,1)=4,Y(631,9,4)=X S X="Black (2)"
    9.3 = X ^DD(631,9,9.2) S Y(631,9,5)=X S X=Y(631,9,1)=2,Y(631,9,6)=X S X="Hispanic (3)",Y(631,9,7)=X S X=Y(631,9,1)=1,Y(631,9,8)=X S X="Hispanic (3)",Y(631,9,9)=X
    9.4 = X ^DD(631,9,9.3) S X=Y(631,9,1)=3,Y(631,9,10)=X S X="Amer/Indian Alaskan Native (4)",Y(631,9,11)=X S X=Y(631,9,1)=5,Y(631,9,12)=X S X="Asian/Pacific Islander (5)"
    9.5 = X ^DD(631,9,9.4) S Y(631,9,13)=X S X=1,Y(631,9,14)=X S X="Not Determined (9)"
    9.6 = X ^DD(631,9.1,9.3) S Y(631,9.1,101)=$S($D(^DPT(D0,0)):^(0),1:""),D0=$P(Y(631,9.1,101),U,6) S:'$D(^DIC(10,+D0,0)) D0=-1 X ^DD(631,9.1,9.2):D0>0 S X="" S D0=Y(631,9.1,80)
    9.7 = X ^DD(631,9.1,9.3) S Y(631,9.1,101)=$S($D(^DPT(D0,0)):^(0),1:""),D0=$P(Y(631,9.1,101),U,6) S:'$D(^DIC(10,+D0,0)) D0=-1 X ^DD(631,9.1,9.2):D0>0 S X="" S D0=Y(631,9.1,80)
    9.8 = X ^DD(631,9,9.2)=4,Y(631,9,1)=X S X="Black (2)",Y(631,9,2)=X X ^DD(631,9,9.3)=3,Y(631,9,3)=X S X="American Indian/Alaskan Native (4)",Y(631,9,4)=X X ^DD(631,9,9.4)
    9.9 = X ^DD(631,9,9.8) S X=X=6,Y(631,9,5)=X S X="White (1)",Y(631,9,6)=X X ^DD(631,9,9.5)=2,Y(631,9,7)=X S X="Hispanic Origin (3)",Y(631,9,8)=X X ^DD(631,9,9.6)
    10 = X ^DD(631,9,9.9) S X=X=5,Y(631,9,9)=X S X="Asian/Pacific Islander (5)",Y(631,9,10)=X X ^DD(631,9,9.7)=1,Y(631,9,11)=X S X="Hispanic Origin (3)"
    10.1 = X ^DD(631,9,10) S Y(631,9,12)=X S X=1,Y(631,9,13)=X S X="Not Determined (9)"
    10.2 = X ^DD(631,9,10.1) S X=$P(Y(631,9,601),U,2),Y(631,9,602)=X S X="Hispanic (3)",Y(631,9,603)=X S X=$P(Y(631,9,601),U,1),Y(631,9,604)=X
    10.3 = X ^DD(631,9,10.2) S D0=$P(Y(631,9,101),U,6) S:'$D(^DIC(10,+D0,0)) D0=-1 S Y(631,9,701)=$S($D(^DIC(10,D0,0)):^(0),1:"") S X=$P(Y(631,9,701),U,2)=2
    10.4 = X ^DD(631,9,10.3) S Y(631,9,702)=X S X="Hispanic (3)",Y(631,9,703)=X S X=1,Y(631,9,704)=X S X="Not Determined (9)"
  • ALGORITHM:  $S(#9.1=6:"White (1)",#9.1=4:"Black (2)",#9.1=2:"Hispanic (3)",#9.1=1:"Hispanic (3)",#9.1=3:"Amer/Indian Alaskan Native (4)",#9.1=5:"Asian/Pacific Islander (5)",1:"Not Determined (9)")
  • LAST EDITED:  DEC 13, 1993
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's race.
  • DESCRIPTION:  This field is obsolete & contains historical data only (prior to Race/Ethnicity Information multiple field mandate in Jan 2003). Race field value set to "X" for Austin tranmission purposes after mandate.
    Historical Description: This fields represents patient's Race in Patient (2) file. (9.1) field to convert Race field value to corresponding HBHC Race code.
    SOURCE OF DATA: X ^DD(631,9,9.9) S X=X=5,Y(631,9,9)=X S X="Asian/Pacific Islander (5)",Y(631,9,10)=X X ^DD(631,9,9.7)=1,Y(631,9,11)=X S X="Hispanic Origin (3)"
9.1 RACECOMP COMPUTED

  • MUMPS CODE:  X ^DD(631,9.1,9.3) S X=$P(Y(631,9.1,201),U,2) S D0=Y(631,9.1,80)
    9.2 = S Y(631,9.1,80)=$S($D(D0):D0,1:""),Y(631,9.1,1)=$S($D(^HBHC(631,D0,0)):^(0),1:""),D0=$P(Y(631,9.1,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(631,9.1,180)=$S($D(D0):D0,1:"")
    9.3 = X ^DD(631,9.1,9.2) S Y(631,9.1,101)=$S($D(^DPT(D0,0)):^(0),1:""),D0=$P(Y(631,9.1,101),U,6) S:'$D(^DIC(10,+D0,0)) D0=-1 S Y(631,9.1,201)=$S($D(^DIC(10,D0,0)):^(0),1:"")
  • ALGORITHM:  #.01:#.06:#2
  • LAST EDITED:  DEC 13, 1993
  • DESCRIPTION:  This field is obsolete & contains historical data only (prior to Race/Ethnicity Information multiple field mandate in Jan 2003).
    Historical Description: This field returns the abbreviation field from the Race file (#10). Used to obtain the field value needed for converting the Patient file (#2), Race field (#.06), Abbreviation field (#1 in DIC(10,)
    to the corresponding HBHC Race code field value.
10 MARITAL STATUS @ EVALUATION 0;11 SET
  • '1' FOR Married (1);
  • '2' FOR Widowed (2);
  • '3' FOR Separated (3);
  • '4' FOR Divorced (4);
  • '5' FOR Never Married (5);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's marital status at time of evaluation.
  • DESCRIPTION:  
    This fields represents 1 digit numeric code for patient's marital status at time of evaluation for HBHC program.
11 LIVING ARRANGEMENTS @ EVAL 0;12 SET
  • '1' FOR Alone (1);
  • '2' FOR With Spouse (2);
  • '3' FOR With Relatives (3);
  • '4' FOR With Non-Relatives (4);
  • '5' FOR Group Quarters, Not Health Related (5);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's living arrangements at time of evaluation.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's living arrangements at time of evaluation for HBHC program.
12 LAST AGENCY PROVIDING CARE 0;13 SET
  • '1' FOR VA Provided Care (1);
  • '2' FOR Non VA Care (2);
  • '3' FOR VA Fee Basis/Contract (3);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing last agency providing care to patient.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for last agency providing care to patient.
13 TYPE OF LAST CARE AGENCY 0;14 SET
  • '1' FOR General Hospital (1);
  • '2' FOR Specialty Hospital (2);
  • '3' FOR Nursing Home (3);
  • '4' FOR Residential Care Facility (4);
  • '5' FOR Hospice (5);
  • '6' FOR Community-Based Services (6);
  • '7' FOR Self/Family, No Regular Source (7);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing type of agency providing last care to patient.
  • DESCRIPTION:  
    This fields represents 1 digit numeric code for type of agency providing last care to patient.
14 ADMIT/REJECT ACTION 0;15 SET
  • '1' FOR Admit to HBHC (1);
  • '2' FOR Reject from HBHC (2);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing whether patient was admitted to or rejected from HBHC program. This answer determines what other data entry fields are prompted for by the package.
  • DESCRIPTION:  
    This fields represents 1 digit numeric code for whether patient was admitted to or rejected from HBHC program. This field determines what other data entry fields are prompted for by the package.
15 REJECT/WITHDRAW REASON 0;16 POINTER TO HBHC REJECT/WITHDRAW REASON FILE (#631.1) HBHC REJECT/WITHDRAW REASON(#631.1)

  • OUTPUT TRANSFORM:  Q:Y']"" S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,16),1:"") Q:'Z0 S Y=$P($S($D(^HBHC(631.1,Z0,0)):^(0),1:""),U,2)
  • LAST EDITED:  MAR 17, 1994
  • HELP-PROMPT:  Answer with 2 digit numeric code representing reason patient was rejected/withdrawn from HBHC program.
  • DESCRIPTION:  This field represents 2 digit numeric code in HBHC Reject/Withdraw Reason (631.1) file, for reason patient was rejected/withdrawn from HBHC program. This field is only prompted for when Admit/Reject Action field contains
    2 (Reject from HBHC).
16 REJECT/WITHDRAW DISPOSITION 0;17 SET
  • '1' FOR Referred Back to Referral Source (1);
  • '2' FOR Disposition Made by HBHC (2);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing reject/withdraw disposition.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for reject/withdraw disposition. This field is only prompted for when Admit/Reject Action field contains 2 (Reject from HBHC).
17 DATE 0;18 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S (HBHCDTE,X)=Y,HBHCDS=$P(^HBHC(631,D0,0),U,40) K:X>DT!(2770101>X) X K:((HBHCDS]"")&(HBHCDTE>HBHCDS)) X K HBHCDS,HBHCDTE
  • LAST EDITED:  AUG 26, 1997
  • HELP-PROMPT:  Date must be prior to or same as discharge date, must be between 1/1/1977 & current date, and represent date patient was considered/reviewed for HBPC program. Field is required.
  • DESCRIPTION:  
    This field represents date patient was considered/reviewed for HBPC program. Date range allowed is between 1/1/1977 and current date. Date must be prior to or same as discharge date.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  631^AD
    1)= S ^HBHC(631,"AD",$E(X,1,30),DA)=""
    2)= K ^HBHC(631,"AD",$E(X,1,30),DA)
    This cross-reference represents regular 'AD' file index of HBHC Patient (631) file, Date (17) field.
18 PRIMARY DIAGNOSIS @ ADMISSION 0;19 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  MAY 03, 2012
  • HELP-PROMPT:  Answer with ICD diagnosis code, or diagnosis description, of patient's primary diagnosis at time of admission.
  • DESCRIPTION:  
    This field represents patient's primary diagnosis at time of admission, referencing ICD Diagnosis (80) file entries.
19 VISION @ ADMISSION 0;20 SET
  • '1' FOR Normal or Minimal Loss (1);
  • '2' FOR Moderate Loss (2);
  • '3' FOR Severe Loss (3);
  • '4' FOR Total Blindness (4);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's vision at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's vision at time of admission.
20 HEARING @ ADMISSION 0;21 SET
  • '1' FOR Normal or Minimal Loss (1);
  • '2' FOR Moderate Loss (2);
  • '3' FOR Severe Loss (3);
  • '4' FOR Total Deafness (4);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's hearing at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's hearing at time of admission.
21 EXPRESSIVE COMMUNICATION @ ADM 0;22 POINTER TO HBHC EXPRESSIVE COMMUNICATION FILE (#631.2) HBHC EXPRESSIVE COMMUNICATION(#631.2)

  • OUTPUT TRANSFORM:  Q:Y']"" S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,22),1:"") Q:'Z0 S Y=$P($S($D(^HBHC(631.2,Z0,0)):^(0),1:""),U)
  • LAST EDITED:  MAR 17, 1994
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's expressive communication at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's expressive communication at time of admission, referencing HBHC Expressive Communication (631.2) file entries.
22 RECEPTIVE COMMUNICATION @ ADM 0;23 POINTER TO HBHC RECEPTIVE COMMUNICATION FILE (#631.3) HBHC RECEPTIVE COMMUNICATION(#631.3)

  • OUTPUT TRANSFORM:  Q:Y']"" S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,23),1:"") Q:'Z0 S Y=$P($S($D(^HBHC(631.3,Z0,0)):^(0),1:""),U)
  • LAST EDITED:  MAR 17, 1994
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's receptive communication at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's receptive communication at time of admission, referencing HBHC Receptive Communication (631.3) file entries.
23 BATHING @ ADMISSION 0;24 SET
  • '1' FOR No Help (1);
  • '2' FOR Receives Help (2);
  • '3' FOR Not Done or Done Without Patient Participation (3);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing bathing of patient at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's bathing at time of admission.
24 DRESSING @ ADMISSION 0;25 SET
  • '1' FOR No Help (1);
  • '2' FOR Receives Help (2);
  • '3' FOR Not Done or Done Without Patient Participation (3);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing dressing of patient at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's dressing at time of admission.
25 TOILET USAGE @ ADMISSION 0;26 SET
  • '1' FOR No Help (1);
  • '2' FOR Receives Help (2);
  • '3' FOR Not Done or Done Without Patient Participation (3);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing toilet usage of patient at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's toilet usage at time of admission.
26 TRANSFERRING @ ADMISSION 0;27 SET
  • '1' FOR No Help (1);
  • '2' FOR Receives Help (2);
  • '3' FOR Not Done or Done Without Patient Participation (3);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing transferring of patient at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's transferring at time of admission.
27 EATING @ ADMISSION 0;28 SET
  • '1' FOR No Help (1);
  • '2' FOR Receives Help (2);
  • '3' FOR Not Done or Done Without Patient Participation (3);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing eating by patient at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's eating at time of admission.
28 WALKING @ ADMISSION 0;29 SET
  • '1' FOR No Help (1);
  • '2' FOR Receives Help (2);
  • '3' FOR Not Done or Done Without Patient Participation (3);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing walking by patient at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's walking at time of admission.
29 BOWEL CONTINENCE @ ADMISSION 0;30 SET
  • '1' FOR Continent or Ostomy/Catheter Self Care (1);
  • '2' FOR Incontinent Occasionally (2);
  • '3' FOR Incontinent or Ostomy/Catheter Not Self Care (3);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing bowel continence of patient at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's bowel continence at time of admission.
30 BLADDER CONTINENCE @ ADMISSION 0;31 SET
  • '1' FOR Continent or Ostomy/Catheter Self Care (1);
  • '2' FOR Incontinent Occasionally (2);
  • '3' FOR Incontinent or Ostomy/Catheter Not Self Care (3);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing bladder continence of patient at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's bladder continence at time of admission.
31 MOBILITY @ ADMISSION 0;32 SET
  • '1' FOR Goes Outdoors Without Help (1);
  • '2' FOR Goes Outdoors With Help (2);
  • '3' FOR Confined Indoors, Not Bed Disabled (3);
  • '4' FOR Bed Disabled (4);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  MAY 06, 1992
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's mobility at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's mobility at time of admission.
32 ADAPTIVE TASKS @ ADMISSION 0;33 SET
  • '1' FOR No Help (1);
  • '2' FOR Requires Help (2);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's adaptive tasks at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's adaptive tasks at time of admission.
33 BEHAVIOR PROBLEMS @ ADMISSION 0;34 SET
  • '1' FOR Does Not Exhibit This Characteristic (1);
  • '2' FOR Exhibits This Characteristic (2);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing behavior problems of patient at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's behavior problems at time of admission.
34 DISORIENTATION @ ADMISSION 0;35 SET
  • '1' FOR Does Not Exhibit This Characteristic (1);
  • '2' FOR Exhibits This Characteristic (2);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing disorientation of patient at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's disorientation at time of admission.
35 MOOD DISTURBANCE @ ADMISSION 0;36 SET
  • '1' FOR Does Not Exhibit This Characteristic (1);
  • '2' FOR Exhibits This Characteristic (2);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing mood disturbance of patient at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's mood disturbance at time of admission.
36 CAREGIVER LIMITATIONS @ ADM 0;37 SET
  • '1' FOR Minimal or None (1);
  • '2' FOR Moderate (2);
  • '3' FOR Moderately Severe (3);
  • '4' FOR No Caregiver (4);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's caregiver limitations at time of admission.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's caregiver limitations at time of admission.
37 PERSON COMPLETING EVL/ADM FORM 0;38 POINTER TO HBHC PROVIDER FILE (#631.4) HBHC PROVIDER(#631.4)

  • OUTPUT TRANSFORM:  Q:Y']"" S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,38),1:"") Q:'Z0 S Z1=$P($S($D(^HBHC(631.4,Z0,0)):^(0),1:""),U,2),Z2=+(^(0)),Y=$P($S($D(^VA(200,Z1,0)):^(0),1:""),U)_" ("_Z2_")"
  • LAST EDITED:  MAR 18, 1994
  • HELP-PROMPT:  Answer with name of person completing evaluation/admission form. Person must exist in HBHC Provider file.
  • DESCRIPTION:  
    This field represents name of person completing evaluation/admission form. This person must exist in HBHC Provider (631.4) file, since LAYGO is not allowed.
38 DATE EVAL/ADM FORM COMPLETED 0;39 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 07, 1993
  • HELP-PROMPT:  Answer with date evalution/admission form was completed.
  • DESCRIPTION:  
    This field represents date evaluation/admission form was completed.
39 DISCHARGE DATE 0;40 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S (HBHCDTE,X)=Y K:X>DT!(2770101>X) X K:HBHCDTE<$P(^HBHC(631,D0,0),U,18) X K HBHCDTE
  • LAST EDITED:  MAR 17, 1994
  • HELP-PROMPT:  Answer with date patient was discharged from HBHC program. Answer must be between 1/1/1977 and current date. Discharge date must follow or be same as admission date.
  • DESCRIPTION:  
    This field represents date patient was discharged from HBHC program. Date range allowed is between 1/1/1977 and current date. Discharge date must follow or be same as admission date.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  631^AC
    1)= S ^HBHC(631,"AC",$E(X,1,30),DA)=""
    2)= K ^HBHC(631,"AC",$E(X,1,30),DA)
    This cross-reference represents regular 'AC' file index of HBHC Patient (631) file, Discharge Date (39) field.
40 ELIGIBILITY @ DISCHARGE 0;41 SET
  • '01' FOR Service Connected 50% or More (01);
  • '02' FOR Aid & Attendance or Housebound (02);
  • '03' FOR Service Connected Less Than 50% (03);
  • '04' FOR Non-Service Connected, Receiving VA Pension (04);
  • '05' FOR Other Non-Service Connected (05);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 2 digit numeric code representing patient's eligibility at time of discharge.
  • DESCRIPTION:  
    This field represents 2 digit numeric code of patient's eligibility at time of discharge from HBHC program.
41 MARITAL STATUS @ DISCHARGE 0;42 SET
  • '1' FOR Married (1);
  • '2' FOR Widowed (2);
  • '3' FOR Separated (3);
  • '4' FOR Divorced (4);
  • '5' FOR Never Married (5);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's marital status at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's marital status at time of discharge from HBHC program.
42 LIVING ARRANGEMENTS @ D/C 0;43 SET
  • '1' FOR Alone (1);
  • '2' FOR With Spouse (2);
  • '3' FOR With Relatives (3);
  • '4' FOR With Non-Relatives (4);
  • '5' FOR Group Quarters, Not Health Related (5);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  APR 07, 1993
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's living arrangements at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's living arrangements at time of discharge from HBHC program.
43 DISCHARGE STATUS 0;44 SET
  • '1' FOR Transferred to Other Provider (1);
  • '2' FOR Anticipated Institutionalization (2);
  • '3' FOR Family or Self Care/No Regular Source (3);
  • '4' FOR Died on HBHC (4);
  • '5' FOR Moved Away/Lost to Contact (5);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing discharge status of patient. This answer determines what other data entry fields are prompted for by the package.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's discharge status. This field determines what other data entry fields are prompted for by the package.
44 TRANSFER DESTINATION 0;45 SET
  • '1' FOR VA Provided Care (1);
  • '2' FOR Non VA Care (2);
  • '3' FOR VA Fee Basis/Contract (3);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing transfer destination of patient.
  • DESCRIPTION:  This field represents 1 digit numeric code for patient's transfer destination. This field is only prompted for when Discharge Status field contains either 1 (Transferred to Other Provider) or 2 (Anticipated
    Institutionalization).
45 TYPE OF DESTINATION AGENCY 0;46 SET
  • '1' FOR General Hospital (1);
  • '2' FOR Specialty Hospital (2);
  • '3' FOR Nursing Home (3);
  • '4' FOR Residential Care Facility/Domicillary (4);
  • '5' FOR Hospice (5);
  • '6' FOR Community-Based Services (6);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing type of agency of patient's destination.
  • DESCRIPTION:  This field represent 1 digit numeric code for patient's type of destination agency. This field is only prompted for when Discharge Status field contains either 1 (Transferred to Other Provider) or 2 (Anticipated
    Institutionalization).
46 PRIMARY DIAGNOSIS @ DISCHARGE 0;47 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  MAY 03, 2012
  • HELP-PROMPT:  Answer with ICD diagnosis code, or diagnosis description, of patient's primary diagnosis at time of discharge.
  • DESCRIPTION:  
    This field represents patient's primary diagnosis at time of discharge, referencing ICD Diagnosis (80) file entries.
47 VISION @ DISCHARGE 0;48 SET
  • '1' FOR Normal or Minimal Loss (1);
  • '2' FOR Moderate Loss (2);
  • '3' FOR Severe Loss (3);
  • '4' FOR Total Blindness (4);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's vision at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's vision at time of discharge.
48 HEARING @ DISCHARGE 0;49 SET
  • '1' FOR Normal or Minimal Loss (1);
  • '2' FOR Moderate Loss (2);
  • '3' FOR Severe Loss (3);
  • '4' FOR Total Deafness (4);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's hearing at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's hearing at time of discharge.
49 EXPRESSIVE COMMUNICATION @ D/C 0;50 POINTER TO HBHC EXPRESSIVE COMMUNICATION FILE (#631.2) HBHC EXPRESSIVE COMMUNICATION(#631.2)

  • LAST EDITED:  APR 07, 1993
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's expressive communication at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's expressive communication at time of discharge, referencing HBHC Expressive Communication (631.2) file entries.
50 RECEPTIVE COMMUNICATION @ D/C 0;51 POINTER TO HBHC RECEPTIVE COMMUNICATION FILE (#631.3) HBHC RECEPTIVE COMMUNICATION(#631.3)

  • LAST EDITED:  APR 07, 1993
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's receptive communication at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's receptive communication at time of discharge, referencing HBHC Receptive Communication (631.3) file entries.
51 BATHING @ DISCHARGE 0;52 SET
  • '1' FOR No Help (1);
  • '2' FOR Receives Help (2);
  • '3' FOR Not Done or Done Without Patient Participation (3);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  MAY 06, 1992
  • HELP-PROMPT:  Answer with 1 digit numeric code representing bathing of patient at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's bathing at time of discharge.
52 DRESSING @ DISCHARGE 0;53 SET
  • '1' FOR No Help (1);
  • '2' FOR Receives Help (2);
  • '3' FOR Not Done or Done Without Patient Participation (3);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing dressing of patient at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's dressing at time of discharge.
53 TOILET USAGE @ DISCHARGE 0;54 SET
  • '1' FOR No Help (1);
  • '2' FOR Receives Help (2);
  • '3' FOR Not Done or Done Without Patient Participation (3);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing toilet usage of patient at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's toilet usage at time of discharge.
54 TRANSFERRING @ DISCHARGE 0;55 SET
  • '1' FOR No Help (1);
  • '2' FOR Receives Help (2);
  • '3' FOR Not Done or Done Without Patient Participation (3);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing transferring of patient at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's transferring at time of discharge.
55 EATING @ DISCHARGE 1;1 SET
  • '1' FOR No Help (1);
  • '2' FOR Receives Help (2);
  • '3' FOR Not Done or Done Without Patient Participation (3);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing eating by patient at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's eating at time of discharge.
56 WALKING @ DISCHARGE 1;2 SET
  • '1' FOR No Help (1);
  • '2' FOR Receives Help (2);
  • '3' FOR Not Done or Done Without Patient Participation (3);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing walking by patient at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's walking at time of discharge.
57 BOWEL CONTINENCE @ DISCHARGE 1;3 SET
  • '1' FOR Continent or Ostomy/Catheter Self Care (1);
  • '2' FOR Incontinent Occasionally (2);
  • '3' FOR Incontinent or Ostomy/Catheter Not Self Care (3);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing bowel continence of patient at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's bowel continence at time of discharge.
58 BLADDER CONTINENCE @ DISCHARGE 1;4 SET
  • '1' FOR Continent or Ostomy/Catheter Self Care (1);
  • '2' FOR Incontinent Occasionally (2);
  • '3' FOR Incontinent or Ostomy/Catheter Not Self Care (3);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing bladder continence of patient at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's bladder continence at time of discharge.
59 MOBILITY @ DISCHARGE 1;5 SET
  • '1' FOR Goes Outdoors Without Help (1);
  • '2' FOR Goes Outdoors With Help (2);
  • '3' FOR Confined Indoors, Not Bed Disabled (3);
  • '4' FOR Bed Disabled (4);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's mobility at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's mobility at time of discharge.
60 ADAPTIVE TASKS @ DISCHARGE 1;6 SET
  • '1' FOR No Help (1);
  • '2' FOR Requires Help (2);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's adaptive tasks at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's adaptive tasks at time of discharge.
61 BEHAVIOR PROBLEMS @ DISCHARGE 1;7 SET
  • '1' FOR Does Not Exhibit This Characteristic (1);
  • '2' FOR Exhibits This Characteristic (2);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing bahavior problems of patient at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's behavior problems at time of discharge.
62 DISORIENTATION @ DISCHARGE 1;8 SET
  • '1' FOR Does Not Exhibit This Characteristic (1);
  • '2' FOR Exhibits This Characteristic (2);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing disorientation of patient at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's disorientation at time of discharge.
63 MOOD DISTURBANCE @ DISCHARGE 1;9 SET
  • '1' FOR Does Not Exhibit This Characteristic (1);
  • '2' FOR Exhibits This Characteristic (2);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Answer with 1 digit numeric code representing mood disturbance of patient at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's mood disturbance at time of discharge.
64 CAREGIVER LIMITATIONS @ D/C 1;10 SET
  • '1' FOR Minimal or None (1);
  • '2' FOR Moderate (2);
  • '3' FOR Moderately Severe (3);
  • '4' FOR No Caregiver (4);
  • '9' FOR Not Determined (9);

  • LAST EDITED:  APR 07, 1993
  • HELP-PROMPT:  Answer with 1 digit numeric code representing patient's caregiver limitations at time of discharge.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for patient's caregiver limitations at time of discharge.
65 PERSON COMPLETING D/C FORM 1;11 POINTER TO HBHC PROVIDER FILE (#631.4) HBHC PROVIDER(#631.4)

  • OUTPUT TRANSFORM:  Q:Y']"" S Z0=$S($D(^HBHC(631,D0,1)):$P(^(1),U,11),1:"") Q:'Z0 S Z1=$P($S($D(^HBHC(631.4,Z0,0)):^(0),1:""),U,2),Z2=+(^(0)),Y=$P($S($D(^VA(200,Z1,0)):^(0),1:""),U)_" ("_Z2_")"
  • LAST EDITED:  MAR 17, 1994
  • HELP-PROMPT:  Answer with name of person completing discharge form. Person must exist in HBHC Provider file.
  • DESCRIPTION:  
    This field represents name of person completing discharge form. This person must exist in HBHC Provider (631.4) file, since LAYGO is not allowed.
66 DATE DISCHARGE FORM COMPLETED 1;12 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 09, 1992
  • HELP-PROMPT:  Answer with date discharge form was completed.
  • DESCRIPTION:  
    This field represents date discharge form was completed.
67 CASE MANAGER 1;13 POINTER TO HBHC PROVIDER FILE (#631.4) HBHC PROVIDER(#631.4)

  • OUTPUT TRANSFORM:  Q:Y']"" S Z0=$P($G(^HBHC(631,D0,1)),U,13) Q:'Z0 S Z1=$P($G(^HBHC(631.4,Z0,0)),U,2),Z2=+(^(0)),Y=$P($G(^VA(200,Z1,0)),U)_" ("_Z2_")"
  • LAST EDITED:  SEP 23, 1993
  • HELP-PROMPT:  Answer with person responsible for this case. Person must exist in HBHC Provider file.
  • DESCRIPTION:  
    This field represents name of person responsible for this case. This person must exist in HBHC Provider (631.4) file, since LAYGO is not allowed.
68 SECONDARY DIAGNOSES @ ADM 1;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUN 11, 1991
  • HELP-PROMPT:  Answer with diagnosis code, or diagnosis description, of patient's secondary diagnosis at time of admission. Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This field represents patient's secondary diagnosis at time of admission. Field allows for 1-30 characters of free text.
69 CAUSE OF DEATH 1;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUN 11, 1991
  • HELP-PROMPT:  Answer with patient's cause of death. Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This field represents patient's cause of death. This field in only prompted for when Discharge Status field contains 4 (Died on HBHC). Field allows for 1-30 characters of free text.
70 SECONDARY DIAGNOSES @ D/C 1;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 07, 1993
  • HELP-PROMPT:  Answer with diagnosis code, or diagnosis description, of patient's secondary diagnosis at time of discharge. Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This field represents patient's secondary diagnosis at time of discharge. Field allows for 1-30 characters of free text.
71 FORM 3 TRANSMIT STATUS 1;17 SET
  • 'F' FOR Record in Transmit File;
  • 'N' FOR Record Needs Transmitting;
  • 'T' FOR Record Transmitted;
  • 'O' FOR Record Omitted, Pre-dates 10/1/96 PCE Usage;

  • LAST EDITED:  APR 17, 1997
  • HELP-PROMPT:  Field updated only by package, no user input. Field updated with record transmit status.
  • DESCRIPTION:  This field represents Form 3 (Evaluation/Admission) Transmit Status. Field will contain either 'F' (Record in Transmit File), 'N' (Record Needs Transmitting), 'T' (Record Transmitted), or 'O' (Record Omitted, Pre-dates
    10/1/96 PCE Usage). Field updated by package only, no user input.
  • CROSS-REFERENCE:  631^AE
    1)= S ^HBHC(631,"AE",$E(X,1,30),DA)=""
    2)= K ^HBHC(631,"AE",$E(X,1,30),DA)
    This cross-reference represents regular 'AE' file index of HBHC Patient (631) file, Form 3 (Evaluation/Admission) Transmit Status (71) field. Form 3 Transmit Status field updated by package only, no user input.
72 FORM 5 TRANSMIT STATUS 1;18 SET
  • 'F' FOR Record in Transmit File;
  • 'N' FOR Record Needs Transmitting;
  • 'T' FOR Record Transmitted;
  • 'O' FOR Record Omitted, Pre-dates 10/1/96 PCE Usage;

  • LAST EDITED:  APR 17, 1997
  • HELP-PROMPT:  Field updated only by package, no user input.
  • DESCRIPTION:  This field represents Form 5 (Discharge) Transmit Status. Field will contain either 'F' (Record in Transmit File), 'N' (Record Needs Transmitting), 'T' (Record Transmitted), or 'O' (Record Omitted, Pre-dates 10/1/96 PCE
    Usage). Field updated by package only, no user input.
  • CROSS-REFERENCE:  631^AF
    1)= S ^HBHC(631,"AF",$E(X,1,30),DA)=""
    2)= K ^HBHC(631,"AF",$E(X,1,30),DA)
    This cross-reference represents regular 'AF' file index of HBHC Patient (631) file, Form 5 (Discharge) Transmit Status (72) field. Form 5 Transmit Status field updated by package only, no user input.
73 FORM 3 FILED IN HBHC(634) DATE 1;19 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 15, 2008
  • HELP-PROMPT:  Field updated only by package, no user input. Field represents Date/Time Form 3 filed in Transmit file.
  • DESCRIPTION:  
    This field represents date/time Form 3 (Evaluation/Admission) record filed in Transmit (634) file. Field transmitted to Austin for unique record identification purposes. Field updated by package only, no user input.
74 FORM 3 BATCH INITIAL MM MSG # 1;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  JUN 26, 1992
  • HELP-PROMPT:  Field updated only by package, no user input. Number represents first MM msg # in transmission batch. Record may be transmitted in different msg, if multiple msgs transmitted.
  • DESCRIPTION:  This field represents MailMan message number of 'First' MailMan message in Austin transmission batch. Record 'may' be transmitted in different message, if multiple messages are transmitted in one transmission batch.
    Field updated by package only, no user input.
75 FORM 3 MAIL MESSAGE DATE 1;21 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 04, 1992
  • HELP-PROMPT:  Field updated only by package, no user input.
  • DESCRIPTION:  
    This field represents date of Form 3 (Evaluation/Admission) record transmission via MailMan to Austin. Field updated by package only, no user input.
  • CROSS-REFERENCE:  631^AG
    1)= S ^HBHC(631,"AG",$E(X,1,30),DA)=""
    2)= K ^HBHC(631,"AG",$E(X,1,30),DA)
    This cross-reference represents regular 'AG' file index of HBHC Patient (631) file, Form 3 (Evaluation/Admission) Mail Message Date (75) field. Form 3 Mail Message Date field updated by package only, no user input.
76 FORM 5 FILED IN HBHC(634) DATE 1;22 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1992
  • HELP-PROMPT:  Date Form 5 filed in Transmit file. Field updated only by package, no user input.
  • DESCRIPTION:  
    This field represents date Form 5 (Discharge) record filed in Transmit (634) file. Field updated by package only, no user input.
77 FORM 5 BATCH INITIAL MM MSG # 1;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  JUN 26, 1992
  • HELP-PROMPT:  Field updated only by package, no user input. Number represents first MM msg # in transmission batch. Record may be transmitted in different msg, if multiple msgs transmitted.
  • DESCRIPTION:  This field represents MailMan message number of 'First' MailMan message in Austin transmission batch. Record 'may' be transmitted in different message, if multiple messages are transmitted in one transmission batch.
    Field updated by package only, no user input.
78 FORM 5 MAIL MESSAGE DATE 1;24 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 04, 1992
  • HELP-PROMPT:  Field updated only by package, no user input.
  • DESCRIPTION:  
    This field represents date of Form 5 (Discharge) record transmission via MailMan to Austin. Field updated by package only, no user input.
  • CROSS-REFERENCE:  631^AH
    1)= S ^HBHC(631,"AH",$E(X,1,30),DA)=""
    2)= K ^HBHC(631,"AH",$E(X,1,30),DA)
    This cross-reference represents regular 'AH' file index of HBHC Patient (631) file, Form 5 (Discharge) Mail Message Date (78) field. Form 5 Mail Message Date field updated by package only, no user input.
79 FORM 3 TRANSMIT FLAG EDIT DATE 1;25 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1992
  • HELP-PROMPT:  Field updated only by package, no user input. Field is updated with current date when user requests Form 3 Transmit Status flag be reset (allowing editing of transmitted record).
  • DESCRIPTION:  
    This field represents date Form 3 (Evaluation/Admission) Transmit Status flag was requested by user to be reset (allowing editing of previously transmitted record). Field updated by package only, no user input.
80 FORM 3 TRANSMIT FLAG EDIT DUZ 1;26 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 29, 1992
  • HELP-PROMPT:  Field updated only by package, no user input. Field is updated with user's DUZ when user requests Form 3 Transmit Status flag be reset (allowing editing of transmitted record).
  • DESCRIPTION:  
    This field represents DUZ of user requesting Form 3 (Evaluation/ Admission) Transmit Status flag be reset (allowing editing of previously transmitted record). Field updated by package only, no user input.
81 FORM 5 TRANSMIT FLAG EDIT DATE 1;27 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1992
  • HELP-PROMPT:  Field updated only by package, no user input. Field is updated with current date when user requests Form 5 Transmit Status flag be reset (allowing editing of transmitted record).
  • DESCRIPTION:  
    This field represents date Form 5 (Discharge) Transmit Status flag was requested by user to be reset (allowing editing of previously transmitted record). Field updated by package only, no user input.
82 FORM 5 TRANSMIT FLAG EDIT DUZ 1;28 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 29, 1992
  • HELP-PROMPT:  Field updated only by package, no user input. Field is updated with user's DUZ when user requests Form 5 Transmit Status flag be reset (allowing editing of transmitted record).
  • DESCRIPTION:  
    This field represents DUZ of user requesting Form 5 (Discharge) Transmit Status flag be reset (allowing editing of previously transmitted record). Field updated by package only, no user input.
83 FORM 3 RE-TRANS BATCH MM MSG # 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  JUN 26, 1992
  • HELP-PROMPT:  Field updated only by package, no user input. Number represents first MM msg # in re-transmission batch. Record may be transmitted in different msg, if multiple msgs transmitted.
  • DESCRIPTION:  This field represents MailMan message number of 'First' MailMan message in re-transmission batch to Austin. Record 'may' be transmitted in different message, if multiple messages are transmitted in one re-transmission
    batch. Field updated by package only, no user input.
84 FORM 3 RE-TRANSMIT DATE 2;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 04, 1992
  • HELP-PROMPT:  Field updated only by package, no user input.
  • DESCRIPTION:  
    This field represents date of Form 3 (Evaluation/Admission) record re-transmission via MailMan to Austin. Field updated by package only, no user input.
85 FORM 5 RE-TRANS BATCH MM MSG # 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  JUN 26, 1992
  • HELP-PROMPT:  Field updated only by package, no user input. Number represents first MM msg # in re-transmission batch. Record may be transmitted in different msg, if multiple msgs transmitted.
  • DESCRIPTION:  This field represents MailMan message number of 'First' MailMan message in re-transmission batch to Austin. Record 'may' be transmitted in different message, if multiple messages are transmitted in one re-transmission
    batch. Field updated by package only, no user input.
86 FORM 5 RE-TRANSMIT DATE 2;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 04, 1992
  • HELP-PROMPT:  Field updated only by package, no user input.
  • DESCRIPTION:  
    This field represents date of Form 5 (Discharge) record re-transmission via MailMan to Austin. Field updated by package only, no user input.
87 REFERRED WHILE INPATIENT 1;29 SET
  • '1' FOR Yes;
  • '2' FOR No;

  • LAST EDITED:  APR 04, 1997
  • HELP-PROMPT:  Answer with 1 digit numeric code representing if patient was an inpatient at time of referral.
  • DESCRIPTION:  
    This field represents 1 digit numeric code for whether patient was inpatient at time of referral.
88 MEDICAL FOSTER HOME PATIENT 3;1 SET
  • 'Y' FOR Yes;
  • 'N' FOR No;

  • LAST EDITED:  SEP 26, 2008
  • HELP-PROMPT:  Answer with 1 digit alphanumeric code representing whether Patient is Medical Foster Home (MFH) Patient.
  • DESCRIPTION:  
    This field represents whether Patient is Medical Foster Home (MFH) Patient.
    UNEDITABLE
  • CROSS-REFERENCE:  631^AJ
    1)= S ^HBHC(631,"AJ",$E(X,1,30),DA)=""
    2)= K ^HBHC(631,"AJ",$E(X,1,30),DA)
    This cross-ref represents whether the Patient is Medical Foster Home (MFH) Patient.
89 MEDICAL FOSTER HOME NAME 3;2 POINTER TO HBHC MEDICAL FOSTER HOME FILE (#633.2) HBHC MEDICAL FOSTER HOME(#633.2)

  • LAST EDITED:  SEP 05, 2007
  • HELP-PROMPT:  Answer with Name of Medical Foster Home (MFH) that already exists in Medical Foster Home file.
  • DESCRIPTION:  
    This field represents Name of Medical Foster Home (MFH) that already exists in HBHC Medical Foster Home file (#633.2).
  • CROSS-REFERENCE:  631^AK
    1)= S ^HBHC(631,"AK",$E(X,1,30),DA)=""
    2)= K ^HBHC(631,"AK",$E(X,1,30),DA)
    This cross-ref represents the Medical Foster Home (MFH) Name (pointer) in Medical Foster Home file (#633.2).
90 RATE PAID 4;0 DATE Multiple #631.01 631.01

  • DESCRIPTION:  
    This subfile represents the Medical Foster Home (MFH) Rate Paid multiple.
91 PARENT SITE 5;1 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)
************************REQUIRED FIELD************************
MEDICAL CENTER DIVISION(#40.8)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^HBHC(631.9,1,1,""B"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 21, 2021
  • HELP-PROMPT:  Please select the HBPC Program Facility associated to the patient's care.
  • DESCRIPTION:  The Parent Site prompt provides selection of the HBPC Program Facility which has been defined in the local HBHC SITE PARAMETERS (#631.9) file. If only one site has been defined as a parent site, that site will default into
    this prompt for selection. Otherwise, users will be required to select the HBPC Program Facility associated to the patient's care.
    The selected site's code will be used for AITC record transmissions for this patient.
    If you are not locating the appropriate HBPC Program Site for selection, please contact your HBPC Program Manager for assistance.
  • TECHNICAL DESCR:  
    Entries in this field must be predefined in the PARENT SITE (#9) multiple field of the HBHC SYSTEM PARAMETERS (#631.9) file.
  • SCREEN:  S DIC("S")="I $D(^HBHC(631.9,1,1,""B"",+Y))"
  • AUDIT:  YES, ALWAYS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All