Global: ^FBAA(161.7

FileMan FileNo	FileMan Filename	Package
161.7	FEE BASIS BATCH	Fee Basis

Package	Total	Routines
Fee Basis	80	FB1358 FBAABDL FBAABPG FBAABT FBAACCB FBAACCB1 FBAACO FBAACO3 FBAADCB FBAADD1 FBAADOB FBAAEPI FBAAIAR FBAAIARA FBAAIARC FBAALB FBAAMP FBAAODP FBAAODP0 FBAAPAR FBAAPET FBAAPH FBAAPIN FBAAPIP FBAAPLU FBAAPPH FBAARB FBAARD FBAARJP FBAARR FBAARR1 FBAASCB FBAASCB0 FBAASDR FBAASTA FBAAUTL FBAAUTL4 FBAAV0 FBAAVLU FBAAVP FBAAVR FBAAVR0 FBAAVR4 FBAAVR5 FBAAVR6 FBAAVS FBBPG7Y FBCHDI FBCHDI2 FBCHDIN FBCHEAP FBCHEP FBCHEP1 FBCHPET FBCHPSA FBCHRJP FBCHRR FBCHSCB FBCHVP FBCKDIS ^FBAA(161.7 FBFHLD3 FBFHLD5 FBFHLD9 FBFHLU FBNHEDPA FBNHEP FBPAY2 FBPAY3 FBPCR2 FBPCR3 FBPHON FBPHON2 FBSVBR FBSVVA FBXI165A FBXIP116 ^FBAA(163.98 FBXIP132 TRAVEL PAYMENT DATE

Package	Total	Routines
Fee Basis	40	FBAABDL FBAABET FBAABPG FBAABS FBAACCB FBAACO FBAADD1 FBAALB FBAAOB FBAAODP FBAAODP0 FBAAPIP FBAARB FBAARD FBAARR FBAARR3 FBAASCB FBAASCB0 FBAAUTL2 FBAAV0 FBAAVR FBAAVR4 FBAAVR5 FBAAVR6 FBBPG7Y FBCHDIN FBCHEAP FBCHEP FBCHEP1 FBCHRR FBCHSCB FBNHEDPA FBNHEP2 FBPAID3A FBSVBR FBSVPR FBSVVA FBXI165C FBXIP117 FBXIP165

Package	Total	FileMan Files
Fee Basis	3	FEE BASIS PHARMACY INVOICE(#162.1)[10, #162.11(13), #162.11(19)] FEE BASIS PAYMENT(#162)[#162.03(7), #162.03(21), #162.04(1), #162.04(6)] FEE BASIS INVOICE(#162.5)[15, 20]

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[4, 6, 14, 23]

Fields, Total: 26

Field #	Name	Loc	Type	Details
.01	NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X I $D(X),'$$CHKBI^FBAAUTL4(X,1) K X` LAST EDITED: `JAN 19, 2015` HELP-PROMPT: `ANSWER MUST BE 1-7 CHARACTERS IN LENGTH` DESCRIPTION: `The number identifying this batch. The batch number is automatically assigned to the batch when a clerk opens a batch.` DELETE TEST: `.01,0)= S Z=$P(^FBAA(161.7,D0,0),U,3) I $S(Z="B3":$S($D(^FBAAC("AC",D0)):1,1:0),Z="B2":$S($D(^FBAAC("AD",D0)):1,1:0),Z="B5":$S($D(^FBAA(162.1,"AE",D0)):1,1:0),1:0) W !,*7,"Batch has activity, cannot be deleted!"` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `161.7^B` `1)= S ^FBAA(161.7,"B",$E(X,1,30),DA)=""` `2)= K ^FBAA(161.7,"B",$E(X,1,30),DA)`
1	OBLIGATION NUMBER	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6) X D:$D(X) CKOB^FBAAUTL1` LAST EDITED: `JUL 20, 1989` HELP-PROMPT: `ANSWER MUST BE 6 CHARACTERS IN LENGTH` DESCRIPTION: `The obligation number (which must exist in the obligation file) associated with this batch number. When this batch is processed by the Austin Central Fee system, and passed to the CALM payment system, the funds for these` `payments will be from the obligation number identified here.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	TYPE	0;3	SET	**********************REQUIRED FIELD********************** 'B3' FOR MEDICAL PAYMENTS; 'B5' FOR HOMETOWN PHARMACY PAYMENTS; 'C1' FOR VENDOR FILE ACTIVITIES; 'C2' FOR VETERAN MRA ACTIVITIES; 'C4' FOR PHARMACY FILE ACTIVITIES; 'B2' FOR TRAVEL PAYMENTS; 'B9' FOR CH/CNH; LAST EDITED: `SEP 21, 1994` DESCRIPTION: `The type field identifies what type of records will be contained in this batch. For example, this could be a 'Pharmacy Payment' type batch or could be a 'Medical Payment' type batch.`
3	DATE OPENED	0;4	DATE	INPUT TRANSFORM: `S %DT="EX",%DT(0)="-"_DT D ^%DT S X=Y K:Y<1 X K %DT(0)` LAST EDITED: `NOV 29, 2000` DESCRIPTION: `The date this batch was opened by the clerk or the date it was last reopened by the clerk or supervisor.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4	CLERK WHO OPENED	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 05, 1990` DESCRIPTION: `The clerk who opened the batch or the clerk or supervisor who last reopened this batch.` CROSS-REFERENCE: `161.7^C` `1)= S ^FBAA(161.7,"C",$E(X,1,30),DA)=""` `2)= K ^FBAA(161.7,"C",$E(X,1,30),DA)`
4.5	DATE CLERK CLOSED	0;13	DATE	INPUT TRANSFORM: `S %DT="EX",%DT(0)="-"_DT D ^%DT S X=Y K:Y<1 X K %DT(0)` LAST EDITED: `NOV 29, 2000` DESCRIPTION: `The date that the clerk closed the batch. Payments cannot be entered after the batch is closed.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
5	DATE SUPERVISOR CLOSED	0;6	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EXTS",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)` LAST EDITED: `NOV 03, 2010` HELP-PROMPT: `Enter a date and time.` DESCRIPTION: `The date and time that the supervisor reviewed and released for payment or the date released to the NVH Pricer.` TECHNICAL DESCR: `This field will contain a date instead of a date and time for batches that were released for payment prior to installation of patch FB3.5117.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `161.7^ADS` `1)= S ^FBAA(161.7,"ADS",$E(X,1,30),DA)=""` `2)= K ^FBAA(161.7,"ADS",$E(X,1,30),DA)` `Regular cross-reference on DATE SUPERVISOR CLOSED field.`
6	SUPERVISOR WHO CERTIFIED	0;7	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `APR 05, 1990` DESCRIPTION: `The supervisor who reviewed the batch to release/certify that the batch was approved for transmission to Austin for payment.`
8	TOTAL DOLLARS	0;9	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>99999.99)!(X<.01) X` HELP-PROMPT: `TYPE A NUMBER BETWEEN .01 AND 99999.99` DESCRIPTION: `The total dollars that will be paid for items in this batch. This field is calculated when the batch is closed. This field will NOT be accurate if the batch has NOT been closed.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the TRAVEL AMOUNT field of the TRAVEL PAYMENT DATE sub-field of the FEE BASIS PAYMENT File`
9	INVOICE COUNT	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99` DESCRIPTION: `The number of individual invoices associated/included in this batch.`
10	PAYMENT LINE COUNT	0;11	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 999` DESCRIPTION: `The total number of payment line items included in this batch.` NOTES: `TRIGGERED by the TRAVEL AMOUNT field of the TRAVEL PAYMENT DATE sub-field of the FEE BASIS PAYMENT File` `TRIGGERED by the TRAVEL AMOUNT field of the TRAVEL PAYMENT DATE sub-field of the FEE BASIS PAYMENT File`
11	STATUS	ST;1	SET	**********************REQUIRED FIELD********************** 'C' FOR CLERK CLOSED; 'S' FOR SUPERVISOR CLOSED; 'O' FOR OPEN; 'T' FOR TRANSMITTED; 'F' FOR CENTRAL FEE ACCEPTED; 'V' FOR VOUCHERED; 'P' FOR FORWARDED TO PRICER; 'A' FOR ASSIGNED PRICE; 'R' FOR REVIEWED AFTER PRICER; LAST EDITED: `JAN 30, 2012` DESCRIPTION: `The current status of the batch (ie Open, Clerk Closed, Transmitted).` TECHNICAL DESCR: `Patch FB3.5132 set the WRITE ACCESS of the STATUS field to the caret (^) to prevent users from changing the batch status using the FileMan Enter/Edit option.` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `161.7^AC` `1)= S ^FBAA(161.7,"AC",$E(X,1,30),DA)=""` `2)= K ^FBAA(161.7,"AC",$E(X,1,30),DA)` CROSS-REFERENCE: `161.7^AB^MUMPS` `1)= I $P(^FBAA(161.7,DA,0),U,5)]"" S ^FBAA(161.7,"AB",$E(X,1,30),$P(^FBAA(161.7,DA,0),U,5),DA)=""` `2)= I $P(^FBAA(161.7,DA,0),U,5)]"" K ^FBAA(161.7,"AB",$E(X,1,30),$P(^FBAA(161.7,DA,0),U,5),DA)`
12	DATE TRANSMITTED	0;14	DATE	INPUT TRANSFORM: `S %DT="EX",%DT(0)="-"_DT D ^%DT S X=Y K:Y<1 X K %DT(0)` LAST EDITED: `NOV 29, 2000` DESCRIPTION: `The date/time the supervisor used the 'Queue Data for Transmission' option. This is NOT the actual date/time the transmission occurred.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
13	DATE FINALIZED	0;12	DATE	INPUT TRANSFORM: `S %DT="EX",%DT(0)="-"_DT D ^%DT S X=Y K:Y<1 X K %DT(0)` LAST EDITED: `NOV 29, 2000` DESCRIPTION: `This is the date that the batch is finalized. This occurs after the batch has been sent to Austin and the Austin processing has occurred. This is the final step where any items rejected by the Austin system have been` `rejected and the batch is finalized.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `161.7^AF` `1)= S ^FBAA(161.7,"AF",$E(X,1,30),DA)=""` `2)= K ^FBAA(161.7,"AF",$E(X,1,30),DA)`
14	PERSON WHO COMPLETED	0;16	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 05, 1990` DESCRIPTION: `The supervisor who completed/finalized the batch.`
15	REJECTS PENDING	0;17	SET	'Y' FOR YES; LAST EDITED: `AUG 15, 1986` DESCRIPTION: `A flag which indicates whether this batch has any line items which were rejected and have yet to be reassigned to a new batch.`
16	STATION NUMBER	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `JUL 31, 1989` HELP-PROMPT: `ANSWER MUST BE 3 CHARACTERS IN LENGTH` DESCRIPTION: `The station number (as defined centrally) for the station that is processing this batch.`
17	CONTRACT HOSPITAL BATCH	0;15	SET	'Y' FOR yes; LAST EDITED: `APR 09, 1990` DESCRIPTION: `A flag set to 'Yes' if the batch is a Contract Hospital batch.`
18	BATCH EXEMPT	0;18	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAR 01, 1993` DESCRIPTION: `Population of this field indicates the batch is exempt from processing by the Austin Pricer.`
19	STATISTICAL BATCH	0;19	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 19, 1994` DESCRIPTION: `This flag is set by the software. Batches with this flag set to '1' (YES) will NOT make payment through FMS. It is used to update payment records both in DHCP and Central Fee.` TECHNICAL DESCR: `Set to '1' if sending Austin a statistical payment. We only allow statistical payments to be put into a batch with this flag set.`
20	FINALIZED WITH VISTA	1;1	SET	'1' FOR YES; LAST EDITED: `DEC 12, 2011` HELP-PROMPT: `Enter YES if a Fee Basis option was used to complete the batch.` DESCRIPTION: `This field indicates if batch was finalized (completed) using the VistA Finalize a Batch option as opposed to some other method such as the Fee Basis Claims System (FBCS). This field is automatically populated by the` `software. It was added by patch FB3.5132 and will not be populated for batches finalized prior to installation of that patch.`
21	VOUCHER MSG DATE	1;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 12, 2011` HELP-PROMPT: `Enter date most recent voucher batch message was generated.` DESCRIPTION: `This field is automatically populated with the current date when a Voucher Batch message is generated for the batch. This field will be used to determine if the application acknowledgement from Central Fee is overdue.`
22	VOUCHER MSG ACK STATUS	1;3	SET	'P' FOR PENDING; 'E' FOR ERROR; 'A' FOR ACKNOWLEDGED; LAST EDITED: `DEC 12, 2011` HELP-PROMPT: `Select status of the voucher batch acknowledgement.` DESCRIPTION: `This field holds the status of the acknowledgement for the most recent voucher batch message. This field will be automatically set to Pending when a voucher batch message is generated. The FBAA VOUCHER SERVER server` `option will update this field to Error or Acknowledged based on the voucher batch acknowledgement message from Central Fee.`
23	STATUS SET TO RETRANSMIT BY	1;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 12, 2011` HELP-PROMPT: `Enter person that reset the batch status.` DESCRIPTION: `This field is automatically populated with the current user when the Reprocess Overdue Batch option is used to reset the status of a payment batch so the batch will be retransmitted to Central Fee. This field is used to` `track exceptions to the normal batch process.`
24	STATUS SET TO RETRANSMIT DATE	1;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 12, 2011` HELP-PROMPT: `Enter date the batch status was reset.` DESCRIPTION: `This field is automatically populated with the current date when the Reprocess Overdue Batch option is used to reset the status of a payment batch so the batch will be retransmitted to Central Fee. This field is used to` `track exceptions to the normal batch process.`
25	TRANSMITTED BATCH WAS REJECTED	1;6	SET	'1' FOR YES; LAST EDITED: `DEC 12, 2011` HELP-PROMPT: `Enter YES if a batch with TRANSMITTED status was rejected.` DESCRIPTION: `This field is automatically populated with YES when the Reprocess Overdue Batch option is used to flag an entire batch as rejected. This field is used to identify when an exception to the normal batch process occurred.`

Name	Line Occurrences (* Changed, ! Killed)
^FBAA(161.7 - [#161.7]	.01DEL.01+1, .01(XREF 1S), .01(XREF 1K), 4(XREF 1S), 4(XREF 1K), 5(XREF 1S), 5(XREF 1K), 11(XREF 1S), 11(XREF 1K), 11(XREF 2S) , 11(XREF 2K), 13(XREF 1S), 13(XREF 1K)
^FBAA(162.1 - [#162.1]	.01DEL.01+1
^FBAAC("AC"	.01DEL.01+1
^FBAAC("AD"	.01DEL.01+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	3+1, 4.5+1, 5+1, 12+1, 13+1, 21+1, 24+1*
>> %DT(0	3+1!, 4.5+1!, 5+1!, 12+1!, 13+1*!
>> D0	.01DEL.01+1
>> DA	.01(XREF 1S), .01(XREF 1K), 4(XREF 1S), 4(XREF 1K), 5(XREF 1S), 5(XREF 1K), 11(XREF 1S), 11(XREF 1K), 11(XREF 2S), 11(XREF 2K) , 13(XREF 1S), 13(XREF 1K)
DT	3+1, 4.5+1, 12+1, 13+1
U	ID1+1, .01DEL.01+1, 11(XREF 2S), 11(XREF 2K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 3+1!, 4(XREF 1S), 4(XREF 1K), 4.5+1!, 5+1!, 5(XREF 1S) , 5(XREF 1K), 8+1!, 9+1!, 10+1!, 11(XREF 1S), 11(XREF 1K), 11(XREF 2S), 11(XREF 2K), 12+1!, 13+1! , 13(XREF 1S), 13(XREF 1K), 16+1!, 21+1!, 24+1!
>> Y	3+1, 4.5+1, 5+1, 12+1, 13+1, 21+1, 24+1
>> Z	.01DEL.01+1*

Customize PDF page

Package: Fee Basis

Global: ^FBAA(161.7

Information

Description

Directly Accessed By Routines, Total: 80

Accessed By FileMan Db Calls, Total: 40

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 1

Fields, Total: 26

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	3+1, 4.5+1, 5+1, 12+1, 13+1, 21+1, 24+1
CKOB^FBAAUTL1	1+1
$$CHKBI^FBAAUTL4	.01+1