Global: ^BARCOL(2906

FileMan FileNo	FileMan Filename	Package
90051.01	A/R COLLECTION BATCH/IHS	IHS Accounts Receivable

Package	Total	Routines
IHS Accounts Receivable	25	BAR50EB BAR50EP BAR50EP1 BAR50P09 BARCBTR BARCLRG BARCLU BARCLU0 BARCLU1 BARCLU2 BARCLU3 BARDYSV8 BAREDEB BAREDEP BAREDEP1 BAREDP09 BAREUTL BARPUC BARRPRP BARRPTD BARRTBSL BARUFEX1 BARUFFN BARUFUT6 BARUTLST

Package	Total	FileMan Files
IHS Accounts Receivable	8	A/R COLLECTION POINT/IHS(#90051.02)[6] A/R PRINTED LETTERS(#90052)[.05] A/R EDI 835 HOLDING(#90056.07)[.06] A/R EDI CHECKS(#90056.22)[.03] A/R EDI IMPORT(#90056.02)[.06, #90056.02011(.07)] A/R FLAT RATE POSTING(#90054.01)[.04] A/R PREPAYMENT(#90050.06)[.14] A/R TRANSACTIONS/IHS(#90050.03)[14]

Package	Total	FileMan Files
IHS Accounts Receivable	7	A/R COLLECTION POINT/IHS(#90051.02)[2] A/R TABLE TYPE/IHS(#90052.01)[#90051.1101(401)] A/R PARENT/SATELLITE/IHS(#90052.05)[#90051.1101(8), #90051.1101601(.01)] A/R ACCOUNTS/IHS(#90050.02)[#90051.1101(7), #90051.1101(203)] A/R BILL/IHS(#90050.01)[#90051.1101(6)] A/R PREPAYMENT(#90050.06)[#90051.1101(23)] A/R TABLE ENTRY/IHS(#90052.02)[#90051.1101(2)]
Kernel	2	SERVICE/SECTION(#49)[10] NEW PERSON(#200)[5, 6, 11, 13, 26, #90051.1101(4), #90051.1101(15), #90051.1101(402), #90051.11011101(.05), #90051.11101(.05)]
IHS Patient	1	PATIENT(#9000001)[#90051.1101(5)]
Utility Tables	1	LOCATION(#9999999.06)[8]

Fields, Total: 44

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `OCT 22, 1996` HELP-PROMPT: `Answer must be 3-50 characters in length.` CROSS-REFERENCE: `90051.01^B` 1)= S ^BARCOL(DUZ(2),"B",$E(X,1,50),DA)="" 2)= K ^BARCOL(DUZ(2),"B",$E(X,1,50),DA)
.5	AUTO PRINT RECEIPT		COMPUTED	MUMPS CODE: `X ^DD(90051.01,.5,9.3) S Y(90051.01,.5,101)=$S($D(^BAR(90051.02,DUZ(2),D0,0)):^(0),1:"") S X=$P($P(Y(90051.01,.5,102),$C(59)_$P(Y(90051.01,.5,101),U,3)_":",2),$C(59),1) S D0=Y(90051.01,.5,80)` 9.2 = S Y(90051.01,.5,80)=$S($D(D0):D0,1:""),Y(90051.01,.5,1)=$S($D(^BARCOL(DUZ(2),D0,0)):^(0),1:"") 9.3 = X ^DD(90051.01,.5,9.2) S D0=$P(Y(90051.01,.5,1),U,2) S:'$D(^BAR(90051.02,DUZ(2),+D0,0)) D0=-1 S Y(90051.01,.5,102)=$C(59)_$S($D(^DD(90051.02,3,0)):$P(^(0),U,3),1:"") ALGORITHM: `#2:#3` LAST EDITED: `JAN 10, 1995`
2	COLLECTION ID	0;2	POINTER TO AN UNDEFINED FILE	LAST EDITED: `SEP 28, 1994`
3	BATCH STATUS	0;3	SET	'P' FOR POSTABLE; 'O' FOR OPEN; 'R' FOR REVIEW; LAST EDITED: `NOV 16, 1994`
4	OPENED DATE/TIME	0;4	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 04, 1994` CROSS-REFERENCE: `90051.01^C` 1)= S ^BARCOL(DUZ(2),"C",$E(X,1,30),DA)="" 2)= K ^BARCOL(DUZ(2),"C",$E(X,1,30),DA)
5	OPENED BY USER	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 28, 1994`
6	CLOSED BY USER	0;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 28, 1994`
7	LAST RECEIPT NUMBER	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 03, 1994` HELP-PROMPT: `Type a Number between 0 and 99999999, 0 Decimal Digits`
8	SITE LOCATION	0;8	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `SEP 28, 1994`
9	SITE ASUFAC	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 28, 1994` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits`
10	A/R SECTION	0;10	POINTER TO SERVICE/SECTION FILE (#49)	**********************REQUIRED FIELD********************** SERVICE/SECTION(#49) LAST EDITED: `SEP 28, 1994`
11	CLOSED BY USER	0;11	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 28, 1994`
12	CLOSED DATE/TIME	0;12	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 28, 1994`
13	REVIEW BY USER	0;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 28, 1994`
14	REVIEW DATE/TIME	0;14	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 28, 1994`
15	BATCH TOTAL		COMPUTED	MUMPS CODE: `S X=$$B15^BARCBC(D0)` ALGORITHM: `S X=$$B15^BARCBC(D0)` LAST EDITED: `OCT 08, 1998`
16	BATCH POSTING TOTAL		COMPUTED	MUMPS CODE: `S X=$$BTT^BARCBC(D0,"PAYMENT")` ALGORITHM: `S X=$$BTT^BARCBC(D0,"PAYMENT")` LAST EDITED: `OCT 06, 1998`
17	BATCH POSTING BALANCE		COMPUTED	MUMPS CODE: `X ^DD(90051.01,17,9.3) S X=X-Y(90051.01,17,2)+Y(90051.01,17,3)+Y(90051.01,17,4)` 9.2 = X "N I,Y "_$P(^DD(90051.01,16,0),U,5,99) S Y(90051.01,17,2)=X X "N I,Y "_$P(^DD(90051.01,19,0),U,5,99) S Y(90051.01,17,1)=X 9.3 = X ^DD(90051.01,17,9.2) X "N I,Y "_$P(^DD(90051.01,27,0),U,5,99) S Y(90051.01,17,3)=X X "N I,Y "_$P(^DD(90051.01,560,0),U,5,99) S Y(90051.01,17,4)=X S X=Y(90051.01,17,1) ALGORITHM: `#19-#16+#27+#560` LAST EDITED: `JUL 19, 2007`
18	BATCH UNDISTRIBUTED	0;18	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999999)!(X<0) X` LAST EDITED: `SEP 09, 1998` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits`
19	POSTABLE TOTAL		COMPUTED	MUMPS CODE: `X ^DD(90051.01,19,9.2) S Y(90051.01,19,2)=$S($D(^BARCOL(DUZ(2),D0,0)):^(0),1:"") S X=Y(90051.01,19,1)-$P(Y(90051.01,19,2),U,18)-Y(90051.01,19,3)-Y(90051.01,19,4)` 9.2 = X $P(^DD(90051.01,15,0),U,5,99) S Y(90051.01,19,1)=X X $P(^DD(90051.01,22,0),U,5,99) S Y(90051.01,19,4)=X X $P(^DD(90051.01,23,0),U,5,99) S Y(90051.01,19,3)=X ALGORITHM: `#15-#18-#23-#22` LAST EDITED: `NOV 03, 1998` TECHNICAL DESCR: Modified computed field definition from #15-#18-#21-#22 to #15-#18-#23-#22. This way the batch total only reflects the current un-allocated balance. Changed in A/R V1.6 Patch 2.
20	TRANSACTION STATUS	0;20	SET	'1' FOR COMPLETED; '0' FOR NOT COMPLETED; LAST EDITED: `FEB 02, 1995`
21	BATCH UNALLOCATED		COMPUTED	MUMPS CODE: `S X=$$BTT^BARCBC(D0,"UN-ALLOCATED")` ALGORITHM: `S X=$$BTT^BARCBC(D0,"UN-ALLOCATED")`
22	BATCH REFUNDED		COMPUTED	MUMPS CODE: `S X=$$BTT^BARCBC(D0,"REFUND")-1` ALGORITHM: `S X=$$BTT^BARCBC(D0,"REFUND")-1` LAST EDITED: `OCT 08, 1998`
23	TRUE BATCH UN-ALLOCATED		COMPUTED	MUMPS CODE: `S BAR23=1,X=$$BTT^BARCBC(D0,"UN-ALLOCATED") K BAR23` ALGORITHM: `S BAR23=1,X=$$BTT^BARCBC(D0,"UN-ALLOCATED") K BAR23` LAST EDITED: `JUL 17, 2007` TECHNICAL DESCR: This field was added in A/R V1.6 Patch 2. It works the same as BATCH UNALLOCATED field except it only includes "OPEN" un-allocated transaction types.
25	DATE/TIME FINALIZED	0;25	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `APR 12, 2007` HELP-PROMPT: `PROGARMMER POPULATED`
26	FINALIZED BY USER	0;26	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 12, 2007` HELP-PROMPT: `PROGRAMER POPULATED`
27	BATCH TOTAL REIMBURSEMENTS		COMPUTED	MUMPS CODE: `S X=$$BTTREIM^BARCBC(D0)` ALGORITHM: `S X=$$BTTREIM^BARCBC(D0)` LAST EDITED: `JUL 17, 2007` TECHNICAL DESCR: RETUTN TOTAL FOR ALL TRANSACTION TYPES WITH A TABEL TYPE OF 'UNBILLED REIMBURSEMENTS'
28	TREASURY DEPOSIT NUMBER/IPAC	0;28	FREE TEXT	INPUT TRANSFORM: `K:'$$GOODIPAC^BARUFEX3(X) X` OUTPUT TRANSFORM: `S:Y'="" Y=$$BATCH^BARUFTDN(Y,D0)` LAST EDITED: `MAY 24, 2018` HELP-PROMPT: `Enter a 6-20 character Treasury Deposit Number/IPAC, PRE-UFMS_COLLECTIONS, or NONPAYMENT` DESCRIPTION: The Treasury Deposit Number entered into this field will apply to all the items in the batch. TECHNICAL DESCR: Added bar1.84. Reference DD item 4.1.5.1. AUDIT: `EDITED OR DELETED` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `90051.01^E` 1)= S ^BARCOL(DUZ(2),"E",$E(X,1,30),DA)="" 2)= K ^BARCOL(DUZ(2),"E",$E(X,1,30),DA)
29	BATCH AMOUNT	0;29	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0)!(X?.E1"."3.N) X` LAST EDITED: `MAY 24, 2018` HELP-PROMPT: `Type a Dollar amount between 0 and 999999999, 2 Decimal Digits` TECHNICAL DESCR: Added in bar1.84. Reference DD item 4.1.5.1. AUDIT: `EDITED OR DELETED`
30	TDN/IPAC/Deposit Date	0;30	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 24, 2018` HELP-PROMPT: `Enter the date that the check or payment was deposited according to your financial system, or the IPAC date.` AUDIT: `EDITED OR DELETED`
101	ITEM(S)	1;0	Multiple #90051.1101	90051.1101 LAST EDITED: `NOV 01, 1996`
201	BAD NODE 90051.1201	2;0	WORD-PROCESSING #90051.1201
550	BATCH HPSA Payments		COMPUTED	MUMPS CODE: `S X=$$BTT^BARCBC(D0,550)` ALGORITHM: `S X=$$BTT^BARCBC(D0,550)` LAST EDITED: `JUL 17, 2007` TECHNICAL DESCR: COMPUTE ALL TRANSACTION AMOUNTS WITH TRANSACTION TYPE OF 550 HPSA Payments
551	BATCH Incentive Payments		COMPUTED	MUMPS CODE: `S X=$$BTT^BARCBC(D0,551)` ALGORITHM: `S X=$$BTT^BARCBC(D0,551)` LAST EDITED: `JUL 17, 2007` TECHNICAL DESCR: TOTAL ALL TRANSACTION AMOUNTS WITH TRAN TYPE OF 551
552	BATCH FMCRA/TPL Payments		COMPUTED	MUMPS CODE: `S X=$$BTT^BARCBC(D0,552)` ALGORITHM: `S X=$$BTT^BARCBC(D0,552)` LAST EDITED: `JUL 17, 2007` TECHNICAL DESCR: TOATAL TRANSACTION AMOUNTS WITH TRAN TYPE OF 552 FMCRA/TPL Payments
553	BATCH Interest Payments		COMPUTED	MUMPS CODE: `S X=$$BTT^BARCBC(D0,553)` ALGORITHM: `S X=$$BTT^BARCBC(D0,553)` LAST EDITED: `JUL 17, 2007` TECHNICAL DESCR: TOTAL TRANSACTION AMOUNTS FOR TRANSACTIONS WITH TRANS TYPE OF 553 Interest Payments
554	BATCH Early Payment Allowance		COMPUTED	MUMPS CODE: `S X=$$BTT^BARCBC(D0,554)` ALGORITHM: `S X=$$BTT^BARCBC(D0,554)` LAST EDITED: `JUL 17, 2007` TECHNICAL DESCR: TOTAL TRANSACTION AMOUNTS FOR TRANSACTINS WITH TRAN TYPE 554 Early Payment Allowance
555	BATCH Rebate		COMPUTED	MUMPS CODE: `S X=$$BTT^BARCBC(D0,555)` ALGORITHM: `S X=$$BTT^BARCBC(D0,555)` LAST EDITED: `JUL 17, 2007` TECHNICAL DESCR: TOTAL AMOUNTS OF TRANSACTION WITH TRAN TYPE OF 555 Rebate
556	BATCH Bad Debt Collection		COMPUTED	MUMPS CODE: `S X=$$BTT^BARCBC(D0,556)` ALGORITHM: `S X=$$BTT^BARCBC(D0,556)` LAST EDITED: `JUL 17, 2007` TECHNICAL DESCR: TOTAL AMOUNTS FOR ALL TRANSACTIONS WITH TRAN TYPE 556 Bad Debt Collection
557	BATCH Bonus		COMPUTED	MUMPS CODE: `S X=$$BTT^BARCBC(D0,557)` ALGORITHM: `S X=$$BTT^BARCBC(D0,557)` LAST EDITED: `JUL 17, 2007` TECHNICAL DESCR: total transaction amounts with tran type of 557 Bonus
558	BATCH Capitation Payment		COMPUTED	MUMPS CODE: `S X=$$BTT^BARCBC(D0,558)` ALGORITHM: `S X=$$BTT^BARCBC(D0,558)` LAST EDITED: `JUL 17, 2007` TECHNICAL DESCR: TOTAL TRANSACTION AMOUNTS WITH TRAN TYPE OF 558 Capitation Payment
559	BATCH Medical Record Copying		COMPUTED	MUMPS CODE: `S X=$$BTT^BARCBC(D0,559)` ALGORITHM: `S X=$$BTT^BARCBC(D0,559)` LAST EDITED: `JUL 17, 2007` TECHNICAL DESCR: TOTAL TRANSACTIONS WITH TRAN TYPE OF 559 Medical Record Copying
560	BATCH TRANSFER		COMPUTED	MUMPS CODE: `S X=$$BTT^BARCBC(D0,560)` ALGORITHM: `S X=$$BTT^BARCBC(D0,560)` LAST EDITED: `JUL 19, 2007` TECHNICAL DESCR: RETURNS TOTAL AMOUNT OF ALL TRANSACTIONS WITH A TRANSACTION TYPE OF 'TRANSFER'
1101	BATCH TDN AND AMOUNT AUDIT	1101;0	DATE Multiple #90051.11101	90051.11101

Name	Field # of Occurrence
^%DT	4+1, 12+1, 14+1, 25+1, 30+1
$$B15^BARCBC	15+1
$$BTT^BARCBC	16+1, 21+1, 22+1, 23+1, 550+1, 551+1, 552+1, 553+1, 554+1, 555+1 , 556+1, 557+1, 558+1, 559+1, 560+1
$$BTTREIM^BARCBC	27+1
$$GOODIPAC^BARUFEX3	28+1
$$BATCH^BARUFTDN	28OT+1
Y^DIQ	ID2+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	4+1, 12+1, 14+1, 25+1, 30+1*
%I	ID2+1*!
BAR23	23+1*!
>> C	ID2+1*
>> D0	.5+1, .5OF9.2+1, .5OF9.3+1, 15+1, 16+1, 19+1, 21+1, 22+1, 23+1, 27+1 , 28OT+1, 550+1, 551+1, 552+1, 553+1, 554+1, 555+1, 556+1, 557+1, 558+1 , 559+1, 560+1
>> DA	.01(XREF 1S), .01(XREF 1K), 4(XREF 1S), 4(XREF 1K), 28(XREF 1S), 28(XREF 1K)
>> DIC	ID2+1
DUZ(2	ID2+1, .01(XREF 1S), .01(XREF 1K), .5+1, .5OF9.2+1, .5OF9.3+1, 4(XREF 1S), 4(XREF 1K), 19+1, 28(XREF 1S) , 28(XREF 1K)
U	ID2+1, ID28+1, .5+1, .5OF9.3+1, 17OF9.2+1, 17OF9.3+1, 19+1, 19OF9.2+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .5+1, 4+1!, 4(XREF 1S), 4(XREF 1K), 7+1!, 9+1!, 12+1! , 14+1!, 15+1, 16+1, 17+1, 17OF9.2+1, 17OF9.3+1, 18+1!, 19+1, 19OF9.2+1, 21+1* , 22+1, 23+1, 25+1!, 27+1, 28+1!, 28(XREF 1S), 28(XREF 1K), 29+1!, 30+1!, 550+1* , 551+1, 552+1, 553+1, 554+1, 555+1, 556+1, 557+1, 558+1, 559+1, 560+1
>> Y	ID2+1, 4+1, 12+1, 14+1, 25+1, 28OT+1, 30+1
>> Y(	.5+1, .5OF9.2+1, .5OF9.3+1, 17+1, 17OF9.2+1, 17OF9.3+1, 19+1, 19OF9.2+1*
>> Y(0	28OT+1*

Customize PDF page

Package: IHS Accounts Receivable

Global: ^BARCOL(2906

Information

Description

Accessed By FileMan Db Calls, Total: 25

Pointed To By FileMan Files, Total: 8

Pointer To FileMan Files, Total: 11

Fields, Total: 44

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90051.02	ID2+1, .5+1, .5OF9.3+1
^BARCOL(	.01(XREF 1S), .01(XREF 1K), .5OF9.2+1, 4(XREF 1S), 4(XREF 1K), 19+1, 28(XREF 1S), 28(XREF 1K)
^DD(90051.01	.5+1, .5OF9.3+1, 17+1, 17OF9.2+1, 17OF9.3+1, 19+1, 19OF9.2+1
^DD(90051.02	ID2+1, .5OF9.3+1