Global: ^FBAA(162.2

FileMan FileNo	FileMan Filename	Package
162.2	FEE NOTIFICATION/REQUEST	Fee Basis

Package	Total	Routines
Fee Basis	20	FBAACLU FBAAPI FBAASLP FBCH EDIT ROC FBCH REOPEN REQUEST FBCH78 FBCHC78 FBCHCD FBCHREQ FBCHREQ1 FBCHREQ2 FBCHSLP FBCHSTAT FBMRASV1 FBUTL9 FBXIP154 FBXIP19 USER AUDIT ^FBAA(162.2 ^FBAA(163.98

Package	Total	Routines
Fee Basis	10	FBAACLU FBCH78 FBCHC78 FBCHCD FBCHDEL FBCHREQ FBCHREQ1 FBCHREQ2 FBMRASV1 FBXIP19

Package	Total	FileMan Files
Fee Basis	1	FEE CH REPORT OF CONTACT(#161.5)[.01]

Package	Total	FileMan Files
Fee Basis	3	VA FORM 10-7078(#162.4)[16] FEE BASIS SUSPENSION(#161.27)[14] FEE BASIS VENDOR(#161.2)[1]
Kernel	1	NEW PERSON(#200)[7, 10, 13, 17, #162.292(1)]
Registration	1	PATIENT(#2)[3]

Fields, Total: 22

Field #	Name	Loc	Type	Details
.01	DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X` LAST EDITED: `OCT 23, 1990` DESCRIPTION: `Date and Time that the vendor notifies the COJ of this episode of hospitalization.` DELETE TEST: `.01,0)= I $P(^FBAA(162.2,DA,0),"^",17)]"" W !!,*7,"Cannot delete a Request because a 7078 entry has already been established!",!` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `162.2^B` `1)= S ^FBAA(162.2,"B",$E(X,1,30),DA)=""` `2)= K ^FBAA(162.2,"B",$E(X,1,30),DA)`
1	VENDOR	0;2	POINTER TO FEE BASIS VENDOR FILE (#161.2)	**********************REQUIRED FIELD********************** FEE BASIS VENDOR(#161.2) LAST EDITED: `JAN 31, 2000` DESCRIPTION: `Name of the vendor who is notifying you of a veteran request for care.` CROSS-REFERENCE: `162.2^C` `1)= S ^FBAA(162.2,"C",$E(X,1,30),DA)=""` `2)= K ^FBAA(162.2,"C",$E(X,1,30),DA)` RECORD INDEXES: `AI (#71)`
2	PERSON WHO CALLED	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This is a free text field that contains the name of the person who is notifying you.`
3	VETERAN	0;4	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `JAN 31, 2000` DESCRIPTION: `This is name of the veteran who is requesting services from the VA.` CROSS-REFERENCE: `162.2^D` `1)= S ^FBAA(162.2,"D",$E(X,1,30),DA)=""` `2)= K ^FBAA(162.2,"D",$E(X,1,30),DA)` RECORD INDEXES: `AI (#71)`
3.5	DATE/TIME OF ADMISSION	0;19	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X` LAST EDITED: `MAR 12, 1993` DESCRIPTION: `This field contains the date and time of admission to the civil hospital.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4	AUTHORIZED FROM DATE/TIME	0;5	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT K %DT(0) S X=Y D DATCK^FBCHREQ1 K:Y<1!$G(FBOUT) X,FBOUT` LAST EDITED: `MAR 12, 1993` DESCRIPTION: `This field contains the date and time that you begin accepting responsibility for bills incurred if the veteran is found to be legally and medically entitled.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
5	ADMITTING DIAGNOSIS	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<3) X` HELP-PROMPT: `Answer must be 3-45 characters in length.` DESCRIPTION: `This is the admitting diagnosis of the veteran which is usually obtained from the person who called.`
6	ATTENDING PHYSICIAN	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field is a free text field. Please enter the name of the attending physician for this patient.`
6.5	ATTEN.PHYSICIAN PHONE NUMBER	0;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `AUG 31, 1990` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: `This field contains the phone number of the attending physician while the patient was residing in the non-VA facility.`
7	USER ENTERING NOTIFICATION	0;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 05, 1990` DESCRIPTION: `This field contains the name of the user who entered the notification.`
8	LEGAL ENTITLEMENT	0;9	FREE TEXT	INPUT TRANSFORM: `I $D(X) D YN^FBAAUTL3` OUTPUT TRANSFORM: `D OUTYN^FBAAUTL3` LAST EDITED: `MAR 18, 1994` HELP-PROMPT: `Answer 'Yes' or '1' for YES or 'No' or '0' for NO.` DESCRIPTION: `If a veteran is determined not to be legally entitled then s/he is assumed not medically entitled and the status of the request becomes complete.` AUDIT: `EDITED OR DELETED` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
9	DATE OF LEGAL DETERMINATION	0;10	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` DESCRIPTION: `This is the date that the legal entitlement was entered into the computer.`
10	USER ENTERING LEGAL DETERM.	0;11	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 05, 1990` DESCRIPTION: `The user who entered the legal entitlement.`
11	MEDICAL ENTITLEMENT	0;12	FREE TEXT	INPUT TRANSFORM: `I $D(X) D YN^FBAAUTL3` OUTPUT TRANSFORM: `D OUTYN^FBAAUTL3` LAST EDITED: `MAR 18, 1994` HELP-PROMPT: `Answer 'Yes' or '1' for YES and 'No' or '0' for NO.` DESCRIPTION: `Once the legal entitlement has been determined the medical entitlement must be determined following VA regulations.` AUDIT: `EDITED OR DELETED` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
12	DATE OF MEDICAL DETERMINATION	0;13	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 31, 2000` DESCRIPTION: `Date the user entered the Medical determination.` RECORD INDEXES: `AI (#71)`
13	USER ENTERING MEDICAL DETERM.	0;14	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 05, 1990` DESCRIPTION: `Name of the user who entered the medical determination.`
14	SUSPENSE CODE	0;16	POINTER TO FEE BASIS SUSPENSION FILE (#161.27)	FEE BASIS SUSPENSION(#161.27) LAST EDITED: `JAN 31, 2000` DESCRIPTION: `A pointer to the Fee Basis Suspension file, allows the user to enter in a suspense reason for Legal or Medical denial.` RECORD INDEXES: `AI (#71)`
15	DESCRIPTION OF SUSPENSION	1;0	WORD-PROCESSING #162.215	DESCRIPTION: `If the user enters a '4' for 'other' in the suspense field s/he can enter a word processing text for reason why.` LAST EDITED: `JAN 31, 1989`
16	ASSOCIATED 7078	0;17	POINTER TO VA FORM 10-7078 FILE (#162.4)	VA FORM 10-7078(#162.4) LAST EDITED: `SEP 22, 1992` DESCRIPTION: `This field is set by the system when the user sets-up a 7078 for an associated request. This prevents multiple 7078's for one request.` CROSS-REFERENCE: `162.2^AM^MUMPS` `1)= S ^FBAA(162.2,"AM",$E(X,1,30),DA)=""` `2)= K ^FBAA(162.2,"AM",$E(X,1,30),DA)` `This cross-reference is used to locate a notification that has a 7078 associated with it. It is used in the 'Cancel a 7078' option which allows the code to break the association with the request. This usually is only` `used when a 7078 is entered in error.`
17	REFERRING PROVIDER	2;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $$PROVIDER^FBAAAUT(+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 17, 2008` HELP-PROMPT: `Enter the VA Physician who made the referral to the Non-VA facility.` DESCRIPTION: `The VA physician who made the referral on behalf of the veteran to the non-VA hospital for inpatient health care services.` SCREEN: `S DIC("S")="I $$PROVIDER^FBAAAUT(+Y)"` EXPLANATION: `Types of users allowed should only be providers`
100	REQUEST STATUS	0;15	SET	**********************REQUIRED FIELD********************** '1' FOR PENDING ENTITLEMENT; '2' FOR PENDING PHYSICIAN CONTACT; '3' FOR COMPLETE; LAST EDITED: `JAN 20, 1989` DESCRIPTION: `This status is determined based on the medical and legal entitlement questions being answered. The status is 'Pending Entitlement' until the legal entitlement is determined. The status goes to 'Pending Physician Contact'` `until the Medical determination has been entered.`
292	USER AUDIT	LOG1;0	DATE Multiple #162.292	162.292 DESCRIPTION: `The user audit tracks users that enter or edit the notification.` TECHNICAL DESCR: `The USER AUDIT multiple was added by patch FB3.5154 and does not reflect actions taken prior to patch installation with the following exceptions. During the install the patch attempts to create up to three entries in` `the multiple for each pre-existing notification using data from the DATE OF LEGAL DETERMINATION (#9), USER ENTERING LEGAL DETERM. (#10), DATE OF MEDICAL DETERMINATION (#12), USER ENTERING MEDICAL DETERM. (#13) and USER` `ENTERING NOTIFICATION (#7) fields.` INDEXED BY: `EDITED BY (AU)`

Name	Field # of Occurrence
^%DT	.01+1, 3.5+1, 4+1, 9+1, 12+1
^DIC	17+1
Y^DIQ	ID1+1, ID3+1
OUTYN^FBAAUTL3	8OT+1, 11OT+1
YN^FBAAUTL3	8+1, 11+1
DATCK^FBCHREQ1	4+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(161.2	ID1+1
^DD(2	ID3+1
^DPT - [#2]	ID3+1
^FBAA(162.2 - [#162.2]	IXAISL+1*, IXAIKL+1!, IXAIKEIC+1!, .01DEL.01+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K) , 16(XREF 1S), 16(XREF 1K)
^FBAAV - [#161.2]	ID1+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 3.5+1, 4+1, 9+1, 12+1*
>> %DT(0	.01+1!, 3.5+1!, 4+1!
%I	ID1+1!, ID3+1!
>> C	ID1+1, ID3+1
>> DA	IXAISL+1, IXAIKL+1, .01DEL.01+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 16(XREF 1S) , 16(XREF 1K)
DIC	ID1+1, ID3+1, 17+1!*
DIC("S"	17+1, 17SCR+1
>> DIE	17+1
FBOUT	4+1!
U	ID1+1, ID3+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2+1!, 3(XREF 1S), 3(XREF 1K), 3.5+1!, 4+1! , 5+1!, 6+1!, 6.5+1!, 8+1, 9+1!, 11+1, 12+1!, 16(XREF 1S), 16(XREF 1K), 17+1!
X(1	IXAISL+1, IXAIKL+1
X(2	IXAISL+1, IXAIKL+1
X(3	IXAISL+1, IXAIKL+1
X(4	IXAISL+1, IXAIKL+1
>> Y	ID1+1, ID3+1, .01+1, 3.5+1, 4+1, 8OT+1, 9+1, 11OT+1, 12+1, 17+1
>> Y(0	8OT+1, 11OT+1

Customize PDF page

Package: Fee Basis

Global: ^FBAA(162.2

Information

Description

Directly Accessed By Routines, Total: 21

Accessed By FileMan Db Calls, Total: 10

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 5

Fields, Total: 22

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: