Global: ^BARBL(2906

FileMan FileNo	FileMan Filename	Package
90050.01	A/R BILL/IHS	IHS Accounts Receivable

Package	Total	Routines
IHS Accounts Receivable	83	BAR276 BAR50EB BAR50P04 BAR50P06 BAR50P08 BAR50P4A BARACSI BARBAD3 BARBAD4 BARBAD5 BARBAD6 BARBADU BARBLOS BARCLU01 BARDINQ BARDMAN2 BARDMAN3 BARDMLP BARDMLPR BARDYSUT BARDYSV1 BARDYSV3 BARDYSV5 BARDYSVZ BAREDEB BAREDP04 BAREDP06 BAREDP08 BAREDP4A BARFPST5 BARFRAPI BARMAWO2 BARMAWO3 BARMPAS BARMPAS2 BARMPAS4 BARNCPDP BARPNP3 BARPNPU BARPPY01 BARPPY02 BARPPY1A BARPRF3 BARPRFU BARPRMKP BARPST5 BARPST6 BARPSTU BARPUC3 BARPUCU BARRADJ BARRADJ2 BARRAOI BARRASM BARRATS BARRCHK BARRCHK1 BARRIDR BARRLBL BARRNBRE BARRNEGB BARROLL BARRPPS BARRPRAC BARRPRP BARRPSRA BARRPVC BARRSYNC BARRTRAN BARSYNC BARTDO BARTR BARUFCNR BARUFER BARUFEX1 BARUFFN BARUFRP3 BARUFRPT BARUFUT BARUFUT0 BARUFUT1 BARUP1 BARUTL
Third Party Billing	9	ABMDREEX ABMEXLIP ABMM2P11 ABMM2P12 ABMM2PVH ABMMUPV1 ABMMUPVH ABMPSAPI ABMTALL2
IHS Uniform Data System	8	BUD1RPC4 BUD2RPC4 BUDARPC4 BUDBRPC4 BUDCRPC4 BUDDRPC4 BUDERPC4 BUDHRPC4
IHS Support HL7 Interfaces	1	BHLX835
Tucson	1	BZSMAWO3

Package	Total	FileMan Files
IHS Accounts Receivable	10	A/R EDI 835 HOLDING(#90056.07)[.08] A/R BILL ERROR(#90050.04)[.01] A/R COLLECTION BATCH/IHS(#90051.01)[#90051.1101(6)] A/R DEBT COLLECTION LOG(#90050.05)[.02] A/R DEBT MANAGEMENT BILLS(#90053.05)[.01] A/R EDI CLAIM STATUS(#90056.08)[.02] A/R EDI IMPORT(#90056.02)[#90056.0205(1.01), #90056.0205(601), #90056.0205(602)] A/R FLAT RATE POSTING(#90054.01)[#90054.0103(.01)] A/R PREPAYMENT(#90050.06)[.09] A/R TRANSACTIONS/IHS(#90050.03)[4, 303, 304, 501, 502]

Package	Total	FileMan Files
IHS Accounts Receivable	3	A/R PARENT/SATELLITE/IHS(#90052.05)[8, 108] A/R ACCOUNTS/IHS(#90050.02)[3, 104, 201, 202, 205, 206, 207, 212, 213] A/R TABLE ENTRY/IHS(#90052.02)[16, #90050.1301(6)]
Kernel	2	SERVICE/SECTION(#49)[10, 110] NEW PERSON(#200)[6, 113, 214, 215, 405]
IHS Patient	1	PATIENT(#9000001)[101]
Scheduling	1	CLINIC STOP(#40.7)[112]
Third Party Billing	1	3P VISIT TYPE(#9002274.8)[114]

Fields, Total: 87

Field #	Name	Loc	Type	Details
.001	IEN		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 29, 1994` HELP-PROMPT: `Type a Number between 0 and 999999999999999, 0 Decimal Digits`
.01	BILL NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `MAY 04, 1995` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `90050.01^B` 1)= S ^BARBL(DUZ(2),"B",$E(X,1,30),DA)="" 2)= K ^BARBL(DUZ(2),"B",$E(X,1,30),DA)
.02	ASUFAC-IEN	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `SEP 30, 1994` HELP-PROMPT: `Answer must be 3-20 characters in length.` NOTES: `TRIGGERED by the PARENT LOCATION field of the A/R BILL/IHS File`
3	A/R ACCOUNT	0;3	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)=BARUSR(29,""I""),$$VAL^XBDIQ1(90050.02,+Y,2)[""BILL""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 02, 1995` SCREEN: `S DIC("S")="I $P(^(0),U,10)=BARUSR(29,""I""),$$VAL^XBDIQ1(90050.02,+Y,2)[""BILL"""` EXPLANATION: `limit to Service/Section & BILLABLE` CROSS-REFERENCE: `90050.01^D` 1)= S ^BARBL(DUZ(2),"D",$E(X,1,30),DA)="" 2)= K ^BARBL(DUZ(2),"D",$E(X,1,30),DA)
4	BILL TYPE	0;4	SET	'P' FOR PRIMARY; 'R' FOR ROLLOVER; LAST EDITED: `JAN 11, 1995`
5	ENTRY DATE	0;5	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 10, 1994`
6	ENTRY USER	0;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 10, 1994`
7	BILLED DATE	0;7	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 13, 1995` NOTES: `TRIGGERED by the 3P APPROVE DATE field of the A/R BILL/IHS File` TRIGGERED by the 3P PRINT DATE field of the A/R BILL/IHS File CROSS-REFERENCE: `90050.01^F` 1)= S ^BARBL(DUZ(2),"F",$E(X,1,30),DA)="" 2)= K ^BARBL(DUZ(2),"F",$E(X,1,30),DA)
7.2	AGE		COMPUTED	MUMPS CODE: `S X=$$FMDIFF^XLFDT(DT,$P(^BARBL(DUZ(2),DA,0),"^",7))` ALGORITHM: `S X=$$FMDIFF^XLFDT(DT,$P(^BARBL(DUZ(2),DA,0),"^",7))`
7.3	0-30		COMPUTED	MUMPS CODE: `S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y<31 S X=$$VAL^XBDIQ1(90050.01,D0,15)` ALGORITHM: `S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y<31 S X=$$VAL^XBDIQ1(90050.01,D0,15)` LAST EDITED: `MAR 16, 1995`
7.4	31-60		COMPUTED	MUMPS CODE: `S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y>30,Y<61 S X=$$VAL^XBDIQ1(90050.01,D0,15)` ALGORITHM: `S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y>30,Y<61 S X=$$VAL^XBDIQ1(90050.01,D0,15)`
7.5	61-90		COMPUTED	MUMPS CODE: `S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y>60,Y<91 S X=$$VAL^XBDIQ1(90050.01,D0,15)` ALGORITHM: `S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y>60,Y<91 S X=$$VAL^XBDIQ1(90050.01,D0,15)`
7.6	91-120		COMPUTED	MUMPS CODE: `S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y>90,Y<121 S X=$$VAL^XBDIQ1(90050.01,D0,15)` ALGORITHM: `S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y>90,Y<121 S X=$$VAL^XBDIQ1(90050.01,D0,15)` LAST EDITED: `MAR 13, 1995`
7.7	120+		COMPUTED	MUMPS CODE: `S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y>120 S X=$$VAL^XBDIQ1(90050.01,D0,15)` ALGORITHM: `S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y>120 S X=$$VAL^XBDIQ1(90050.01,D0,15)` LAST EDITED: `MAR 13, 1995`
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` CROSS-REFERENCE: `^^TRIGGER^90050.01^9` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(90050.01,8,1,1,1.1) X ^DD(90050.01,8,1,1,1.4) 1.1)= S X=DIV X ^DD(90050.01,8,1,1,49.2) S D0=$P(Y(101),U,1) S:'$D(^DIC(4,+D0,0)) D0=-1 S X=$P(Y(101),U,10) S D0=I(0,0) 1.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=90050.01,DIG=9 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(^AUTTLOC(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^AUTTLOC(D0,0)):^(0),1:"") CREATE VALUE)= #8:#.01:ASUFAC INDEX DELETE VALUE)= NO EFFECT FIELD)= #9 CROSS-REFERENCE: `^^TRIGGER^90050.01^.02` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(90050.01,8,1,2,1.1) X ^DD(90050.01,8,1,2,1.4) 1.1)= S X=DIV S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,9)_"-"_$S('$D(D0):"",D0<0:"",1:D0) 1.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=90050.01,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= #9_"-"_#.001 DELETE VALUE)= NO EFFECT FIELD)= #.02
9	A/R BILLING SITE/ASUFAC	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 19, 1994` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits` NOTES: `TRIGGERED by the PARENT LOCATION field of the A/R BILL/IHS File`
10	PARENT A/R SERVICE SECTION	0;10	POINTER TO SERVICE/SECTION FILE (#49)	SERVICE/SECTION(#49) LAST EDITED: `DEC 06, 1994`
11	ENTRY TYPE	0;11	SET	'3PU' FOR 3P UPLOAD; '3PM' FOR 3P MANUAL; 'OT' FOR OTHER; LAST EDITED: `MAR 16, 1995`
12	A/R ACCOUNT REFERENCE #	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `OCT 19, 1994` HELP-PROMPT: `Answer must be 3-20 characters in length.`
13	AMOUNT BILLED	0;13	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X` LAST EDITED: `JAN 04, 1995` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits`
14	TOTAL BILL AMOUNT	0;14	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `SEP 29, 1994` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits` NOTES: `TRIGGERED by the TOTAL ITEM COST field of the ITEM sub-field of the A/R BILL/IHS File`
15	CURRENT BILL AMOUNT	0;15	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999)!(X<-9999999) X` LAST EDITED: `DEC 29, 2008` HELP-PROMPT: `Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits` CROSS-REFERENCE: `90050.01^ABAL^MUMPS` 1)= S:+X>0 ^BARBL(DUZ(2),"ABAL",$P(^BARBL(DUZ(2),DA,0),"^",3),DA)="" 2)= K ^BARBL(DUZ(2),"ABAL",$P(^BARBL(DUZ(2),DA,0),"^",3),DA) CROSS-REFERENCE: `90050.01^OBAL^MUMPS` 1)= S X=$FN(X,"-") S:+X'<.01 ^BARBL(DUZ(2),"OBAL",DA)="" 2)= S X=$FN($P(^BARBL(DUZ(2),DA,0),U,15),"-") I +X<.01 K ^BARBL(DUZ(2),"OBAL",DA) This cross-reference is designed to contain those bills that have an open balance be it debit or credit. Created for ASM report V1.6 Patch 2. CROSS-REFERENCE: `90050.01^APBAL^MUMPS` 1)= N DFN S DFN=+$G(^BARBL(DUZ(2),DA,1)) I DFN,X>0 S ^BARBL(DUZ(2),"APBAL",DFN,DA)="" 2)= N DFN S DFN=+$G(^BARBL(DUZ(2),DA,1)) K:DFN ^BARBL(DUZ(2),"APBAL",DFN,DA) This cross-reference is designed to contain those bills with a positive balance that have a patient name defined. This cross-reference is used when generating Patient Account Statements. It was created for AR V1.7 Patch 2.
16	CURRENT BILL STATUS	0;16	POINTER TO A/R TABLE ENTRY/IHS FILE (#90052.02)	A/R TABLE ENTRY/IHS(#90052.02) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)=""BLST""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 19, 1994` SCREEN: `S DIC("S")="I $P(^(0),U,3)=""BLST"""` EXPLANATION: `SCREEN SELECTION TO BILL STATUS TYPE ENTRIES`
17	3P IEN (DA)	0;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 02, 1995` HELP-PROMPT: `Type a Number between 0 and 999999999999, 0 Decimal Digits`
17.2	3P BILL STATUS		COMPUTED	MUMPS CODE: `S X=$$VAL^BAR3PINQ(D0,"B",.04)` ALGORITHM: `S X=$$VAL^BAR3PINQ(D0,"B",.04)`
17.4	3P CLAIM STATUS		COMPUTED	MUMPS CODE: `S X=$$VAL^BAR3PINQ(D0,"C",.04)` ALGORITHM: `S X=$$VAL^BAR3PINQ(D0,"C",.04)`
18	3P APPROVE DATE	0;18	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 01, 1996` CROSS-REFERENCE: `^^TRIGGER^90050.01^7` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$VALI^XBDIQ1(90050.01,D0,19)'>0 I X S X=DIV S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(90050.01,18,1,1,1.4) 1.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=90050.01,DIG=7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$VALI^XBDIQ1(90050.01,D0,19)'>0 I X S X=DIV S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(90050.01,18,1,1,2.1) X ^DD(90050.01,18,1,1,2.4) 2.1)= S X=DIV S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,18) 2.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=90050.01,DIG=7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE CONDITION)= I $$VALI^XBDIQ1(90050.01,D0,19)'>0 CREATE VALUE)= #18 DELETE CONDITION)= I $$VALI^XBDIQ1(90050.01,D0,19)'>0 DELETE VALUE)= #18 FIELD)= #7 CROSS-REFERENCE: `90050.01^AG` 1)= S ^BARBL(DUZ(2),"AG",$E(X,1,30),DA)="" 2)= K ^BARBL(DUZ(2),"AG",$E(X,1,30),DA)
19	3P PRINT DATE	0;19	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 30, 2000` CROSS-REFERENCE: `^^TRIGGER^90050.01^7` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(90050.01,19,1,1,1.4) 1.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=90050.01,DIG=7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(90050.01,19,1,1,2.1) X ^DD(90050.01,19,1,1,2.4) 2.1)= S X=DIV S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,19) 2.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=90050.01,DIG=7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= #19 DELETE VALUE)= #19 FIELD)= #7 CROSS-REFERENCE: `90050.01^H` 1)= S ^BARBL(DUZ(2),"H",$E(X,1,30),DA)="" 2)= K ^BARBL(DUZ(2),"H",$E(X,1,30),DA)
20	3P UPLOAD CREDIT	0;20	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X` LAST EDITED: `FEB 01, 1995` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits`
21	DOL PAYMENT	0;21	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 13, 1995`
22	3P DUZ(2)	0;22	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 23, 2000` HELP-PROMPT: `Type a Number between 0 and 99999, 0 Decimal Digits`
23	DISCHARGE SERVICE		COMPUTED	MUMPS CODE: `S X=$$DSCHSVC^BARCFLD` ALGORITHM: `S X=$$DSCHSVC^BARCFLD` TECHNICAL DESCR: `Field added in V1.8 of Accounts Receivable. Needed to sort financial reports such as ASM and PSR. Finds Primary visit from 3P Bill file PCC Visit multiple. Uses that visit to cross to V Hospitalization file and pick up` Discharge Service. The value stored here is the internal value to Discharge Service in V Hospitalization File which is pointer to Facility Treating Specialty File.
24	PRIMARY DIAGNOSIS		COMPUTED	MUMPS CODE: `S X=$$PRIMDIAG^BARCFLD` ALGORITHM: `S X=$$PRIMDIAG^BARCFLD` LAST EDITED: `JUL 18, 2013` TECHNICAL DESCR: `Field added in V1.8 of Accounts Receivable. Needed to sort financial reports such as the Inpatient Primary Diagnosis Report. Finds Primary Diagnosis by finding the corresponding bill in the 3P Bill File and looping the` Diagnosis multiple for the diagnosis marked as priority one. The value returned will actually be the .01 value of the ICD DIAGNOSIS file (ICD9 or ICD10 Diagnosis Code).
25	ALLOWABLE AMOUNT		COMPUTED	MUMPS CODE: `S X=$$CALC^BARBLCLC(D0)` ALGORITHM: `S X=$$CALC^BARBLCLC(D0)` LAST EDITED: `MAR 05, 2010` DESCRIPTION: ALLOWABLE AMOUNT = AMOUNT BILLED MINUS ADJUSTMENTS TECHNICAL DESCR: ^BARBL(DUZ(2),"AC",D0,TRANSACTION.IEN points to ^BARTR(DUZ(2),IEN where D0 is the BILL IEN
26	ICD CODE INDICATOR		COMPUTED	MUMPS CODE: `S X=$$ICDVER^BARCFLD()` ALGORITHM: `S X=$$ICDVER^BARCFLD()` LAST EDITED: `JUL 22, 2013` TECHNICAL DESCR: `Field added in V1.8 of Accounts Receivable. The value returned will depend on the infrastructure supporting the ICD-10 coding system. If the infrastructure is not currently installed (pre - ICD-10 systems) the value will` be nil (empty string) implying the ICD-9 coding. On systems with fully installed the ICD-10 infrastructure the value will be ICD-9 or ICD-10 (the coding systems in which the Primary diagnoses was entered.)
27	3P BILL TYPE		COMPUTED	MUMPS CODE: `S X=$$VAL^BAR3PINQ(D0,"B",.02)` ALGORITHM: `S X=$$VAL^BAR3PINQ(D0,"B",.02)` LAST EDITED: `MAR 13, 2018`
101	PATIENT	1;1	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) LAST EDITED: `JAN 04, 1995` CROSS-REFERENCE: `90050.01^C` 1)= S ^BARBL(DUZ(2),"C",$E(X,1,30),DA)="" 2)= K ^BARBL(DUZ(2),"C",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^90050.01^116` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARBL(DUZ(2),D0,1)):^(1),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(90050.01,101,1,2,1.1) X ^DD(90050.01,101,1,2,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) 1.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,16)=DIV,DIH=90050.01,DIG=116 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= #101 DELETE VALUE)= NO EFFECT FIELD)= #116 CROSS-REFERENCE: `90050.01^AC^MUMPS` 1)= I $P($G(^BARBL(DUZ(2),DA,1)),U,2) S ^BARBL(DUZ(2),"ABC",X,$P(^BARBL(DUZ(2),DA,1),U,2),DA)="" 2)= I $P($G(^BARBL(DUZ(2),DA,1)),U,2) K ^BARBL(DUZ(2),"ABC",X,$P(^BARBL(DUZ(2),DA,1),U,2),DA)
102	DOS BEGIN	1;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 14, 1994` CROSS-REFERENCE: `90050.01^AD^MUMPS` 1)= I $P($G(^BARBL(DUZ(2),DA,1)),U,1) S ^BARBL(DUZ(2),"ABC",$P(^BARBL(DUZ(2),DA,1),U,1),X,DA)="" 2)= I $P($G(^BARBL(DUZ(2),DA,1)),U,1) K ^BARBL(DUZ(2),"ABC",$P(^BARBL(DUZ(2),DA,1),U,1),X,DA) CROSS-REFERENCE: `90050.01^E` 1)= S ^BARBL(DUZ(2),"E",$E(X,1,30),DA)="" 2)= K ^BARBL(DUZ(2),"E",$E(X,1,30),DA)
103	DOS END	1;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 04, 1994`
104	GUARANTOR	1;4	POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02)	A/R ACCOUNTS/IHS(#90050.02) LAST EDITED: `DEC 10, 1994`
105	PATIENT SSN	1;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<9) X` OUTPUT TRANSFORM: `F I=1:1:$L(Y)-4 S $E(Y,I)="X"` LAST EDITED: `AUG 22, 2013` HELP-PROMPT: `Answer must be 9-11 characters in length.`
106	PATIENT TYPE	1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `OCT 06, 1994` HELP-PROMPT: `Answer must be 3-30 characters in length.`
107	PATIENT SUFAC/HRN	1;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `OCT 06, 1994` HELP-PROMPT: `Answer must be 3-20 characters in length.`
108	VISIT LOCATION	1;8	POINTER TO AN UNDEFINED FILE	**********************REQUIRED FIELD********************** LAST EDITED: `DEC 06, 1994`
109	BILLING LOC/ASUFAC	1;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `OCT 05, 1994` HELP-PROMPT: `Answer must be 1-10 characters in length.`
110	BILLING LOC/SERVICE/SECTION	1;10	POINTER TO SERVICE/SECTION FILE (#49)	SERVICE/SECTION(#49) LAST EDITED: `OCT 05, 1994`
111	3P CLAIM #	1;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `OCT 06, 1994` HELP-PROMPT: `Answer must be 3-20 characters in length.`
112	CLINIC TYPE	1;12	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `JAN 17, 1995`
113	PRIMARY PROVIDER	1;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 10, 1996`
114	VISIT TYPE	1;14	POINTER TO 3P VISIT TYPE FILE (#9002274.8)	3P VISIT TYPE(#9002274.8) LAST EDITED: `MAY 08, 1995`
115	BEN/NON-BEN	1;15	SET	'0' FOR NON-BENEFICIARY; '1' FOR BENEFICIARY; LAST EDITED: `OCT 19, 1994`
116	PATIENT NAME (FT)	1;16	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X` LAST EDITED: `AUG 30, 1995` HELP-PROMPT: `Answer must be 3-30 characters in length.` NOTES: `TRIGGERED by the PATIENT field of the A/R BILL/IHS File` CROSS-REFERENCE: `90050.01^PTNM` 1)= S ^BARBL(DUZ(2),"PTNM",$E(X,1,30),DA)="" 2)= K ^BARBL(DUZ(2),"PTNM",$E(X,1,30),DA)
117	ICD9 VISIT CODE	1;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `MAY 08, 1995` HELP-PROMPT: `Answer must be 1-20 characters in length.`
201	POLICY HOLDER	2;1	POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02)	A/R ACCOUNTS/IHS(#90050.02) LAST EDITED: `OCT 19, 1994`
202	CURRENT POLICY HOLDER	2;2	POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02)	A/R ACCOUNTS/IHS(#90050.02) LAST EDITED: `OCT 19, 1994`
203	POLICY NUMBER	2;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<2) X` LAST EDITED: `OCT 19, 1994` HELP-PROMPT: `Answer must be 2-20 characters in length.`
204	POLICY RELATIONSHIP	2;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<2) X` LAST EDITED: `OCT 19, 1994` HELP-PROMPT: `Answer must be 2-15 characters in length.`
205	PRIMARY DEBTOR	2;5	POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02)	A/R ACCOUNTS/IHS(#90050.02) LAST EDITED: `OCT 19, 1994`
206	SECONDARY DEBTOR	2;6	POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02)	A/R ACCOUNTS/IHS(#90050.02) LAST EDITED: `OCT 19, 1994`
207	TERTIARY DEBTOR	2;7	POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02)	A/R ACCOUNTS/IHS(#90050.02) LAST EDITED: `OCT 19, 1994`
208	ROLLOVER STATUS	2;8	SET	'P' FOR PENDING; 'R' FOR ROLLED; LAST EDITED: `FEB 22, 1999` CROSS-REFERENCE: `90050.01^AF^MUMPS` 1)= S:X="P" ^BARBL(DUZ(2),"AF",X,DA)="" 2)= K ^BARBL(DUZ(2),"AF",X,DA)
209	ROLLOVER AMOUNT	2;9	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X` LAST EDITED: `MAY 08, 1995` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits`
210	ROLLOVER DATE	2;10	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 08, 1995` CROSS-REFERENCE: `90050.01^AE` 1)= S ^BARBL(DUZ(2),"AE",$E(X,1,30),DA)="" 2)= K ^BARBL(DUZ(2),"AE",$E(X,1,30),DA)
211	ROLLOVER TO BILL AMOUNT	2;11	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `OCT 19, 1994` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits`
212	ROLLOVER DEBTOR FROM	2;12	POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02)	A/R ACCOUNTS/IHS(#90050.02) LAST EDITED: `OCT 19, 1994`
213	ROLLOVER DEBTOR TO	2;13	POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02)	A/R ACCOUNTS/IHS(#90050.02) LAST EDITED: `OCT 19, 1994`
214	ROLLOVER USER	2;14	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 19, 1994`
215	APPROVING OFFICIAL	2;15	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 19, 1994`
216	APPROVING OFFICIAL ELEC SIG	2;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<6) X` LAST EDITED: `OCT 19, 1994` HELP-PROMPT: `Answer must be 6-20 characters in length.`
217	APPROVING OFFICIAL TITLE	2;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<2) X` LAST EDITED: `SEP 02, 1998` HELP-PROMPT: `Answer must be 2-20 characters in length.`
218	APPROVAL DATE	2;18	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 19, 1994`
301	ITEM	3;0	Multiple #90050.1301	90050.1301
401	ARCHIVE STATUS	4;1	SET	'A' FOR ARCHIVED; 'NA' FOR NOT ARCHIVED; LAST EDITED: `OCT 06, 1994`
402	ARCHIVE DATE	4;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 06, 1994`
403	ARCHIVE IDENTIFIER	4;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `OCT 06, 1994` HELP-PROMPT: `Answer must be 3-20 characters in length.`
404	EDIT/ERROR TYPE	4;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `OCT 06, 1994` HELP-PROMPT: `Answer must be 3-20 characters in length.`
405	EDIT USER	4;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 06, 1994`
406	EDIT DATE	4;6	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 06, 1994`
501	EDIT COMMENT	5;0	WORD-PROCESSING #90050.1501
601	COMMENTS FOR BILL	6;0	WORD-PROCESSING #90050.1601
701	POLICY HOLDER (FT)	7;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `APR 03, 1995` HELP-PROMPT: `Answer must be 1-30 characters in length.`
702	POLICY NUMBER (FT)	7;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `APR 03, 1995` HELP-PROMPT: `Answer must be 1-30 characters in length.`
801	OTHER BILL IDENTIFIER	8;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `SEP 27, 2011` HELP-PROMPT: `Answer must be 1-20 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `90050.01^G` 1)= S ^BARBL(DUZ(2),"G",$E(X,1,30),DA)="" 2)= K ^BARBL(DUZ(2),"G",$E(X,1,30),DA)
802	BAD DEBT AMOUNT	8;2	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999999)!(X<.01)!(X?.E1"."3.N) X` LAST EDITED: `APR 14, 2010` HELP-PROMPT: `Type a Dollar amount between .01 and 9999999999, 2 Decimal Digits`
803	BAD DEBT CHANGE DATE	8;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `APR 14, 2010` HELP-PROMPT: `(No range limit on date)`
901	COLLECTIONS STATUS DATE	9;0	DATE Multiple #90050.1901	90050.1901
1001	LINE ITEM CONTROL NUMBER	10;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<18) X` LAST EDITED: `SEP 22, 2011` HELP-PROMPT: `Answer must be 18 characters in length` TECHNICAL DESCR: `This field will be unique for each line item on a bill. It will also be placed on the 'header' level for a bills flat rate posting. The format being used is: Characters 1-12 = Bill IEN Characters 13-14 = Multiple #` Characters 15-18 = Line Item counter E.G. 000000007887270001

