Global: ^BARTR(2906

FileMan FileNo	FileMan Filename	Package
90050.03	A/R TRANSACTIONS/IHS	IHS Accounts Receivable

Package	Total	Routines
IHS Accounts Receivable	52	BAR50EP BAR50P4A BARBAD5 BARBAD6 BARDMAN2 BARDUTL BARDYSPR BARDYSUT BARDYSV5 BARDYSV8 BARDYSVZ BAREDEP BAREDP4A BAREITDN BARMAWO3 BARMPAS BARP1827 BARPST BARPST3 BARPST5 BARPST6 BARPUC BARPUCU BARRADJ BARRATS BARRCHK1 BARRNBRE BARRNEGB BARRPPS BARRPRP BARRPVC BARRTBSL BARTRNS1 BARTRNS3 BARUFCNR BARUFER BARUFEX1 BARUFEX3 BARUFEX4 BARUFEX5 BARUFFN BARUFLOG BARUFRP2 BARUFRP3 BARUFRPT BARUFSUP BARUFUT BARUFUT0 BARUFUT1 BARUFUT6 BARUP1 BARUTLST
IHS Uniform Data System	8	BUD1RPC4 BUD2RPC4 BUDARPC4 BUDBRPC4 BUDCRPC4 BUDDRPC4 BUDERPC4 BUDHRPC4
Third Party Billing	6	ABMM2P12 ABMM2PH3 ABMMUFC3 ABMMUPV1 ABMMUPVH ABMTALL2

Package	Total	FileMan Files
IHS Accounts Receivable	2	A/R UFMS CASHIER SESSION LOG(#90057)[#90057.110102(.01)] A/R TRANSACTIONS/IHS(#90050.03)[110, 201, 202, 302]

Package	Total	FileMan Files
IHS Accounts Receivable	9	A/R TABLE TYPE/IHS(#90052.01)[102] A/R PARENT/SATELLITE/IHS(#90052.05)[8, 11] A/R ACCOUNTS/IHS(#90050.02)[6, 301] A/R EDI STND CLAIM ADJ REASONS(#90056.06)[109] A/R BILL/IHS(#90050.01)[4, 303, 304, 501, 502] A/R COLLECTION BATCH/IHS(#90051.01)[14] A/R EDI REMARK CODES(#90056.23)[107] A/R TABLE ENTRY/IHS(#90052.02)[101, 103] A/R TRANSACTIONS/IHS(#90050.03)[110, 201, 202, 302]
Kernel	2	SERVICE/SECTION(#49)[10] NEW PERSON(#200)[13, 603, #90050.31201(.05)]
IHS Patient	1	PATIENT(#9000001)[5]
Pharmacy Point of Sale	1	ABSP NCPDP REJECT CODES(#9002313.93)[108]

Fields, Total: 68

Field #	Name	Loc	Type	Details
.001	IEN		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 28, 1994` HELP-PROMPT: `Type a Number between 0 and 999999999999, 0 Decimal Digits`
.01	DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X S:X DINUM=X` LAST EDITED: `FEB 10, 1995` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `90050.03^B` 1)= S ^BARTR(DUZ(2),"B",$E(X,1,30),DA)="" 2)= K ^BARTR(DUZ(2),"B",$E(X,1,30),DA)
2	CREDIT	0;2	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999)!(X<0) X` LAST EDITED: `SEP 08, 1998` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999999, 2 Decimal Digits`
3	DEBIT	0;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999)!(X<0) X` LAST EDITED: `SEP 08, 1998` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999999, 2 Decimal Digits`
3.2	PRIME BILL AMOUNT		COMPUTED	MUMPS CODE: `S X=$$PRMBLAMT^BARTR()` ALGORITHM: `S X=$$PRMBLAMT^BARTR()`
3.5	CREDIT - DEBIT		COMPUTED	MUMPS CODE: `S Y(90050.03,3.5,1)=$S($D(^BARTR(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(90050.03,3.5,1),U,2)-$P(Y(90050.03,3.5,1),U,3)` ALGORITHM: `#2-#3` LAST EDITED: `JUL 24, 2007`
3.6	PAYMENT		COMPUTED	MUMPS CODE: `S X=$$PAY^BARTR()` ALGORITHM: `S X=$$PAY^BARTR()` LAST EDITED: `SEP 05, 1995`
3.61	PAY-AMT		COMPUTED	MUMPS CODE: `S X="" I $$VALI^XBDIQ1(90050.03,D0,101)=40 S X=$$VAL^XBDIQ1(90050.03,D0,3.5)` ALGORITHM: `S X="" I $$VALI^XBDIQ1(90050.03,D0,101)=40 S X=$$VAL^XBDIQ1(90050.03,D0,3.5)` LAST EDITED: `SEP 05, 1995`
3.619	REFUND		COMPUTED	MUMPS CODE: `S X=$$VALADJ^BARTR(19)` ALGORITHM: `S X=$$VALADJ^BARTR(19)` LAST EDITED: `SEP 05, 1995`
3.62	PRV-CRD		COMPUTED	MUMPS CODE: `S X=$$VALADJ^BARTR(20)` ALGORITHM: `S X=$$VALADJ^BARTR(20)` LAST EDITED: `SEP 05, 1995`
3.7	ADJUSTMENT		COMPUTED	MUMPS CODE: `S X=$$ADJ^BARTR()` ALGORITHM: `S X=$$ADJ^BARTR()` LAST EDITED: `SEP 05, 1995`
3.703	WO-OFF		COMPUTED	MUMPS CODE: `S X=$$VALADJ^BARTR(3)` ALGORITHM: `S X=$$VALADJ^BARTR(3)` LAST EDITED: `SEP 05, 1995`
3.704	NON-PAY		COMPUTED	MUMPS CODE: `S X=$$VALADJ^BARTR(4)` ALGORITHM: `S X=$$VALADJ^BARTR(4)` LAST EDITED: `SEP 05, 1995`
3.713	DEDUCT		COMPUTED	MUMPS CODE: `S X=$$VALADJ^BARTR(13)` ALGORITHM: `S X=$$VALADJ^BARTR(13)` LAST EDITED: `SEP 05, 1995`
3.714	CO-PAY		COMPUTED	MUMPS CODE: `S X=$$VALADJ^BARTR(14)` ALGORITHM: `S X=$$VALADJ^BARTR(14)` LAST EDITED: `SEP 05, 1995`
3.715	PENALTY		COMPUTED	MUMPS CODE: `S X=$$VALADJ^BARTR(15)` ALGORITHM: `S X=$$VALADJ^BARTR(15)` LAST EDITED: `SEP 05, 1995`
3.716	GRP-ALL		COMPUTED	MUMPS CODE: `S X=$$VALADJ^BARTR(16)` ALGORITHM: `S X=$$VALADJ^BARTR(16)` LAST EDITED: `SEP 05, 1995`
3.8	PAY+ADJ		COMPUTED	MUMPS CODE: `X $P(^DD(90050.03,3.6,0),U,5,99) S Y(90050.03,3.8,1)=X X $P(^DD(90050.03,3.7,0),U,5,99) S Y(90050.03,3.8,2)=X S X=Y(90050.03,3.8,1)+Y(90050.03,3.8,2)` ALGORITHM: `#3.6+#3.7`
3.9	P.A.R (pay.adj.ref) (1/0)		COMPUTED	MUMPS CODE: `S X=$$PAR^BARTR()` ALGORITHM: `S X=$$PAR^BARTR()` LAST EDITED: `NOV 01, 1996`
4	BILL (A/R)	0;4	POINTER TO A/R BILL/IHS FILE (#90050.01)	A/R BILL/IHS(#90050.01) LAST EDITED: `MAY 04, 1995` CROSS-REFERENCE: `90050.03^AC` 1)= S ^BARTR(DUZ(2),"AC",$E(X,1,30),DA)="" 2)= K ^BARTR(DUZ(2),"AC",$E(X,1,30),DA) CROSS-REFERENCE: `90050.03^AM4^MUMPS` 1)= D SAM4^BARPSTX 2)= D KAM4^BARPSTX CROSS-REFERENCE: `^^TRIGGER^90050.03^16` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARTR(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(90050.03,4,1,3,1.1) X ^DD(90050.03,4,1,3,1.4) 1.1)= S X=DIV X ^DD(90050.03,4,1,3,49.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,4)_":",2),$C(59),1) S D0=I(0,0) 1.4)= S DIH=$S($D(^BARTR(DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,16)=DIV,DIH=90050.03,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q 49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BARBL(DUZ(2),+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(90050.01,4,0)):$P(^(0),U,3),1:""),Y(101)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") CREATE VALUE)= #4:#4 DELETE VALUE)= NO EFFECT FIELD)= #16
5	PATIENT (A/R)	0;5	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) LAST EDITED: `MAR 05, 1996` CROSS-REFERENCE: `90050.03^AM5^MUMPS` 1)= D SAM5^BARPSTX 2)= D KAM5^BARPSTX CROSS-REFERENCE: `90050.03^AF` 1)= S ^BARTR(DUZ(2),"AF",$E(X,1,30),DA)="" 2)= K ^BARTR(DUZ(2),"AF",$E(X,1,30),DA)
6	A/R ACCOUNT	0;6	POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02)	A/R ACCOUNTS/IHS(#90050.02) LAST EDITED: `FEB 02, 1995` CROSS-REFERENCE: `90050.03^AM6^MUMPS` 1)= D SAM6^BARPSTX 2)= D KAM6^BARPSTX CROSS-REFERENCE: `90050.03^AE` 1)= S ^BARTR(DUZ(2),"AE",$E(X,1,30),DA)="" 2)= K ^BARTR(DUZ(2),"AE",$E(X,1,30),DA)
7	MESSAGE	0;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 28, 1994`
8	PARENT LOCATION	0;8	POINTER TO AN UNDEFINED FILE	INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)=Y" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 06, 1994` SCREEN: `S DIC("S")="I $P(^(0),U,3)=Y"` EXPLANATION: `Insure Selection is a Parent`
9	PARENT ASUFAC	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 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)	SERVICE/SECTION(#49) LAST EDITED: `NOV 28, 1994`
11	VISIT LOCATION	0;11	POINTER TO AN UNDEFINED FILE	LAST EDITED: `NOV 28, 1994`
12	DATE	0;12	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 28, 1994`
13	ENTRY BY	0;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 28, 1994`
14	COLLECTION BATCH	0;14	POINTER TO A/R COLLECTION BATCH/IHS FILE (#90051.01)	A/R COLLECTION BATCH/IHS(#90051.01) LAST EDITED: `SEP 04, 1998` CROSS-REFERENCE: `90050.03^AD` 1)= S ^BARTR(DUZ(2),"AD",$E(X,1,30),DA)="" 2)= K ^BARTR(DUZ(2),"AD",$E(X,1,30),DA) CROSS-REFERENCE: `90050.03^ACB14^MUMPS` 1)= D SET^BARX003(14) 2)= D KILL^BARX003(14)
15	COLLECTION ITEM	0;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 04, 1998` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` CROSS-REFERENCE: `90050.03^ACB15^MUMPS` 1)= D SET^BARX003(15) 2)= D KILL^BARX003(15)
16	BILL TYPE	0;16	SET	'P' FOR PRIMARY; 'R' FOR ROLLOVER; LAST EDITED: `JAN 11, 1995` NOTES: `TRIGGERED by the BILL (A/R) field of the A/R TRANSACTIONS/IHS File`
17	TREASURY DEPOSIT NUMBER	0;17	FREE TEXT	INPUT TRANSFORM: `K:'$$GOODIPAC^BARUFEX3(X) X` LAST EDITED: `APR 07, 2008` HELP-PROMPT: `Enter a 6-20 character Treasury Deposit Number/IPAC, PRE-UFMS COLLECTIONS, or NONPAYMENT` TECHNICAL DESCR: Multiple 1201 tracks history of this field. This field will override whatever is entered in collection batch/item TDN but populating this field won't trigger transaction to transmit to UFMS again if it has already gone. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
101	TRANSACTION TYPE	1;1	POINTER TO A/R TABLE ENTRY/IHS FILE (#90052.02)	A/R TABLE ENTRY/IHS(#90052.02) LAST EDITED: `SEP 04, 1998` CROSS-REFERENCE: `90050.03^ACB101^MUMPS` 1)= D SET^BARX003(101) 2)= D KILL^BARX003(101)
102	ADJUSTMENT CATEGORY	1;2	POINTER TO A/R TABLE TYPE/IHS FILE (#90052.01)	A/R TABLE TYPE/IHS(#90052.01) LAST EDITED: `NOV 28, 1994`
103	ADJUSTMENT TYPE	1;3	POINTER TO A/R TABLE ENTRY/IHS FILE (#90052.02)	A/R TABLE ENTRY/IHS(#90052.02) LAST EDITED: `NOV 28, 1994`
104	FILING STATUS	1;4	SET	'1' FOR COMPLETED; '0' FOR NOT COMPLETED; LAST EDITED: `JAN 11, 1995`
105	GL STATUS	1;5	SET	'O' FOR OPEN; 'R' FOR RESOLVED; LAST EDITED: `JAN 17, 1995` CROSS-REFERENCE: `90050.03^AGL` 1)= S ^BARTR(DUZ(2),"AGL",$E(X,1,30),DA)="" 2)= K ^BARTR(DUZ(2),"AGL",$E(X,1,30),DA)
106	DATA SOURCE	1;6	SET	'e' FOR ERA Posted; LAST EDITED: `DEC 17, 2007` TECHNICAL DESCR: Field created in A/R V1.7 Patch 4. Used to mark transactions that are posted through ERA Posting with an "e". This field will be displayed when viewing the bill's transaction history.
107	REMARK CODE	1;7	POINTER TO A/R EDI REMARK CODES FILE (#90056.23)	A/R EDI REMARK CODES(#90056.23) LAST EDITED: `FEB 13, 2004` DESCRIPTION: `Created A/R V1.7 Patch 5 - This field is used to capture remark codes that may be passed via electronic remittance advices. Currently, remark codes are not accessible via the manual posting process. This field should` only be populated if the Transaction Type is remark code.
108	NCPDP REJ/PAY CODE	1;8	POINTER TO ABSP NCPDP REJECT CODES FILE (#9002313.93)	ABSP NCPDP REJECT CODES(#9002313.93) LAST EDITED: `MAR 03, 2004` TECHNICAL DESCR: Added A/R V1.7 Patch 5 to assist in posting 835's. These codes may come in on Pharmacy remits in the LQ segment. We are accomodating that possibility.
109	STND CLAIM ADJ REASON	1;9	POINTER TO A/R EDI STND CLAIM ADJ REASONS FILE (#90056.06)	A/R EDI STND CLAIM ADJ REASONS(#90056.06) LAST EDITED: `MAR 15, 2007` HELP-PROMPT: `ENTER A STANDARD CLAIM ADJUSTMENT REASON`
110	DATE OF TRANSACTION REVERSED	1;10	POINTER TO AN UNDEFINED FILE	LAST EDITED: `JUL 08, 2008` HELP-PROMPT: `Enter date and time of the transaction you are reversing.`
111	REV TREASURY DEP NUMBER/IPAC	1;11	FREE TEXT	INPUT TRANSFORM: `K:'$$GOODIPAC^BARUFEX3(X) X` OUTPUT TRANSFORM: `S:Y'="" Y=$$TRANS^BARUFTDN(Y,D0)` LAST EDITED: `JUL 01, 2008` HELP-PROMPT: `Answer must be 6-20 characters in length` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
112	IGNORE TRANSACTION	1;12	SET	'I' FOR TRANSACTION IGNORED; LAST EDITED: `MAR 26, 2008` DESCRIPTION: Ignore the transaction pair by not sending them to UFMS and not putting them in the Not Sent bucket. TECHNICAL DESCR: `This field is populated during the export error checking process when:` the first payment is a reversal and precedes the payment are the same dollar amount have the same TDN/IPAC and both transactions are in the same collection batch item
201	FROM TRANSACTION	2;1	POINTER TO AN UNDEFINED FILE	LAST EDITED: `NOV 28, 1994`
202	TO TRANSACTION	2;2	POINTER TO AN UNDEFINED FILE	LAST EDITED: `NOV 28, 1994`
203	ARCHIVE STATUS	2;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `NOV 28, 1994` HELP-PROMPT: `Answer must be 1-30 characters in length.`
204	ARCHIVE ID	2;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `NOV 28, 1994` HELP-PROMPT: `Answer must be 1-30 characters in length.`
205	PAYOR	2;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 27, 1994` HELP-PROMPT: `Answer must be 1-30 characters in length.`
301	FROM A/R ACCOUNT	3;1	POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02)	A/R ACCOUNTS/IHS(#90050.02) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,10)=BARUSER(29,""I"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 27, 1994` SCREEN: `S DIC("S")="I $P(^(0),U,10)=BARUSER(29,""I"")"` EXPLANATION: `LIMIT TO SAME SERVICE/SECTION`
302	TO A/R ACCOUNT	3;2	POINTER TO AN UNDEFINED FILE	INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,10)=BARUSR(29,""I"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 27, 1994` SCREEN: `S DIC("S")="I $P(^(0),U,10)=BARUSR(29,""I"")"` EXPLANATION: `LIMIT TO SAME SERVICE/SECTION`
303	FROM BILL	3;3	POINTER TO A/R BILL/IHS FILE (#90050.01)	A/R BILL/IHS(#90050.01) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,10)=BARUSER(29,""I"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 27, 1994` SCREEN: `S DIC("S")="I $P(^(0),U,10)=BARUSER(29,""I"")"` EXPLANATION: `LIMIT TO SAME SERVICE/SECTION`
304	TO BILL	3;4	POINTER TO A/R BILL/IHS FILE (#90050.01)	A/R BILL/IHS(#90050.01) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,10)=BARUSER(29,""I"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 27, 1994` SCREEN: `S DIC("S")="I $P(^(0),U,10)=BARUSER(29,""I"")"` EXPLANATION: `LIMIT TO SAME SERVICE/SECTION`
305	REFUND CHECK NUMBER	3;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `FEB 01, 1995` HELP-PROMPT: `Answer must be 1-30 characters in length.`
306	REFUND CHECK DATE	3;6	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 01, 1995`
401	IDENTIFICATION CODE QUALIFIER	4;1	SET	'XX' FOR NATIONAL PROVIDE IDENTIFIER; 'FI' FOR TAX IDENTIFICATION NUMBER; 'NP' FOR NOT POPULATED; LAST EDITED: `MAR 29, 2007` HELP-PROMPT: `ENTER AN 835 IDENTIFICATION CODE QUALIFIER`
402	NPI	4;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<10) X` LAST EDITED: `MAR 16, 2007` HELP-PROMPT: `ENTER A 10 DIGIT NATIONAL PROVIDER INDENTIFIER` CROSS-REFERENCE: `90050.03^NPI` 1)= S ^BARTR(DUZ(2),"NPI",$E(X,1,30),DA)="" 2)= K ^BARTR(DUZ(2),"NPI",$E(X,1,30),DA) THIS CROSS REFERENCE WAS CREATED (AR1.81) AT REQUEST OF FEDERAL BUSINESS STAFF TO BE USED FOR REPORTS NPI = NATIONAL PROVIDER IDENTIFIER
403	TAXPAYER IDENTIFICATION NUMBER	4;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<2) X` LAST EDITED: `MAR 16, 2007` HELP-PROMPT: `ENTER A TAXPAYER IDENTIFICATION NUMBER (2-80)` CROSS-REFERENCE: `90050.03^TIN` 1)= S ^BARTR(DUZ(2),"TIN",$E(X,1,30),DA)="" 2)= K ^BARTR(DUZ(2),"TIN",$E(X,1,30),DA) THIS CROSS REFERENCE WAS CREATED (AR1.81) AT REQUEST OF FEDERAL BUSINESS STAFF TO BE USED FOR REPORTS TIN = TAXPAYER IDENTIFICATION NUMBER
501	PAYMENT CREDIT APPLIED TO	5;1	POINTER TO A/R BILL/IHS FILE (#90050.01)	A/R BILL/IHS(#90050.01) LAST EDITED: `JUN 18, 2008` DESCRIPTION: WHEN A REVERSAL IS MATCHED TO A PAYMENT THIS FIELD WILL HOLD THE A/R BILL THE REVERSAL IS MATCHED TO.
502	PAYMENT CREDIT APPLIED FROM	5;2	POINTER TO A/R BILL/IHS FILE (#90050.01)	A/R BILL/IHS(#90050.01) LAST EDITED: `JUN 18, 2008` DESCRIPTION: WHEN A REVERSAL IS MATCHED TO A PAYMENT THIS WILL HOLD THE A/R BILL OF THE REVERSAL IT WAS MATCHED TO.
601	UFMS EXPORT FILE	6;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<3) X` LAST EDITED: `OCT 17, 2008` HELP-PROMPT: `Answer must be 3-80 characters in length`
602	SESSION ID	6;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `OCT 17, 2008` HELP-PROMPT: `Answer must be 3-30 characters in length` TECHNICAL DESCR: This is the Session Date/Time identifier.
603	UFMS FILE EXPORTED BY	6;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 19, 2008`
604	UNIQUEID	6;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `OCT 20, 2008` HELP-PROMPT: `Answer must be 3-40 characters in length` TECHNICAL DESCR: Modified to change length of field from 35 to 40 characters. This accommodates those satellites that use the parent asufac number and prevents duplicate invoice numbers in 3PB. mrs 10/20/2008
1001	TEXT	10;0	WORD-PROCESSING #90050.31001
1101	PAYEE ADD IDENTIFICATION	11;0	Multiple #90050.31101	90050.31101
1201	TDN CHANGE DATE	12;0	DATE Multiple #90050.31201	90050.31201 LAST EDITED: `APR 07, 2008`

Name	Field # of Occurrence
^%DT	.01+1, 12+1, 306+1
KAM4^BARPSTX	4(XREF 2K)
KAM5^BARPSTX	5(XREF 1K)
KAM6^BARPSTX	6(XREF 1K)
SAM4^BARPSTX	4(XREF 2S)
SAM5^BARPSTX	5(XREF 1S)
SAM6^BARPSTX	6(XREF 1S)
$$ADJ^BARTR	3.7+1
$$PAR^BARTR	3.9+1
$$PAY^BARTR	3.6+1
$$PRMBLAMT^BARTR	3.2+1
$$VALADJ^BARTR	3.619+1, 3.62+1, 3.703+1, 3.704+1, 3.713+1, 3.714+1, 3.715+1, 3.716+1
$$GOODIPAC^BARUFEX3	17+1, 111+1
$$TRANS^BARUFTDN	111OT+1
KILL^BARX003	14(XREF 2K), 15(XREF 1K), 101(XREF 1K)
SET^BARX003	14(XREF 2S), 15(XREF 1S), 101(XREF 1S)
^DIC	8+1, 301+1, 302+1, 303+1, 304+1
^DICR	4(XREF 3n1.4)
Y^DIQ	ID4+1, ID5+1, ID101+1
$$VAL^XBDIQ1	3.61+1
$$VALI^XBDIQ1	3.61+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	ID5+1
^BARBL(	ID4+1, 4(XREF 3n49.2)
^BARTBL - [#90052.02]	ID101+1
^BARTR(	.01(XREF 1S), .01(XREF 1K), 3.5+1, 4(XREF 1S), 4(XREF 1K), 4(XREF 3S), 4(XREF 3n1.4), 5(XREF 2S), 5(XREF 2K), 6(XREF 2S) , 6(XREF 2K), 14(XREF 1S), 14(XREF 1K), 105(XREF 1S), 105(XREF 1K), 402(XREF 1S), 402(XREF 1K), 403(XREF 1S), 403(XREF 1K)
^DD(	4(XREF 3n1.4)
^DD(9000001	ID5+1
^DD(90050.01	ID4+1, 4(XREF 3n49.2)
^DD(90050.03	3.8+1, 4(XREF 3S), 4(XREF 3n1.1)
^DD(90052.02	ID101+1

Name	Field # of Occurrence
^(0	ID4+1, ID5+1, ID101+1, 3.5+1, 4(XREF 3S), 4(XREF 3n1.4), 4(XREF 3n49.2)
^(1	ID101+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 12+1, 306+1*
%I	ID4+1!, ID5+1!, ID101+1*!
>> C	ID4+1, ID5+1, ID101+1*
>> D0	3.5+1, 3.61+1, 4(XREF 3S), 4(XREF 3n1.1), 4(XREF 3n49.2), 111OT+1
>> DA	.01(XREF 1S), .01(XREF 1K), 4(XREF 1S), 4(XREF 1K), 4(XREF 3S), 5(XREF 2S), 5(XREF 2K), 6(XREF 2S), 6(XREF 2K), 14(XREF 1S) , 14(XREF 1K), 105(XREF 1S), 105(XREF 1K), 402(XREF 1S), 402(XREF 1K), 403(XREF 1S), 403(XREF 1K)
DIC	ID4+1, ID5+1, ID101+1, 8+1!, 301+1!, 302+1!, 303+1!, 304+1!*
DIC("S"	8+1, 8SCR+1, 301+1, 301SCR+1, 302+1, 302SCR+1, 303+1, 303SCR+1, 304+1, 304SCR+1
>> DIE	8+1, 301+1, 302+1, 303+1, 304+1
>> DIG	4(XREF 3n1.4)
>> DIH	4(XREF 3n1.4)
>> DINUM	.01+1*
>> DIU	4(XREF 3S)
DIV	4(XREF 3S), 4(XREF 3n1.1), 4(XREF 3n1.4), 4(XREF 3n49.2)
DIV(0	4(XREF 3S), 4(XREF 3n1.4)
DUZ(2	ID4+1, .01(XREF 1S), .01(XREF 1K), 3.5+1, 4(XREF 1S), 4(XREF 1K), 4(XREF 3S), 4(XREF 3n1.4), 4(XREF 3n49.2), 5(XREF 2S) , 5(XREF 2K), 6(XREF 2S), 6(XREF 2K), 14(XREF 1S), 14(XREF 1K), 105(XREF 1S), 105(XREF 1K), 402(XREF 1S), 402(XREF 1K), 403(XREF 1S) , 403(XREF 1K)
>> I(0	4(XREF 3n1.1), 4(XREF 3n49.2)
U	ID4+1, ID5+1, ID101+1, 3.5+1, 3.8+1, 4(XREF 3S), 4(XREF 3n1.1), 4(XREF 3n1.4), 4(XREF 3n49.2)
X	.001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), 2+1!, 3+1!, 3.2+1, 3.5+1, 3.6+1, 3.61+1* , 3.619+1, 3.62+1, 3.7+1, 3.703+1, 3.704+1, 3.713+1, 3.714+1, 3.715+1, 3.716+1, 3.8+1 , 3.9+1, 4(XREF 1S), 4(XREF 1K), 4(XREF 3S), 4(XREF 3n1.1), 4(XREF 3n1.4), 5(XREF 2S), 5(XREF 2K), 6(XREF 2S), 6(XREF 2K) , 8+1!, 9+1!, 12+1!, 14(XREF 1S), 14(XREF 1K), 15+1!, 17+1!, 105(XREF 1S), 105(XREF 1K), 111+1! , 203+1!, 204+1!, 205+1!, 301+1!, 302+1!, 303+1!, 304+1!, 305+1!, 306+1!, 402+1! , 402(XREF 1S), 402(XREF 1K), 403+1!, 403(XREF 1S), 403(XREF 1K), 601+1!, 602+1!, 604+1!
Y	ID4+1, ID5+1, ID101+1, .01+1, 4(XREF 3S), 8+1, 12+1, 111OT+1, 301+1, 302+1 , 303+1, 304+1, 306+1
Y(	3.5+1, 3.8+1
Y(0	111OT+1*
Y(1	4(XREF 3S)
Y(101	4(XREF 3n1.1), 4(XREF 3n49.2)
Y(102	4(XREF 3n1.1), 4(XREF 3n49.2)

Customize PDF page

Package: IHS Accounts Receivable

Global: ^BARTR(2906

Information

Description

Accessed By FileMan Db Calls, Total: 66

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 13

Fields, Total: 68

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: