Global: ^BAR(90051.02,6613,0)

FileMan FileNo	FileMan Filename	Package
90051.02	A/R COLLECTION POINT/IHS	IHS Accounts Receivable

Package	Total	Routines
IHS Accounts Receivable	1	BARRTBSL

Package	Total	FileMan Files
IHS Accounts Receivable	1	A/R COLLECTION BATCH/IHS(#90051.01)[2]

Package	Total	FileMan Files
Kernel	3	DEVICE(#3.5)[11] SERVICE/SECTION(#49)[10] NEW PERSON(#200)[#90051.2101(.01), #90051.2201(.01)]
IHS Accounts Receivable	1	A/R COLLECTION BATCH/IHS(#90051.01)[6]
Utility Tables	1	LOCATION(#9999999.06)[8]

Fields, Total: 27

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>16!($L(X)<3)!'(X'?1P.E) X K:$G(X)["," X` LAST EDITED: `APR 05, 2002` HELP-PROMPT: `Answer must be 3-16 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `90051.02^B` 1)= S ^BAR(90051.02,DUZ(2),"B",$E(X,1,30),DA)="" 2)= K ^BAR(90051.02,DUZ(2),"B",$E(X,1,30),DA)
2	BATCH TYPE	0;2	SET	**********************REQUIRED FIELD********************** 'E' FOR EOB ONLY; 'A' FOR ALL TYPES; LAST EDITED: `OCT 13, 1994`
3	AUTO PRINT RECEIPT	0;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 13, 1994`
4	LAST COLLECTION BATCH DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 27, 1994`
4.5	NUMDATE		COMPUTED	MUMPS CODE: `S Y(90051.02,4.5,1)=$S($D(^BAR(90051.02,DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(90051.02,4.5,1),U,4) S:X X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_($E(X,1,3)+1700)` ALGORITHM: `NUMDATE(#4)`
5	LAST SEQUENCE NUMBER	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 27, 1994` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
6	CURRENT COLLECTION BATCH	0;6	POINTER TO A/R COLLECTION BATCH/IHS FILE (#90051.01)	A/R COLLECTION BATCH/IHS(#90051.01) LAST EDITED: `SEP 30, 1994`
6.3	USER OF CURRENT BATCH		COMPUTED	MUMPS CODE: `X ^DD(90051.02,6.3,9.2) S Y(90051.02,6.3,101)=$S($D(^BARCOL(DUZ(2),D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(90051.02,6.3,101),U,5),0)):"",1:$P(^(0),U,1)) S D0=Y(90051.02,6.3,80)` 9.2 = S Y(90051.02,6.3,80)=$S($D(D0):D0,1:""),Y(90051.02,6.3,1)=$S($D(^BAR(90051.02,DUZ(2),D0,0)):^(0),1:""),D0=$P(Y(90051.02,6.3,1),U,6) S:'$D(^BARCOL(DUZ(2),+D0,0)) D0=-1 ALGORITHM: `#6:#5`
6.5	STATUS/CURRENT BATCH		COMPUTED	MUMPS CODE: `X ^DD(90051.02,6.5,9.3) S X=$P($P(Y(90051.02,6.5,102),$C(59)_$P(Y(90051.02,6.5,101),U,3)_":",2),$C(59),1) S D0=Y(90051.02,6.5,80)` 9.2 = S Y(90051.02,6.5,80)=$S($D(D0):D0,1:""),Y(90051.02,6.5,1)=$S($D(^BAR(90051.02,DUZ(2),D0,0)):^(0),1:""),D0=$P(Y(90051.02,6.5,1),U,6) S:'$D(^BARCOL(DUZ(2),+D0,0)) D0=-1 9.3 = X ^DD(90051.02,6.5,9.2) S Y(90051.02,6.5,102)=$C(59)_$S($D(^DD(90051.01,3,0)):$P(^(0),U,3),1:""),Y(90051.02,6.5,101)=$S($D(^BARCOL(DUZ(2),D0,0)):^(0),1:"") ALGORITHM: `6:#3`
7	Allowance Category	0;7	SET	'MCR' FOR Medicare; 'MCD' FOR Medicaid; 'PVT' FOR Private Insurance; 'V' FOR Veterans Medical Benefit; 'OTH' FOR Other; LAST EDITED: `MAR 17, 2008`
8	LOCATION	0;8	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `SEP 27, 1994` CROSS-REFERENCE: `^^TRIGGER^90051.02^9` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BAR(90051.02,DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(90051.02,8,1,1,1.1) X ^DD(90051.02,8,1,1,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTLOC(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTLOC(D0,0)):^(0),1:"") S X=$P(Y(101),U,10) S D0=I(0,0) 1.4)= S DIH=$S($D(^BAR(90051.02,DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=90051.02,DIG=9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= #8:ASUFAC INDEX DELETE VALUE)= NO EFFECT FIELD)= #9
9	ASUFAC	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<111111)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 27, 1994` HELP-PROMPT: `Type a Number between 111111 and 999999, 0 Decimal Digits` NOTES: `TRIGGERED by the LOCATION field of the A/R COLLECTION POINT/IHS File`
10	A/R SECTION	0;10	POINTER TO SERVICE/SECTION FILE (#49)	**********************REQUIRED FIELD********************** SERVICE/SECTION(#49) LAST EDITED: `SEP 27, 1994` HELP-PROMPT: `The Service/Section of the hospital that is managing the bills and accounts.` DESCRIPTION: This field is used for screening for user access and for splitting collection batches into a posting batchs to be access by the A/R section identified.
11	RECEIPT PRINTER	0;11	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) LAST EDITED: `OCT 11, 1994`
12	ASK CHECK BANK NUMBER	0;12	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 01, 1994`
13	ASK INPATIENT/OUTPATIENT	0;13	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 01, 1994`
14	CC ask Patient Name on Bill	0;14	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 01, 1994`
15	CA ask Patient Name on Bill	0;15	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 01, 1994`
16	CK ask Patient Name on Bill	0;16	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 01, 1994`
17	CC ask Patient Name	0;17	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 01, 1994`
18	CA ask Patient Name	0;18	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 01, 1994`
19	CK ask Patient Name	0;19	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 01, 1994`
20	NON EOB DATA REVIEW/EDIT	0;20	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 03, 1994`
21	EOB DATA REVIEW/EDIT	0;21	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `DEC 09, 1994`
22	ASK TREASURY DEPOSIT NUMBER	0;22	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `APR 06, 2007`
101	USERS	1;0	POINTER Multiple #90051.2101	90051.2101
201	SUPERVISOR(S)	2;0	POINTER Multiple #90051.2201	90051.2201 LAST EDITED: `NOV 21, 1994`

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC - [#9999999.06]	8(XREF 1n1.1)
^BAR(90051.02	.01(XREF 1S), .01(XREF 1K), 4.5+1, 6.3OF9.2+1, 6.5OF9.2+1, 8(XREF 1S), 8(XREF 1n1.4)
^BARCOL(	6.3+1, 6.3OF9.2+1, 6.5OF9.2+1, 6.5OF9.3+1
^DD(	8(XREF 1n1.4)
^DD(90051.01	6.5OF9.3+1
^DD(90051.02	6.3+1, 6.5+1, 6.5OF9.3+1, 8(XREF 1S)
^VA(200 - [#200]	6.3+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	4+1*
>> D0	4.5+1, 6.3+1, 6.3OF9.2+1, 6.5+1, 6.5OF9.2+1, 6.5OF9.3+1, 8(XREF 1S), 8(XREF 1n1.1)
>> DA	.01(XREF 1S), .01(XREF 1K), 8(XREF 1S)
>> DIG	8(XREF 1n1.4)
>> DIH	8(XREF 1n1.4)
>> DIU	8(XREF 1S)
DIV	8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1n1.4)
DIV(0	8(XREF 1S), 8(XREF 1n1.4)
DUZ(2	.01(XREF 1S), .01(XREF 1K), 4.5+1, 6.3+1, 6.3OF9.2+1, 6.5OF9.2+1, 6.5OF9.3+1, 8(XREF 1S), 8(XREF 1n1.4)
>> I(0	8(XREF 1n1.1)
U	4.5+1, 6.3+1, 6.3OF9.2+1, 6.5+1, 6.5OF9.2+1, 6.5OF9.3+1, 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1n1.4)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 4+1!, 4.5+1, 5+1!, 6.3+1, 6.5+1, 8(XREF 1S), 8(XREF 1n1.1) , 8(XREF 1n1.4), 9+1!
Y	4+1, 8(XREF 1S)
Y(	4.5+1, 6.3+1, 6.3OF9.2+1, 6.5+1, 6.5OF9.2+1, 6.5OF9.3+1*
Y(1	8(XREF 1S)
Y(101	8(XREF 1n1.1)

Customize PDF page

Package: IHS Accounts Receivable

Global: ^BAR(90051.02,6613,0)

Information

Description

Accessed By FileMan Db Calls, Total: 1

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 5

Fields, Total: 27

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: