Global: ^FB7078

FileMan FileNo	FileMan Filename	Package
162.4	VA FORM 10-7078	Fee Basis

Package	Total	Routines
Fee Basis	34	FBAACLU FBAARD3 FBAASCB0 FBAAUTL1 FBAAV0 FBAAV2 FBAAV5 FBAAV6 FBCH78 FBCH780 FBCHACT FBCHACT0 FBCHCD FBCHCR FBCHDI FBCHDI2 FBCHEP FBCHP78 FBCHREQ FBCHRJP FBCHSTA FBCNHCEN FBMRASV1 FBNHAMI1 FBNHEAUT FBNHEDAT FBNHPAMS FBNHRCS2 FBUTL9 ^FB7078 USER AUDIT ^FBAA(163.98 FBNHPC FBXIP154
Integrated Billing	1	IBFBNP1

Package	Total	Routines
Fee Basis	11	FBAACLU FBCH78 FBCH780 FBCHC78 FBCHCD FBCHP78 FBMRASV1 FBNHEAUT FBNHED FBNHEDAT FBPHON2
Clinical Case Registries	1	RORHL21

Package	Total	FileMan Files
Fee Basis	6	FEE BASIS CNH AUTHORIZATION RATE(#161.23)[.03] FEE BASIS PHARMACY INVOICE(#162.1)[#162.11(26)] FEE NOTIFICATION/REQUEST(#162.2)[16] FEE BASIS PATIENT(#161)[#161.01(.055)] FEE BASIS PAYMENT(#162)[#162.03(27)] FEE BASIS INVOICE(#162.5)[4]

Package	Total	FileMan Files
Fee Basis	2	FEE BASIS PROGRAM(#161.8)[.5] FEE BASIS VENDOR(#161.2)[1]
Registration	2	VA ADMITTING REGULATION(#43.4)[5] PATIENT(#2)[2]
Kernel	1	NEW PERSON(#200)[.013, 8, 15, #162.492(1)]

Fields, Total: 20

Field #	Name	Loc	Type	Details
.01	REFERENCE NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>12!($L(X)<7) X` LAST EDITED: `JUL 26, 1996` HELP-PROMPT: `Answer must be 7-11 characters in length and populated by calls to IFCAP.` DESCRIPTION: `This number is internally generated and tracked by the IFCAP software.` TECHNICAL DESCR: `The format of this field is determined in the IFCAP software. The field is populated by using the obligation number and the reference number. Sample format - C12345.0002` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `162.4^B` `1)= S ^FB7078("B",$E(X,1,30),DA)=""` `2)= K ^FB7078("B",$E(X,1,30),DA)`
.013	USER WHO CANCELLED	0;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 22, 1992` DESCRIPTION: `This field contains the name of the supervisor who cancelled the 7078.`
.014	DATE CANCELLED	0;14	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 22, 1992` DESCRIPTION: `This field contains the date that a supervisor cancelled the 7078.`
.5	FEE PROGRAM	0;11	POINTER TO FEE BASIS PROGRAM FILE (#161.8)	**********************REQUIRED FIELD********************** FEE BASIS PROGRAM(#161.8) LAST EDITED: `FEB 10, 1989` DESCRIPTION: `This field contains the valid Fee Program associated with this 7078, as defined in the Fee Basis Program file (i.e. Outpatient Medical, Contract Hospital, Community Nursing Home).`
1	VENDOR	0;2	VARIABLE POINTER	**********************REQUIRED FIELD********************** FEE BASIS VENDOR(#161.2) OUTPUT TRANSFORM: `S Y(0)=Y Q:Y']"" S Z0=$P(^FB7078(D0,0),U,2) I $P(Z0,";",2)="FBAAV(" S Y=$S($D(^FBAAV(+Z0,0)):$E($P(^(0),U),1,20)_" "_$P(^(0),U,2),1:"") K Z0` LAST EDITED: `SEP 04, 1990` DESCRIPTION: `This is the vendor that is entered in the request/ notification process.` CROSS-REFERENCE: `162.4^C` `1)= S ^FB7078("C",$E(X,1,30),DA)=""` `2)= K ^FB7078("C",$E(X,1,30),DA)`
2	VETERAN	0;3	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `AUG 20, 1993` DESCRIPTION: `This is the veteran that was entered in the request/ notification process.` CROSS-REFERENCE: `162.4^D` `1)= S ^FB7078("D",$E(X,1,30),DA)=""` `2)= K ^FB7078("D",$E(X,1,30),DA)` CROSS-REFERENCE: `162.4^AB^MUMPS` `1)= S ^FB7078("AB",$E(X,1,30),$P($P(^FB7078(DA,0),"^",1),".",1),DA)=""` `2)= K ^FB7078("AB",$E(X,1,30),$P($P(^FB7078(DA,0),"^",1),".",1),DA)` CROSS-REFERENCE: `162.4^AC1^MUMPS` `1)= S:$P(^FB7078(DA,0),U,9)]"" ^FB7078("AC",$E($P(^FB7078(DA,0),U,9),1,30),X,DA)=""` `2)= K:$P(^FB7078(DA,0),U,9)]"" ^FB7078("AC",$E($P(^FB7078(DA,0),U,9),1,30),X,DA)` `Cross reference by status and veteran.`
3	AUTHORIZATION FROM DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 01, 1990` DESCRIPTION: `This is the date that is entered in the 'Authorization From Date' field during the request/notification process.` CROSS-REFERENCE: `162.4^AA^MUMPS` `1)= S ^FB7078("AA",$P(^FB7078(DA,0),U,11),$E(X,1,30),DA)=""` `2)= K ^FB7078("AA",$P(^FB7078(DA,0),U,11),$E(X,1,30),DA)`
3.5	DATE OF ADMISSION	0;15	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 15, 1993` DESCRIPTION: `This is the date that is entered in the 'Date of Admission' field during the request/notification process.`
4	AUTHORIZATION TO DATE	0;5	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X),$P(^FB7078(DA,0),U,4)>X K X W !!,"To Date cannot be earlier than the From Date!",!` LAST EDITED: `MAY 10, 1993` DESCRIPTION: `This is the date you determine the VA will no longer cover the veteran.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `162.4^AD^MUMPS` `1)= S ^FB7078("AD",$P(^FB7078(DA,0),"^",11),$E(X,1,30),DA)=""` `2)= K ^FB7078("AD",$P(^FB7078(DA,0),"^",11),$E(X,1,30),DA)`
4.5	DATE OF DISCHARGE	0;16	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X),$P(^FB7078(DA,0),U,5)>X K X W !!,"Date of Discharge cannot be earlier than the Authorization To Date!",!` LAST EDITED: `MAR 15, 1993` DESCRIPTION: `This is the actual date of discharge.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
5	AUTHORITY	0;6	POINTER TO VA ADMITTING REGULATION FILE (#43.4)	**********************REQUIRED FIELD********************** VA ADMITTING REGULATION(#43.4) LAST EDITED: `JAN 30, 1989` DESCRIPTION: `This field is the Admitting Authority used for the authorization.`
6	ESTIMATED AMOUNT	0;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<.01)!(X?.E1"."3.N) X` LAST EDITED: `NOV 17, 2008` HELP-PROMPT: `Type a Dollar amount between .01 and 9999999.99, 2 Decimal Digits` DESCRIPTION: `This dollar amount is the best estimate of costs that will be incurred by the veteran. This dollar amount is passed to IFCAP.`
7	AUTHORIZED SERVICES	1;0	WORD-PROCESSING #162.47	DESCRIPTION: `This is a word processing field that should contain a statement similar to the following:` `"Hospitalization and Professional care necessary until the` `patients condition is stabilized or improved enough to permit` `transfer without hazard to a VA or other Federal facility for` `continued treatment." or "Hospitalization and Professional Care".` LAST EDITED: `JAN 17, 1991`
8	USER ENTERING	0;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 05, 1990` DESCRIPTION: `This is the name of the user that enters the authorization.`
9	STATUS	0;9	SET	'C' FOR COMPLETE; 'I' FOR INCOMPLETE; 'DC' FOR CANCELLED; LAST EDITED: `AUG 20, 1993` DESCRIPTION: `The status of the 7078/authorization remains 'Incomplete' until a discharge date is entered. At that time the status is updated to complete and a corresponding authorization is built in file 161.` CROSS-REFERENCE: `162.4^AC^MUMPS` `1)= S:+$P(^FB7078(DA,0),U,3) ^FB7078("AC",$E(X,1,30),$P(^FB7078(DA,0),U,3),DA)=""` `2)= K:+$P(^FB7078(DA,0),U,3) ^FB7078("AC",$E(X,1,30),$P(^FB7078(DA,0),U,3),DA)` `Cross-reference by status and patient.`
10	DATE OF ISSUE	0;10	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` DESCRIPTION: `This is the date the user sets up the 7078.`
12	REASON FOR PENDING DISPOSITION	0;12	SET	'1' FOR FOLLOW-UP/NOT STABLE; '2' FOR AWAITING DISCHARGE/TRANSFER; LAST EDITED: `JAN 24, 1989` DESCRIPTION: `If the status of a 7078 is Incomplete, that is the discharge date has not been entered, the user is prompted with this field. Once the status of the 7078 is Complete this field is set to null.`
15	REFERRING PROVIDER	0;17	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 18, 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.`
16	REFERRING PROVIDER NPI		COMPUTED	MUMPS CODE: `S Y(162.4,16,1)=$S($D(^FB7078(D0,0)):^(0),1:"") S X=$P(Y(162.4,16,1),U,17),X=X S X=X,X=$$REFNPI^FBCH78(X)` ALGORITHM: `FB REF PROV NPI(INTERNAL(REFERRING PROVIDER))` LAST EDITED: `APR 16, 2008`
292	USER AUDIT	LOG1;0	DATE Multiple #162.492	162.492 DESCRIPTION: `The user audit tracks users that enter or edit the authorization. This includes edits to the authorization rate or patient movements for nursing home authorizations.` TECHNICAL DESCR: `The USER AUDIT multiple was added by patch FB3.5154 and does not reflect actions taken prior to patch installation with one exception. During the install the patch attempts to create an entry in the multiple for each` `pre-existing authorization using data from the DATE OF ISSUE (#10) and USER ENTERING (#8) fields.` INDEXED BY: `EDITED BY (AU)`