Name	Field # of Occurrence
^%DT	5+1, 7+1, 18+1, 19+1, 21+1, 102+1, 103+1, 210+1, 218+1, 402+1 , 406+1, 803+1
$$VAL^BAR3PINQ	17.2+1, 17.4+1, 27+1
$$CALC^BARBLCLC	25+1
$$DSCHSVC^BARCFLD	23+1
$$ICDVER^BARCFLD	26+1
$$PRIMDIAG^BARCFLD	24+1
^DIC	3+1, 8+1, 16+1
^DICR	8(XREF 1n1.4), 8(XREF 2n1.4), 18(XREF 1n1.4), 18(XREF 1n2.4), 19(XREF 1n1.4), 19(XREF 1n2.4), 101(XREF 2n1.4)
Y^DIQ	ID16+1
$$VAL^XBDIQ1	7.3+1, 7.4+1, 7.5+1, 7.6+1, 7.7+1
$$VALI^XBDIQ1	18(XREF 1S), 18(XREF 1K)
$$FMDIFF^XLFDT	7.2+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	101(XREF 2n1.1)
^AUTTLOC - [#9999999.06]	8(XREF 1n49.2)
^BARBL(	.01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K), 7(XREF 1S), 7(XREF 1K), 7.2+1, 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 2S) , 8(XREF 2n1.1), 8(XREF 2n1.4), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 15(XREF 2K), 15(XREF 3S), 15(XREF 3K), 18(XREF 1S), 18(XREF 1n1.4) , 18(XREF 1K), 18(XREF 1n2.1), 18(XREF 1n2.4), 18(XREF 2S), 18(XREF 2K), 19(XREF 1S), 19(XREF 1n1.4), 19(XREF 1K), 19(XREF 1n2.1), 19(XREF 1n2.4) , 19(XREF 2S), 19(XREF 2K), 101(XREF 1S), 101(XREF 1K), 101(XREF 2S), 101(XREF 2n1.4), 101(XREF 3S), 101(XREF 3K), 102(XREF 1S), 102(XREF 1K) , 102(XREF 2S), 102(XREF 2K), 116(XREF 1S), 116(XREF 1K), 208(XREF 1S), 208(XREF 1K), 210(XREF 1S), 210(XREF 1K), 801(XREF 1S), 801(XREF 1K)
^BARTBL - [#90052.02]	ID16+1
^DD(	8(XREF 1n1.4), 8(XREF 2n1.4), 18(XREF 1n1.4), 18(XREF 1n2.4), 19(XREF 1n1.4), 19(XREF 1n2.4), 101(XREF 2n1.4)
^DD(90050.01	8(XREF 1S), 8(XREF 1n1.1), 8(XREF 2S), 18(XREF 1S), 18(XREF 1K), 19(XREF 1S), 19(XREF 1K), 101(XREF 2S)
^DD(90052.02	ID16+1
^DIC(4 - [#4]	8(XREF 1n1.1)
^DPT - [#2]	101(XREF 2n1.1)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	5+1, 7+1, 18+1, 19+1, 21+1, 102+1, 103+1, 210+1, 218+1, 402+1 , 406+1, 803+1
%I	ID16+1*!
>> C	ID16+1*
>> D0	7.3+1, 7.4+1, 7.5+1, 7.6+1, 7.7+1, 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1n49.2), 8(XREF 2S), 8(XREF 2n1.1) , 17.2+1, 17.4+1, 18(XREF 1S), 18(XREF 1K), 18(XREF 1n2.1), 19(XREF 1S), 19(XREF 1K), 19(XREF 1n2.1), 25+1, 27+1 , 101(XREF 2S), 101(XREF 2n1.1)
>> DA	.01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K), 7(XREF 1S), 7(XREF 1K), 7.2+1, 8(XREF 1S), 8(XREF 2S), 15(XREF 1S) , 15(XREF 1K), 15(XREF 2S), 15(XREF 2K), 15(XREF 3S), 15(XREF 3K), 18(XREF 1S), 18(XREF 1K), 18(XREF 2S), 18(XREF 2K), 19(XREF 1S) , 19(XREF 1K), 19(XREF 2S), 19(XREF 2K), 101(XREF 1S), 101(XREF 1K), 101(XREF 2S), 101(XREF 3S), 101(XREF 3K), 102(XREF 1S), 102(XREF 1K) , 102(XREF 2S), 102(XREF 2K), 116(XREF 1S), 116(XREF 1K), 208(XREF 1S), 208(XREF 1K), 210(XREF 1S), 210(XREF 1K), 801(XREF 1S), 801(XREF 1K)
DFN	15(XREF 3S), 15(XREF 3K)
DIC	ID16+1, 3+1!, 8+1!, 16+1!*
DIC("S"	3+1, 3SCR+1, 8+1, 8SCR+1, 16+1, 16SCR+1
>> DIE	3+1, 8+1, 16+1
>> DIG	8(XREF 1n1.4), 8(XREF 2n1.4), 18(XREF 1n1.4), 18(XREF 1n2.4), 19(XREF 1n1.4), 19(XREF 1n2.4), 101(XREF 2n1.4)
>> DIH	8(XREF 1n1.4), 8(XREF 2n1.4), 18(XREF 1n1.4), 18(XREF 1n2.4), 19(XREF 1n1.4), 19(XREF 1n2.4), 101(XREF 2n1.4)
>> DIU	8(XREF 1S), 8(XREF 2S), 18(XREF 1S), 18(XREF 1K), 19(XREF 1S), 19(XREF 1K), 101(XREF 2S)
DIV	8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1n1.4), 8(XREF 1n49.2), 8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2n1.4), 18(XREF 1S), 18(XREF 1n1.4), 18(XREF 1K) , 18(XREF 1n2.1), 18(XREF 1n2.4), 19(XREF 1S), 19(XREF 1n1.4), 19(XREF 1K), 19(XREF 1n2.1), 19(XREF 1n2.4), 101(XREF 2S), 101(XREF 2n1.1), 101(XREF 2n1.4)
DIV(0	8(XREF 1S), 8(XREF 1n1.4), 8(XREF 2S), 8(XREF 2n1.4), 18(XREF 1S), 18(XREF 1n1.4), 18(XREF 1K), 18(XREF 1n2.4), 19(XREF 1S), 19(XREF 1n1.4) , 19(XREF 1K), 19(XREF 1n2.4), 101(XREF 2S), 101(XREF 2n1.4)
DT	7.2+1
DUZ(2	.01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K), 7(XREF 1S), 7(XREF 1K), 7.2+1, 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 2S) , 8(XREF 2n1.1), 8(XREF 2n1.4), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 15(XREF 2K), 15(XREF 3S), 15(XREF 3K), 18(XREF 1S), 18(XREF 1n1.4) , 18(XREF 1K), 18(XREF 1n2.1), 18(XREF 1n2.4), 18(XREF 2S), 18(XREF 2K), 19(XREF 1S), 19(XREF 1n1.4), 19(XREF 1K), 19(XREF 1n2.1), 19(XREF 1n2.4) , 19(XREF 2S), 19(XREF 2K), 101(XREF 1S), 101(XREF 1K), 101(XREF 2S), 101(XREF 2n1.4), 101(XREF 3S), 101(XREF 3K), 102(XREF 1S), 102(XREF 1K) , 102(XREF 2S), 102(XREF 2K), 116(XREF 1S), 116(XREF 1K), 208(XREF 1S), 208(XREF 1K), 210(XREF 1S), 210(XREF 1K), 801(XREF 1S), 801(XREF 1K)
>> I	105OT+1*
>> I(0	8(XREF 1n1.1), 8(XREF 1n49.2), 101(XREF 2n1.1)
>> I(100	8(XREF 1n49.2)
U	ID16+1, ID116+1, 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1n1.4), 8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2n1.4), 15(XREF 2K), 18(XREF 1S) , 18(XREF 1n1.4), 18(XREF 1K), 18(XREF 1n2.1), 18(XREF 1n2.4), 19(XREF 1S), 19(XREF 1n1.4), 19(XREF 1K), 19(XREF 1n2.1), 19(XREF 1n2.4), 101(XREF 2S) , 101(XREF 2n1.1), 101(XREF 2n1.4), 101(XREF 3S), 101(XREF 3K), 102(XREF 1S), 102(XREF 1K)
X	.001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, 3+1!, 3(XREF 1S), 3(XREF 1K), 5+1!, 7+1! , 7(XREF 1S), 7(XREF 1K), 7.2+1, 7.3+1, 7.4+1, 7.5+1, 7.6+1, 7.7+1, 8+1!, 8(XREF 1S) , 8(XREF 1n1.1), 8(XREF 1n1.4), 8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2n1.4), 9+1!, 12+1!, 13+1!, 14+1!, 15+1! , 15(XREF 1S), 15(XREF 2S), 15(XREF 2K), 15(XREF 3S), 16+1!, 17+1!, 17.2+1, 17.4+1, 18+1!, 18(XREF 1S) , 18(XREF 1n1.4), 18(XREF 1K), 18(XREF 1n2.1), 18(XREF 1n2.4), 18(XREF 2S), 18(XREF 2K), 19+1!, 19(XREF 1S), 19(XREF 1n1.4), 19(XREF 1K) , 19(XREF 1n2.1), 19(XREF 1n2.4), 19(XREF 2S), 19(XREF 2K), 20+1!, 21+1!, 22+1!, 23+1, 24+1, 25+1* , 26+1, 27+1, 101(XREF 1S), 101(XREF 1K), 101(XREF 2S), 101(XREF 2n1.1), 101(XREF 2n1.4), 101(XREF 3S), 101(XREF 3K), 102+1! , 102(XREF 1S), 102(XREF 1K), 102(XREF 2S), 102(XREF 2K), 103+1!, 105+1!, 106+1!, 107+1!, 109+1!, 111+1! , 116+1!, 116(XREF 1S), 116(XREF 1K), 117+1!, 203+1!, 204+1!, 208(XREF 1S), 208(XREF 1K), 209+1!, 210+1! , 210(XREF 1S), 210(XREF 1K), 211+1!, 216+1!, 217+1!, 218+1!, 402+1!, 403+1!, 404+1!, 406+1! , 701+1!, 702+1!, 801+1!, 801(XREF 1S), 801(XREF 1K), 802+1!, 803+1!, 1001+1!
Y	ID16+1, 3+1, 5+1, 7+1, 7.3+1~, 7.4+1~, 7.5+1~, 7.6+1~, 7.7+1~, 8+1 , 8(XREF 1S), 8(XREF 2S), 16+1, 18+1, 18(XREF 1S), 18(XREF 1K), 19+1, 19(XREF 1S), 19(XREF 1K), 21+1 , 101(XREF 2S), 102+1, 103+1, 105OT+1*, 210+1, 218+1, 402+1, 406+1, 803+1
Y(0	18(XREF 1S), 18(XREF 1K), 105OT+1*
Y(1	8(XREF 1S), 8(XREF 2S), 8(XREF 2n1.1), 18(XREF 1S), 18(XREF 1K), 18(XREF 1n2.1), 19(XREF 1S), 19(XREF 1K), 19(XREF 1n2.1), 101(XREF 2S)
Y(101	8(XREF 1n1.1), 8(XREF 1n49.2), 101(XREF 2n1.1)

Customize PDF page

Package: IHS Accounts Receivable

Global: ^BARBL(2906

Information

Description

Accessed By FileMan Db Calls, Total: 102

Pointed To By FileMan Files, Total: 10

Pointer To FileMan Files, Total: 8

Fields, Total: 87

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^(0	ID16+1, 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 1n49.2), 8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2n1.4), 18(XREF 1S), 18(XREF 1n1.4), 18(XREF 1K) , 18(XREF 1n2.1), 18(XREF 1n2.4), 19(XREF 1S), 19(XREF 1n1.4), 19(XREF 1K), 19(XREF 1n2.1), 19(XREF 1n2.4), 101(XREF 2n1.1)
^(1	ID116+1, 101(XREF 2S), 101(XREF 2n1.4)