Global: ^IBA(355.98

FileMan FileNo	FileMan Filename	Package
355.98	IB ALTERNATE PRIMARY ID TYPE	Integrated Billing

Directly Accessed By Routines, Total: 3

Package	Total	Routines
Integrated Billing	3	^IBE(399.6 IBJPS6 ^IBA(355.98

Package	Total	Routines
Integrated Billing	2	IBCNSC01 IBJPS6

Package	Total	FileMan Files
Integrated Billing	3	BILL/CLAIMS(#399)[140, 142, 144] INSURANCE COMPANY(#36)[#36.015(.01), #36.016(.01)] IB SITE PARAMETERS(#350.9)[#350.981(.01), #350.982(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PRIMARY ID TYPE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `FEB 23, 2016` HELP-PROMPT: `Answer must be 3-60 characters in length.` DESCRIPTION: `This ID Type designates the type of claims which are processed by a different Administration Contractor than normal claims. It determines which Alternate Institutional or Professional Payer Primary ID will be transmitted.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `355.98^B` `1)= S ^IBA(355.98,"B",$E(X,1,30),DA)=""` `2)= K ^IBA(355.98,"B",$E(X,1,30),DA)` FIELD INDEX: `C (#1350) REGULAR IR LOOKUP & SORTING` `Short Descr: Convert to Upper Case for lookups` `Description: This cross reference stores all data as uppercase which allows it to handle upper, lower, or mixed case input by the user.` `Set Logic: S ^IBA(355.98,"C",$E(X,1,30),DA)=""` `Kill Logic: K ^IBA(355.98,"C",$E(X,1,30),DA)` `Whole Kill: K ^IBA(355.98,"C")` `X(1): PRIMARY ID TYPE (355.98,.01) (Subscr 1) (Len 30) (forwards)` `Transform (Storage): S X=$$UP^XLFSTR($E(X,1,30))`

PRIMARY ID TYPE

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: FEB 23, 2016
HELP-PROMPT: Answer must be 3-60 characters in length.
DESCRIPTION:
This ID Type designates the type of claims which are processed by a different Administration Contractor than normal claims. It determines which Alternate Institutional or Professional Payer Primary ID will be transmitted.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 355.98^B
1)= S ^IBA(355.98,"B",$E(X,1,30),DA)=""
2)= K ^IBA(355.98,"B",$E(X,1,30),DA)
FIELD INDEX: C (#1350) REGULAR IR LOOKUP & SORTING
Short Descr: Convert to Upper Case for lookups
Description: This cross reference stores all data as uppercase which allows it to handle upper, lower, or mixed case input by the user.
Set Logic: S ^IBA(355.98,"C",$E(X,1,30),DA)=""
Kill Logic: K ^IBA(355.98,"C",$E(X,1,30),DA)
Whole Kill: K ^IBA(355.98,"C")
X(1): PRIMARY ID TYPE (355.98,.01) (Subscr 1) (Len 30) (forwards)
Transform (Storage): S X=$$UP^XLFSTR($E(X,1,30))