Name	Field # of Occurrence
^%DT	.014+1, 3+1, 3.5+1, 4+1, 4.5+1, 10+1
^DIC	15+1
NAME^DICM2	ID1+1
Y^DIQ	ID2+1
$$REFNPI^FBCH78	16+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	ID2+1
^DPT - [#2]	ID2+1
^FB7078 - [#162.4]	1OT+1, 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 3(XREF 1S), 3(XREF 1K), 4+1, 4(XREF 1S), 4(XREF 1K) , 4.5+1, 9(XREF 1S), 9(XREF 1K), 16+1
^FB7078("AA"	3(XREF 1S), 3(XREF 1K)
^FB7078("AB"	2(XREF 2S), 2(XREF 2K)
^FB7078("AC"	2(XREF 3S), 2(XREF 3K), 9(XREF 1S), 9(XREF 1K)
^FB7078("AD"	4(XREF 1S), 4(XREF 1K)
^FB7078("B"	.01(XREF 1S), .01(XREF 1K)
^FB7078("C"	1(XREF 1S), 1(XREF 1K)
^FB7078("D"	2(XREF 1S), 2(XREF 1K)
^FBAAV - [#161.2]	1OT+1

Name	Field # of Occurrence
^("0"	ID1+1
^(0	ID2+1, 1OT+1, 16+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.014+1, 3+1, 3.5+1, 4+1, 4.5+1, 10+1
%I	ID2+1*!
>> C	ID2+1*
>> D0	1OT+1, 16+1
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K) , 3(XREF 1S), 3(XREF 1K), 4+1, 4(XREF 1S), 4(XREF 1K), 4.5+1, 9(XREF 1S), 9(XREF 1K)
DIC	ID1+1, ID2+1, ID9+1, 15+1!*
DIC("S"	15+1, 15SCR+1
>> DIE	15+1
>> DINAME	ID1+1
>> DIY	ID1+1*
U	ID1+1, ID2+1, 1OT+1, 2(XREF 3S), 2(XREF 3K), 3(XREF 1S), 3(XREF 1K), 4+1, 4.5+1, 9(XREF 1S) , 9(XREF 1K), 16+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .014+1!, 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K) , 2(XREF 3S), 2(XREF 3K), 3+1!, 3(XREF 1S), 3(XREF 1K), 3.5+1!, 4+1!, 4(XREF 1S), 4(XREF 1K), 4.5+1! , 6+1!, 9(XREF 1S), 9(XREF 1K), 10+1!, 15+1!, 16+1*
>> Y	ID1+1, ID2+1, .014+1, 1OT+1, 3+1, 3.5+1, 4+1, 4.5+1, 10+1, 15+1
>> Y(	16+1*
>> Y(0	1OT+1*
Z0	1OT+1*!

Customize PDF page

Package: Fee Basis

Global: ^FB7078

Information

Description

Directly Accessed By Routines, Total: 35

Accessed By FileMan Db Calls, Total: 12

Pointed To By FileMan Files, Total: 6

Pointer To FileMan Files, Total: 5

Fields, Total: 20

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: