Global: ^BARAC(2906

FileMan FileNo	FileMan Filename	Package
90050.02	A/R ACCOUNTS/IHS	IHS Accounts Receivable

Package	Total	Routines
IHS Accounts Receivable	33	BARBAD6 BARBAD7 BARBL BARBLOS1 BARDMAN2 BARDMU BARFPST3 BARMAWO BARMAWO6 BARMPAS BARMPAS2 BARMPAS3 BARPST6 BARPST7 BARPUC BARPUCU BARRADJ BARRADJ2 BARRASM BARRCXL1 BARRLBL BARRNEGB BARRPPS BARRPRAC BARRPRP BARRPSRA BARRQ2 BARTDO BARTRNS3 BARTRNS4 BARUPCH2 BARUTL BARUTLST
Tucson	2	BZSMAWO BZSMAWO2
Third Party Billing	1	ABMM2P12

Package	Total	FileMan Files
IHS Accounts Receivable	5	A/R PRINTED LETTERS(#90052)[.08] A/R SITE PARAMETER/IHS(#90052.06)[#90052.0601(.01), #90052.0602(.01)] A/R BILL/IHS(#90050.01)[3, 104, 201, 202, 205, 206, 207, 212, 213] A/R COLLECTION BATCH/IHS(#90051.01)[#90051.1101(7), #90051.1101(203)] A/R TRANSACTIONS/IHS(#90050.03)[6, 301]

Package	Total	FileMan Files
IHS Accounts Receivable	4	A/R TABLE TYPE/IHS(#90052.01)[6] A/R PARENT/SATELLITE/IHS(#90052.05)[.01, 8] A/R SPECIAL ACCOUNTS(#90052.07)[.01] A/R TABLE ENTRY/IHS(#90052.02)[2]
Utility Tables	3	INSURER(#9999999.18)[.01] LOCATION(#9999999.06)[.01] VENDOR(#9999999.11)[.01]
Kernel	2	SERVICE/SECTION(#49)[10] NEW PERSON(#200)[.01, 4]
IHS Patient	1	PATIENT(#9000001)[.01, #90050.0211(.01)]

Fields, Total: 30

Field #	Name	Loc	Type	Details
.001	IEN		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 03, 1994` HELP-PROMPT: `Type a Number between 1 and 999999999999999, 0 Decimal Digits`
.01	ACCOUNT	0;1	VARIABLE POINTER	**********************REQUIRED FIELD********************** NEW PERSON(#200) PATIENT(#9000001) VENDOR(#9999999.11) INSURER(#9999999.18) A/R PARENT/SATELLITE/IHS(#90052.05) A/R SPECIAL ACCOUNTS(#90052.07) LOCATION(#9999999.06) LAST EDITED: `AUG 23, 2007` CROSS-REFERENCE: `90050.02^B` 1)= S ^BARAC(DUZ(2),"B",$E(X,1,30),DA)="" 2)= K ^BARAC(DUZ(2),"B",$E(X,1,30),DA) CROSS-REFERENCE: `90050.02^C^MUMPS` 1)= S:X["AUPNPAT" ^BARAC(DUZ(2),"C",$P(^DPT(+X,0),"^",1),DA)="" 2)= K:X["AUPNPAT" ^BARAC(DUZ(2),"C",$P(^DPT(+X,0),"^",1),DA)
1	VP FILE NUMBER		COMPUTED	MUMPS CODE: `S X=$$NUM^BARVPM()` ALGORITHM: `S X=$$NUM^BARVPM()`
1.001	VP IEN		COMPUTED	MUMPS CODE: `S X=$$IEN^BARVPM()` ALGORITHM: `S X=$$IEN^BARVPM()`
1.002	VP FILE DIC (no up-arrow)		COMPUTED	MUMPS CODE: `S X=$$DIC^BARVPM()` ALGORITHM: `S X=$$DIC^BARVPM()`
1.01	VP ADDRESS 1		COMPUTED	MUMPS CODE: `S X=$$VAL^BARVPM(1)` ALGORITHM: `S X=$$VAL^BARVPM(1)`
1.02	VP ADDRESS 2		COMPUTED	MUMPS CODE: `S X=$$VAL^BARVPM(2)` ALGORITHM: `S X=$$VAL^BARVPM(2)`
1.03	VP ADDRESS 3		COMPUTED	MUMPS CODE: `S X=$$VAL^BARVPM(3)` ALGORITHM: `S X=$$VAL^BARVPM(3)`
1.04	VP CITY		COMPUTED	MUMPS CODE: `S X=$$VAL^BARVPM(4)` ALGORITHM: `S X=$$VAL^BARVPM(4)`
1.05	VP STATE		COMPUTED	MUMPS CODE: `S X=$$VAL^BARVPM(5)` ALGORITHM: `S X=$$VAL^BARVPM(5)`
1.06	VP ZIP CODE		COMPUTED	MUMPS CODE: `S X=$$VAL^BARVPM(6)` ALGORITHM: `S X=$$VAL^BARVPM(6)`
1.07	VP PHONE		COMPUTED	MUMPS CODE: `S X=$$VAL^BARVPM(7)` ALGORITHM: `S X=$$VAL^BARVPM(7)`
1.08	VP INSURER TYPE		COMPUTED	MUMPS CODE: `S X=$$VAL^BARVPM(8)` ALGORITHM: `S X=$$VAL^BARVPM(8)`
2	TYPE	0;2	POINTER TO A/R TABLE ENTRY/IHS FILE (#90052.02)	**********************REQUIRED FIELD********************** A/R TABLE ENTRY/IHS(#90052.02) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)=""ACTY""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 13, 1998` SCREEN: `S DIC("S")="I $P(^(0),U,3)=""ACTY"""` EXPLANATION: `LIMIT SELECTION TO ACCOUNT TYPES` CROSS-REFERENCE: `90050.02^ATYP^MUMPS` 1)= S ^BARAC(DUZ(2),"ATYP",$P(^BARTBL(X,0),"^",1),DA)="" 2)= K ^BARAC(DUZ(2),"ATYP",$P(^BARTBL(X,0),"^",1),DA)
3	ACTIVATION DATE	0;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 03, 1994`
4	ACTIVATION USER	0;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 03, 1994`
6	ACCOUNT STATUS	0;6	POINTER TO A/R TABLE TYPE/IHS FILE (#90052.01)	A/R TABLE TYPE/IHS(#90052.01) INPUT TRANSFORM: `I $P(^(0),U,3)="ACST" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 03, 1994` SCREEN: `I $P(^(0),U,3)="ACST"` EXPLANATION: `Account Status`
7	SEND DEBT LETTER	0;7	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAY 23, 2011` HELP-PROMPT: `Enter yes to send Debt letters and no to remove from sending` CROSS-REFERENCE: `90050.02^D` 1)= S ^BARAC(DUZ(2),"D",$E(X,1,30),DA)="" 2)= K ^BARAC(DUZ(2),"D",$E(X,1,30),DA)
8	LOCATION	0;8	POINTER TO AN UNDEFINED FILE	**********************REQUIRED FIELD********************** LAST EDITED: `OCT 21, 1994`
9	ASUFAC	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 04, 1994` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits`
10	A/R SERVICE	0;10	POINTER TO SERVICE/SECTION FILE (#49)	**********************REQUIRED FIELD********************** SERVICE/SECTION(#49) LAST EDITED: `OCT 21, 1994`
11	PATIENT	11;0	POINTER Multiple #90050.0211	90050.0211
12	STATEMENTS	12;0	DATE Multiple #90050.0212	90050.0212
101	PAT ACCT STMT	1;1	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUL 22, 2003` DESCRIPTION: Flag for creation of a Patient Account Statement TECHNICAL DESCR: Created in AR V1.7 Patch 2 in support of the Patient Account Statement CROSS-REFERENCE: `90050.02^PAS` 1)= S ^BARAC(DUZ(2),"PAS",$E(X,1,30),DA)="" 2)= K ^BARAC(DUZ(2),"PAS",$E(X,1,30),DA)
301	CURRENT A/R BALANCE	3;1	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999999)!(X<-999999999) X` LAST EDITED: `AUG 10, 1998` HELP-PROMPT: `Type a Dollar Amount between -999999999 and 9999999999, 2 Decimal Digits`
302	UN-POSTED BALANCE	3;2	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X` LAST EDITED: `AUG 10, 1998` HELP-PROMPT: `Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits`
303	UN-DISTRIBUTED BALANCE	3;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999) X` LAST EDITED: `AUG 10, 1998` HELP-PROMPT: `Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits`
303.2	SUSPENSE BALANCE		COMPUTED	MUMPS CODE: `S Y(90050.02,303.2,1)=$S($D(^BARAC(DUZ(2),D0,3)):^(3),1:"") S X=$P(Y(90050.02,303.2,1),U,2)+$P(Y(90050.02,303.2,1),U,3)+$P(Y(90050.02,303.2,1),U,4)` ALGORITHM: `#302+#303+#304` LAST EDITED: `AUG 10, 1998`
303.4	CURRENT BALANCE		COMPUTED	MUMPS CODE: `S Y(90050.02,303.4,1)=$S($D(^BARAC(DUZ(2),D0,3)):^(3),1:"") S X=$P(Y(90050.02,303.4,1),U,1)-$P(Y(90050.02,303.4,1),U,2)-$P(Y(90050.02,303.4,1),U,3)` ALGORITHM: `#301-#302-#303` LAST EDITED: `AUG 10, 1998`
304	UN-ALLOCATED	3;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999999)!(X<0) X` LAST EDITED: `JAN 11, 1995` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits`

