Global: ^BAR(90052.01

FileMan FileNo	FileMan Filename	Package
90052.01	A/R TABLE TYPE/IHS	IHS Accounts Receivable

Directly Accessed By Routines, Total: 18

Package	Total	Routines
IHS Accounts Receivable	15	BARADJR1 BARBAD3 BARBAD4 BARPNP3 BARPNP4 BARPST3 BARPST4 BARRSEL1 ^BARTBL BARPUC3 BARPUC4 BARRPAY BARTBLED BARUP1 ^BAR(90052.01
Third Party Billing	3	ABMPPAD1 ABMPPAD2 ABMPPADJ

Accessed By FileMan Db Calls, Total: 7

Package	Total	Routines
IHS Accounts Receivable	7	BAR50P11 BARADJC BAREDP11 BAREV819 BARPADJ BARRADJ2 BARTBLED

Pointed To By FileMan Files, Total: 9

Package	Total	FileMan Files
IHS Accounts Receivable	8	A/R ACCOUNTS/IHS(#90050.02)[6] A/R EDI STND CLAIM ADJ REASONS(#90056.06)[.03] A/R COLLECTION BATCH/IHS(#90051.01)[#90051.1101(401)] A/R EDI TRANSPORT(#90056.01)[#90056.0107(2.01)] A/R EDI IMPORT(#90056.02)[#90056.0208(.04)] A/R FLAT RATE POSTING(#90054.01)[#90054.0101(.01)] A/R TABLE ENTRY/IHS(#90052.02)[2] A/R TRANSACTIONS/IHS(#90050.03)[102]
Third Party Billing	1	3P BILL(#9002274.4)[#9002274.403(.15)]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.001	IEN		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 28, 1994` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits`
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `NOV 01, 1999` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `90052.01^B` 1)= S ^BAR(90052.01,"B",$E(X,1,30),DA)="" 2)= K ^BAR(90052.01,"B",$E(X,1,30),DA)
2	ACRONYM	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<2) X` LAST EDITED: `SEP 09, 1994` HELP-PROMPT: `Answer must be 2-6 characters in length.` CROSS-REFERENCE: `90052.01^C` 1)= S ^BAR(90052.01,"C",$E(X,1,30),DA)="" 2)= K ^BAR(90052.01,"C",$E(X,1,30),DA)

.001

IEN

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 28, 1994
HELP-PROMPT: Type a Number between 1 and 9999999, 0 Decimal Digits

.01

NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: NOV 01, 1999
HELP-PROMPT: Answer must be 3-30 characters in length.

CROSS-REFERENCE: 90052.01^B

1)= S ^BAR(90052.01,"B",$E(X,1,30),DA)=""

2)= K ^BAR(90052.01,"B",$E(X,1,30),DA)

2

ACRONYM

0;2

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<2) X
LAST EDITED: SEP 09, 1994
HELP-PROMPT: Answer must be 2-6 characters in length.

CROSS-REFERENCE: 90052.01^C

1)= S ^BAR(90052.01,"C",$E(X,1,30),DA)=""

2)= K ^BAR(90052.01,"C",$E(X,1,30),DA)

Found Entries, Total: 25

NAME: ACCOUNT STATUS	NAME: ACCOUNT TYPE	NAME: BAD DEBT	NAME: BATCH ERRORS	NAME: BILL ED/ER TYPE	NAME: BILL STATUS	NAME: BILL TYPE	NAME: BILLING SERVICE
NAME: CHARGES	NAME: CHECK	NAME: COPAY	NAME: DEDUCTIBLE	NAME: GENERAL INFORMATION	NAME: GROUPER ALLOWANCE	NAME: NON PAYMENT	NAME: PAYMENT CREDIT
NAME: PENALTY	NAME: PENDING	NAME: REFUND	NAME: SENT TO COLLECTIONS	NAME: SERVICE/SECTION	NAME: TRANSACT TYPE	NAME: TRANSMISS STAT	NAME: UNBILLED REIMBURSEMENTS
NAME: WRITE OFF

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052.01 - [#90052.01]	.01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^(0	ID2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K)
U	ID2+1
X	.001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), 2+1!, 2(XREF 1S), 2(XREF 1K)

Customize PDF page

Package: IHS Accounts Receivable