Global: ^HBHC(633.2

FileMan FileNo	FileMan Filename	Package
633.2	HBHC MEDICAL FOSTER HOME	Hospital Based Home Care

Package	Total	Routines
Hospital Based Home Care	30	DIETITIAN INSPECTION END OF LIFE ISSUES TRAIN DATE FIRE/SAFETY INSPECTION FIRE/SAFETY TRAINING DATE HBHCDEM HBHCFILE HBHCPS24 HBHCRP10 HBHCRP26 HBHCRP27 HBHCRP28 HBHCRP29 HBHCRP30 HBHCRP31 HBHCTXT2 HBHCUPDM HBHCUTL1 ^HBHC(633.2 ^HBHC(634.7 HBHCUTL5 HBHCWORK HBHCXMM HBHCXMT HOME OPERATION TRAINING DATE INFECTION CONTROL TRAIN DATE MEDICATION MANAGEMENT TRN DATE NURSE INSPECTION OTHER TRAINING DATE PERSONAL CARE TRAINING DATE SOCIAL WORK INSPECTION

Package	Total	Routines
Hospital Based Home Care	6	HBHCDEM HBHCPS24 HBHCUPDM HBHCUTL5 HBHCWORK HBHCXMT

Package	Total	FileMan Files
Hospital Based Home Care	2	HBHC PATIENT(#631)[89] HBHC MEDICAL FOSTER HOME ERROR(S)(#634.7)[.01]

Package	Total	FileMan Files
Hospital Based Home Care	1	HBHC VALID STATE CODE(#631.8)[9]
Kernel	1	NEW PERSON(#200)[32, #633.213(1), #633.214(1), #633.215(1), #633.216(1)]
Registration	1	MEDICAL CENTER DIVISION(#40.8)[35]

Fields, Total: 36

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `OCT 31, 2007` HELP-PROMPT: `Answer with Medical Foster Home (MFH) Name. Answer must be 3-30 alphanumeric characters in length.` DESCRIPTION: `This field represents the HBHC Medical Foster Home (MFH) Name.` CROSS-REFERENCE: `633.2^B` `1)= S ^HBHC(633.2,"B",$E(X,1,30),DA)=""` `2)= K ^HBHC(633.2,"B",$E(X,1,30),DA)`
1	OPENED DATE	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:3991231X) X` LAST EDITED: `JUL 20, 2006` HELP-PROMPT: `Answer with Date the Medical Foster Home (MFH) was Opened. Answer must be between 1/1/2000 & 12/31/2099 inclusive.` DESCRIPTION: `This field represents the Date the Medical Foster Home was Opened.`
2	PRIMARY CAREGIVER NAME	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>35!($L(X)<3)!($L(X,",")'=2)!(X'?1.E1","1.E) X` LAST EDITED: `JUL 19, 2006` HELP-PROMPT: `Answer with the Primary Caregiver Name, using lastname, firstname format.` DESCRIPTION: `This field represents the Primary Caregiver Name for the Medical Foster Home (MFH).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
3	MAXIMUM PATIENTS	0;4	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>3)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 19, 2006` HELP-PROMPT: `Answer with Number between 1 and 3 inclusive, for Maximum Patients for Medical Foster Home (MFH).` DESCRIPTION: `This field represents the Maximum Patients for the Medical Foster Home (MFH).`
4	BEDBOUND PATIENT MAXIMUM	0;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>2)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 03, 2006` HELP-PROMPT: `Answer with number between 0 and 2, inclusive, for Bedbound Patient Maximum for Medical Foster Home (MFH).` DESCRIPTION: `This field represents the Bedbound Patient Maximum for the Medical Foster Home (MFH).`
5	CLOSURE DATE	0;6	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:3991231X) X` LAST EDITED: `JUL 19, 2006` HELP-PROMPT: `Answer with the Medical Foster Home (MFH) Closure Date. Answer must be between 1/1/2000 & 12/31/2099 inclusive.` DESCRIPTION: `This field represents Date of Medical Foster Home (MFH) Closure.`
6	VOLUNTARY CLOSURE	0;7	SET	'Y' FOR Yes; 'N' FOR No; LAST EDITED: `JUL 19, 2006` HELP-PROMPT: `Answer with 1 alphanumeric digit representing whether Medical Foster Home (MFH) Closure was Voluntary.` DESCRIPTION: `This field represents whether Medical Foster Home (MFH) Closure was Voluntary.`
7	ADDRESS	0;8	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `FEB 21, 2007` HELP-PROMPT: `Answer with Medical Foster Home (MFH) street Address. Answer must be 3-30 characters in length.` DESCRIPTION: `This field represents the Medical Foster Home (MFH) street Address.`
8	CITY	0;9	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>15!($L(X)<3) X` LAST EDITED: `AUG 28, 2008` HELP-PROMPT: `Answer with Medical Foster Home (MFH) City. Answer must be 3-15 characters in length.` DESCRIPTION: `This field represents the Medical Foster Home (MFH) City.`
9	STATE CODE	0;10	POINTER TO HBHC VALID STATE CODE FILE (#631.8)	**********************REQUIRED FIELD********************** HBHC VALID STATE CODE(#631.8) LAST EDITED: `MAY 14, 2007` HELP-PROMPT: `Answer with 2 digit numeric State Code. State Codes must exist in State file (#5). State Code must exist in HBHC VALID STATE CODE file (#631.8).` DESCRIPTION: `This field represents the 2 digit numeric State Code where Medical Foster Home (MFH) is located. All State Codes must exist in State file (#5). State Code must exist in HBHC VALID STATE CODE file (#631.8).`
10	ZIP CODE	0;11	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>15!($L(X)<5) X` LAST EDITED: `FEB 21, 2007` HELP-PROMPT: `Answer with either 5 digit or 9 digit ZIP Code of Medical Foster Home (MFH).` DESCRIPTION: `This field represents either the 5 digit or 9 digit ZIP Code of Medical Foster Home (MFH).`
11	LICENSE REQUIRED	0;12	SET	**********************REQUIRED FIELD********************** 'Y' FOR Yes; 'N' FOR No; LAST EDITED: `FEB 21, 2007` HELP-PROMPT: `Answer with 1 digit alphanumeric code representing whether Medical Foster Home (MFH) Requires a License.` DESCRIPTION: `This field represents the 1 digit alphanumeric code indicating whether Medical Foster Home (MFH) Requires a License.`
12	LICENSE EXPIRATION DATE	0;13	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:3991231X) X` LAST EDITED: `APR 29, 2008` HELP-PROMPT: `Answer with Date the Medical Foster Home (MFH) License Expires. Answer with date between 1/1/2000 & 12/31/2099 inclusive.` DESCRIPTION: `This field represents the Medical Foster Home (MFH) License Expiration Date.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
13	NURSE INSPECTION	1;0	DATE Multiple #633.213	633.213 LAST EDITED: `APR 29, 2008` DESCRIPTION: `This subfile represents the Medical Foster Home (MFH) Nurse Inspection multiple.`
14	SOCIAL WORK INSPECTION	2;0	DATE Multiple #633.214	633.214 DESCRIPTION: `This subfile represents Medical Foster Home (MFH) Social Work Inspection multiple.`
15	DIETITIAN INSPECTION	3;0	DATE Multiple #633.215	633.215 LAST EDITED: `AUG 08, 2007` DESCRIPTION: `This subfile represents the Medical Foster Home (MFH) Dietitian Inspection multiple.`
16	FIRE/SAFETY INSPECTION	4;0	DATE Multiple #633.216	633.216 DESCRIPTION: `This subfile represents the Medical Foster Home (MFH) Fire/Safety Inspection multiple.`
17	PHONE NUMBER	0;14	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<4)!'(X?4.20NP) X` LAST EDITED: `MAY 14, 2007` HELP-PROMPT: `Answer must be 4-20 characters in length. Only numeric/punctuation characters accepted. Field represents Phone Number of Medical Foster Home (MFH).` DESCRIPTION: `This field represents the Phone Number of the Medical Foster Home (MFH).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
18	HOME OPERATION TRAINING DATE	5;0	DATE Multiple #633.218	633.218 LAST EDITED: `APR 02, 2007` DESCRIPTION: `This subfile represents the Medical Foster Home (MFH) Home Operation Training Date multiple.`
19	FIRE/SAFETY TRAINING DATE	6;0	DATE Multiple #633.219	633.219 LAST EDITED: `APR 17, 2007` DESCRIPTION: `This subfile represents the Medical Foster Home (MFH) Fire/Safety Training Date multiple.`
20	MEDICATION MANAGEMENT TRN DATE	7;0	DATE Multiple #633.21	633.21 LAST EDITED: `APR 17, 2007` DESCRIPTION: `This subfile represents the Medical Foster Home (MFH) Medication Management Training Date multiple.`
21	PERSONAL CARE TRAINING DATE	8;0	DATE Multiple #633.221	633.221 DESCRIPTION: `This subfile represents the Medical Foster Home (MFH) Personal Care Training Date multiple.`
22	INFECTION CONTROL TRAIN DATE	9;0	DATE Multiple #633.222	633.222 DESCRIPTION: `This subfile represents the Medical Foster Home (MFH) Infection Control Training Date multiple.`
23	END OF LIFE ISSUES TRAIN DATE	10;0	DATE Multiple #633.223	633.223 DESCRIPTION: `This subfile represents the Medical Foster Home (MFH) End of Life Issues Training Date multiple.`
24	OTHER TRAINING DATE	11;0	DATE Multiple #633.224	633.224 LAST EDITED: `APR 17, 2007` DESCRIPTION: `This subfile represents the Medical Foster Home (MFH) Other Training Date multiple.`
25	COUNTY CODE	0;15	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S Z0=$S($P($G(^HBHC(633.2,D0,0)),U,10):+^HBHC(631.8,$P(^HBHC(633.2,D0,0),U,10),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: `S Y(0)=Y Q:Y']"" S Z0=$S($P($G(^HBHC(633.2,D0,0)),U,10):+^HBHC(631.8,$P(^HBHC(633.2,D0,0),U,10),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: `DEC 07, 2015` HELP-PROMPT: `Answer with 3 digit numeric county code, or county name, of county where Medical Foster Home (MFH) is located. County codes are checked for validity of State Code entered.` DESCRIPTION: `This field represents 3 digit numeric code of County, in State file (#5), of Medical Foster Home (MFH) location. County codes are checked for validity of State Code entered. Input transform also validates State for` `existence in HBHC VALID STATE CODE file (#631.8).` `Output transform displays both County Name & County Code in (nnn).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
26	CAREGIVER DATE OF BIRTH	0;16	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S DOB21=DT-210000 S X=Y K:X>DOB21&(X'=DOB21) X K:Y=-1 X` LAST EDITED: `OCT 19, 2017` HELP-PROMPT: `Answer with Caregiver Date of Birth. Caregiver must be 21 years of age or older.` DESCRIPTION: `This field represents the Caregiver Date of Birth. Caregiver must be over 21 years of age or older.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
27	FORM 7 TRANSMIT STATUS	12;1	SET	'F' FOR Record in Transmit File; 'N' FOR Record Needs Transmitting; 'T' FOR Record Transmitted; LAST EDITED: `JAN 25, 2008` HELP-PROMPT: `Field updated by package only, no user input. Field updated with record transmit status.` DESCRIPTION: `This field represents Form 7 (Medical Foster Home (MFH)) Transmit Status. Field will contain either 'F' (Record in Transmit File), 'N' (Record Needs Transmitting), or 'T' (Record Transmitted). Field updated by package` `only, no user input.` CROSS-REFERENCE: `633.2^AC` `1)= S ^HBHC(633.2,"AC",$E(X,1,30),DA)=""` `2)= K ^HBHC(633.2,"AC",$E(X,1,30),DA)` `This cross-reference represents regular 'AC' file index of HBHC Medical Foster Home file (#633.2), Form 7 (Medical Foster Home) Transmit Status field (#27). Form 7 Transmit Status field updated by package only, no user` `input.`
28	FORM 7 FILED IN HBHC(634)	12;2	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 15, 2008` HELP-PROMPT: `Field updated by package only, no user input. Field represents Date/Time Form 7 filed in Transmit file.` DESCRIPTION: `This field represents date & time Form 7 (Medical Foster Home (MFH)) record was filed in Transmit (634) file. Field transmitted to Austin for unique record identification purposes. Field updated by package only, no user` `input.`
29	FORM 7 BATCH INITIAL MM MSG #	12;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<3) X` LAST EDITED: `JAN 24, 2008` HELP-PROMPT: `Field updated by package only, 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.`
30	FORM 7 MAIL MESSAGE DATE	12;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 24, 2008` HELP-PROMPT: `Field updated by package only, no user input. Field represents Date of Form 7 Medical Foster Home (MFH) record transmission via MailMan to Austin.` DESCRIPTION: `This field represents date of Form 7 (Medical Foster Home (MFH)) record transmission via MailMan to Austin. Field updated by package only, no user input.`
31	FORM 7 TRANSMIT FLAG EDIT DATE	12;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 24, 2008` HELP-PROMPT: `Field updated be package only, no user input. Field is updated with current date when user requests Form 7 Transmit Status Flag by reset (allowing editing of transmitted record).` DESCRIPTION: `This field represents date Form 7 (Medical Foster Home (MFH)) Transmit Status Flag was requested by user to be reset (allowing editing of previously transmitted record). Field updated by package only, no user input.`
32	FORM 7 TRANSMIT FLAG EDIT DUZ	12;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 24, 2008` HELP-PROMPT: `Field updated by package only, no user input. Field is updated with user's DUZ when user requests Form 7 Transmit Status Flag be reset (allowing editing of transmitted record).` DESCRIPTION: `This field represents the user requesting Form 7 (Medical Foster Home (MFH)) Transmit Status Flag be reset (allowing editing of previously transmitted record). Field updated by package only, no user input.`
33	FORM 7 RE-TRANS BATCH MM MSG #	12;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<3) X` LAST EDITED: `JAN 24, 2008` HELP-PROMPT: `Field updated by package only, 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.`
34	FORM 7 RE-TRANSMIT DATE	12;8	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 24, 2008` HELP-PROMPT: `Field updated by package only, no user input. Field represents Date of Form 7 Medical Foster Home (MFH) record re-transmission via MailMan to Austin..` DESCRIPTION: `This field represents date of Form 7 (Medical Foster Home (MFH)) record re-transmission via MailMan to Austin. Field updated by package only, no user input.`
35	PARENT SITE	13;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 02, 2021` HELP-PROMPT: `Select the HBPC Program Facility associated to this Medical Foster Home.` 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 Medical Foster Home.` `The selected site's code will be used for AITC record transmissions for this Medical Foster Home and for patients in this Medical Foster Home.` `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: `I $D(^HBHC(631.9,1,1,"B",+Y))` EXPLANATION: `Entry must be pre-defined as a parent site in the HBHC SYSTEM PARAMETERS (#631.9) file.` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	25+1, 25OT+1
^HBHC(631.8 - [#631.8]	25+1, 25OT+1
^HBHC(631.9 - [#631.9]	35SCR+1
^HBHC(633.2 - [#633.2]	.01(XREF 1S), .01(XREF 1K), 25+1, 25OT+1, 27(XREF 1S), 27(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	1+1, 5+1, 12+1, 26+1, 28+1, 30+1, 31+1, 34+1
>> D0	25+1, 25OT+1
>> DA	.01(XREF 1S), .01(XREF 1K), 27(XREF 1S), 27(XREF 1K)
DIC	25+1!, 35+1!
DIC("S"	35+1*
DIC(0	25+1*
>> DIE	35+1
>> DOB21	26+1*
DT	26+1
U	25+1, 25OT+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 2+1!, 3+1!, 4+1!, 5+1!, 7+1!, 8+1! , 10+1!, 12+1!, 17+1!, 25+1!, 26+1!, 27(XREF 1S), 27(XREF 1K), 28+1!, 29+1!, 30+1! , 31+1!, 33+1!, 34+1!, 35+1!
>> Y	1+1, 5+1, 12+1, 25+1, 25OT+1*, 26+1, 28+1, 30+1, 31+1, 34+1 , 35+1, 35SCR+1
>> Y(0	25OT+1*
Z0	25+1!, 25OT+1

Customize PDF page

Package: Hospital Based Home Care

Global: ^HBHC(633.2

Information

Description

Directly Accessed By Routines, Total: 30

Accessed By FileMan Db Calls, Total: 6

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 3

Fields, Total: 36

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	1+1, 5+1, 12+1, 26+1, 28+1, 30+1, 31+1, 34+1
^DIC	25+1, 35+1