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 | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^FBAACNH

Package: Fee Basis

Global: ^FBAACNH

Information

FileMan FileNo	FileMan Filename	Package
162.3	FEE CNH ACTIVITY	Fee Basis

Description

This file contains all bed movement activity associated with the community nursing home program. Per VHA Directive 10-93-142, this file definition should not be modified.

Directly Accessed By Routines, Total: 25

Package	Total	Routines
Fee Basis	25	FBAAV5 FBCNHCEN FBMRASV1 FBNHACT FBNHAMI1 FBNHAMI2 FBNHAMIE FBNHAMIS FBNHDEC FBNHDLDI FBNHDLTR FBNHED FBNHEDAD FBNHEDDI FBNHEDTR FBNHEP FBNHET FBNHRCS2 ^FBAACNH FBXIP19 ^FBAA(163.98 FBNHPAMS FBNHRAT FBNHROS FBPMRG

Accessed By FileMan Db Calls, Total: 14

Package	Total	Routines
Fee Basis	14	FBCHC78 FBMRASV1 FBNHDIEP FBNHDLAD FBNHDLDI FBNHDLTR FBNHEA FBNHED FBNHEDAD FBNHEDDI FBNHEDTR FBNHET FBPMRG FBXIP19

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Fee Basis	1	FEE CNH ACTIVITY(#162.3)[4]

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
Fee Basis	3	FEE BASIS PATIENT(#161)[1] FEE CNH ACTIVITY(#162.3)[4] FEE BASIS VENDOR(#161.2)[8]

Fields, Total: 11

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 11, 1989` HELP-PROMPT: `Type a Number between 1 and 999999999, 0 Decimal Digits` DESCRIPTION: `The internal entry number for each CNH Activity.`
.01	DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X I $D(X) D DATCK2^FBAAUTL1` LAST EDITED: `AUG 30, 1988` DESCRIPTION: `The date and time of this activity (admission, discharge or transfer).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `162.3^B` `1)= S ^FBAACNH("B",$E(X,1,30),DA)=""` `2)= K ^FBAACNH("B",$E(X,1,30),DA)`
1	VETERAN	0;2	POINTER TO FEE BASIS PATIENT FILE (#161)	**********************REQUIRED FIELD********************** FEE BASIS PATIENT(#161) LAST EDITED: `JAN 31, 2000` DESCRIPTION: `The name of the Fee Basis patient associated with this activity.` CROSS-REFERENCE: `162.3^AE` `1)= S ^FBAACNH("AE",$E(X,1,30),DA)=""` `2)= K ^FBAACNH("AE",$E(X,1,30),DA)` CROSS-REFERENCE: `162.3^AF^MUMPS` `1)= S ^FBAACNH("AF",$E(X,1,30),9999999.999999-$P(^FBAACNH(DA,0),"^",1),DA)=""` `2)= K ^FBAACNH("AF",$E(X,1,30),9999999.999999-$P(^FBAACNH(DA,0),"^",1),DA)` CROSS-REFERENCE: `162.3^AG^MUMPS` `1)= I $P(^FBAACNH(DA,0),U,9)]"" S ^FBAACNH("AG",$E(X,1,30),$P(^FBAACNH(DA,0),U,9),$P(^FBAACNH(DA,0),U,1),DA)=""` `2)= I $P(^FBAACNH(DA,0),U,9)]"" K ^FBAACNH("AG",$E(X,1,30),$P(^FBAACNH(DA,0),U,9),$P(^FBAACNH(DA,0),U,1),DA)` RECORD INDEXES: `AD (#72)`
2	ACTIVITY TYPE	0;3	SET	'A' FOR ADMISSION; 'T' FOR TRANSFER; 'D' FOR DISCHARGE; DESCRIPTION: `Entry into this field indicates whether activity was an admission, discharge or transfer.`
3	ACTIVE ADMISSION	0;4	SET	'Y' FOR YES; LAST EDITED: `JAN 31, 2000` DESCRIPTION: `An entry into this field will indicate that the activity at hand is part of an "active" admission.` RECORD INDEXES: `AD (#72)`
4	ASSOCIATED ADMISSION	0;5	POINTER TO FEE CNH ACTIVITY FILE (#162.3)	**********************REQUIRED FIELD********************** FEE CNH ACTIVITY(#162.3) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)=""A""&($P(^(0),U,4)=""Y"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` DESCRIPTION: `This field points all activities back to the admission that they are associated with. It allows for the ability to tie an admission with all associated transfers and a final discharge if one exists.` SCREEN: `S DIC("S")="I $P(^(0),U,3)=""A""&($P(^(0),U,4)=""Y"")"` EXPLANATION: `Allows only activity which is Admission type and active.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `162.3^AC` `1)= S ^FBAACNH("AC",$E(X,1,30),DA)=""` `2)= K ^FBAACNH("AC",$E(X,1,30),DA)`
5	ADMISSION TYPE	0;6	SET	**********************REQUIRED FIELD********************** '1' FOR AFTER RE-HOSPITALIZATION > 15 DAYS; '2' FOR TRANSFER FROM OTHER CNH; '3' FOR FROM ASIH < 15 DAYS; '4' FOR ALL OTHER; LAST EDITED: `SEP 10, 1990` DESCRIPTION: `Field populated for activity types of 'admission' only. Indicates the type of admission for veteran.`
6	TRANSFER TYPE	0;7	SET	**********************REQUIRED FIELD********************** '1' FOR TO AUTHORIZED ABSENCE; '2' FOR TO UN-AUTHORIZED ABSENCE; '3' FOR TO ASIH; '4' FOR FROM AUTHORIZED ABSENCE; '5' FOR FROM UN-AUTHORIZED ABSENCE; '6' FOR FROM ASIH < 15 DAYS; INPUT TRANSFORM: `D DATCK3^FBAAUTL1` LAST EDITED: `AUG 31, 1988` DESCRIPTION: `Field is populated for activity type of 'transfer' only. Indicates the type of transfer for each veteran.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
7	DISCHARGE TYPE	0;8	SET	'1' FOR REGULAR; '2' FOR DEATH; '3' FOR TRANSFER TO OTHER CNH; '4' FOR ASIH; '5' FOR DEATH WHILE ASIH; '6' FOR REGULAR - PRIVATE PAY; LAST EDITED: `AUG 24, 1988` DESCRIPTION: `Field is populated for activity type of 'discharge' only. Indicates the type of discharge for each veteran.`
8	NURSING HOME	0;9	POINTER TO FEE BASIS VENDOR FILE (#161.2)	FEE BASIS VENDOR(#161.2) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,9)=5" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 30, 1993` DESCRIPTION: `Reference to the Vendor file, this field indicates the name of the Nursing Home to which this activity is associated with (i.e. where the veteran is residing).` SCREEN: `S DIC("S")="I $P(^(0),U,9)=5"` EXPLANATION: `Only vendors with Participation Code of Community Nursing Home` CROSS-REFERENCE: `162.3^AH` `1)= S ^FBAACNH("AH",$E(X,1,30),DA)=""` `2)= K ^FBAACNH("AH",$E(X,1,30),DA)`
9	ASSOCIATED AUTHORIZATION	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 16, 1990` HELP-PROMPT: `Type a Number between 1 and 999999999, 0 Decimal Digits` DESCRIPTION: `The internal entry number of the Authorization associated with the admission entry. Transfer and Discharge entries will not have this data.`

External References

Name	Field # of Occurrence
^%DT	.01+1
^DIC	4+1, 8+1
Y^DIQ	ID1+1
DATCK2^FBAAUTL1	.01+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(161	ID1+1
^FBAAA - [#161]	ID1+1
^FBAACNH - [#162.3]	1(XREF 2S), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K)
^FBAACNH("AC"	4(XREF 1S), 4(XREF 1K)
^FBAACNH("AD"	IXADSL+1*, IXADKL+1!, IXADKEIC+1!
^FBAACNH("AE"	1(XREF 1S), 1(XREF 1K)
^FBAACNH("AF"	1(XREF 2S), 1(XREF 2K)
^FBAACNH("AG"	1(XREF 3S), 1(XREF 3K)
^FBAACNH("AH"	8(XREF 1S), 8(XREF 1K)
^FBAACNH("B"	.01(XREF 1S), .01(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^(0	ID1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1*
%I	ID1+1*!
>> C	ID1+1*
>> DA	IXADSL+1, IXADKL+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K) , 4(XREF 1S), 4(XREF 1K), 8(XREF 1S), 8(XREF 1K)
DIC	ID1+1, ID2+1, 4+1!, 8+1!
DIC("S"	4+1, 4SCR+1, 8+1, 8SCR+1
>> DIE	4+1, 8+1
U	ID1+1, 1(XREF 3S), 1(XREF 3K)
X	IXADSCC+1, .001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S) , 1(XREF 3K), 4+1!, 4(XREF 1S), 4(XREF 1K), 8+1!, 8(XREF 1S), 8(XREF 1K), 9+1!
X(1	IXADSL+1, IXADKL+1
X(2	IXADSCC+1
>> Y	ID1+1*, .01+1, 4+1, 8+1

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All