Name	Line Occurrences (* Changed, ! Killed)
^BARAC(	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K), 7(XREF 1S), 7(XREF 1K), 101(XREF 1S), 101(XREF 1K) , 303.2+1, 303.4+1
^BARTBL - [#90052.02]	2(XREF 1S), 2(XREF 1K)
^DPT - [#2]	.01(XREF 2S), .01(XREF 2K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	3+1*
>> D0	303.2+1, 303.4+1
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K), 7(XREF 1S), 7(XREF 1K), 101(XREF 1S), 101(XREF 1K)
DIC	2+1!, 6+1!
DIC("S"	2+1, 2SCR+1
>> DIE	2+1, 6+1
DUZ(2	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1K), 7(XREF 1S), 7(XREF 1K), 101(XREF 1S), 101(XREF 1K) , 303.2+1, 303.4+1
U	6+1, 6SCR+1, 303.2+1, 303.4+1
X	.001+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1+1, 1.001+1, 1.002+1, 1.01+1, 1.02+1* , 1.03+1, 1.04+1, 1.05+1, 1.06+1, 1.07+1, 1.08+1, 2+1!, 2(XREF 1S), 2(XREF 1K), 3+1! , 6+1!, 7(XREF 1S), 7(XREF 1K), 9+1!, 101(XREF 1S), 101(XREF 1K), 301+1!, 302+1!, 303+1!, 303.2+1* , 303.4+1, 304+1!
>> Y	2+1, 3+1, 6+1
>> Y(	303.2+1, 303.4+1

Customize PDF page

Package: IHS Accounts Receivable

Global: ^BARAC(2906

Information

Description

Accessed By FileMan Db Calls, Total: 36

Pointed To By FileMan Files, Total: 5

Pointer To FileMan Files, Total: 10

Fields, Total: 30

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	3+1
$$DIC^BARVPM	1.002+1
$$IEN^BARVPM	1.001+1
$$NUM^BARVPM	1+1
$$VAL^BARVPM	1.01+1, 1.02+1, 1.03+1, 1.04+1, 1.05+1, 1.06+1, 1.07+1, 1.08+1
^DIC	2+1, 6+1