Global: ^BAR(90053.03

FileMan FileNo	FileMan Filename	Package
90053.03	A/R INSURER TYPE	IHS Accounts Receivable

Directly Accessed By Routines, Total: 2

Package	Total	Routines
IHS Accounts Receivable	2	BARDMDP BARDMU

Package	Total	Routines
IHS Accounts Receivable	5	BARDMBS BARDMRQ BARDMRQC BARDMRQN BARDMRU

Package	Total	FileMan Files
IHS Accounts Receivable	1	A/R SITE PARAMETER/IHS(#90052.06)[#90052.0603(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	INSURER TYPE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `MAY 11, 2011` HELP-PROMPT: `Answer must be 3-30 characters in length` CROSS-REFERENCE: `90053.03^B` 1)= S ^BAR(90053.03,"B",$E(X,1,30),DA)="" 2)= K ^BAR(90053.03,"B",$E(X,1,30),DA)
.02	CODE	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<1) X` LAST EDITED: `MAY 11, 2011` HELP-PROMPT: `Answer must be 1-4 characters in length` CROSS-REFERENCE: `90053.03^C` 1)= S ^BAR(90053.03,"C",$E(X,1,30),DA)="" 2)= K ^BAR(90053.03,"C",$E(X,1,30),DA)

INSURER TYPE

0;1

FREE TEXT

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

CROSS-REFERENCE: 90053.03^B

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

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

CODE

0;2

FREE TEXT

CROSS-REFERENCE: 90053.03^C

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

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