Global: ^IBA(351.9

FileMan FileNo	FileMan Filename	Package
351.9	CLAIMSMANAGER BILLS	Integrated Billing

Package	Total	Routines
Integrated Billing	27	ERROR CODE IB20P203 IBCB2 IBCIADD1 IBCICME IBCICME1 IBCICMEP IBCICMS IBCICMSP IBCIL0 IBCIMG IBCIMSG IBCIMSG1 IBCISC IBCIST IBCIUT1 IBCIUT2 IBCIUT4 IBCIUT5 IBCIUT6 IBCIUT7 IBOSTUS1 ^IBA(351.9 ^IBE(399.6 IBCIWK IBCSCP LINE SEGMENT

Package	Total	Routines
Integrated Billing	9	IBCIADD1 IBCIASN IBCICMW IBCISC IBCIUT1 IBCIUT2 IBCIUT4 IBCIUT5 IBCIUT7

Package	Total	FileMan Files
Integrated Billing	2	BILL/CLAIMS(#399)[.01] CLAIMSMANAGER STATUS(#351.91)[.02]
Kernel	1	NEW PERSON(#200)[.05, .07, .09, .11, .12, .14]

Fields, Total: 34

Field #	Name	Loc	Type	Details
.01	CLAIM	0;1	POINTER TO BILL/CLAIMS FILE (#399)	**********************REQUIRED FIELD********************** BILL/CLAIMS(#399) INPUT TRANSFORM: `S DINUM=X` LAST EDITED: `DEC 28, 2000` DESCRIPTION: `This is a pointer to the BILL/CLAIMS file (#399).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `351.9^B` `1)= S ^IBA(351.9,"B",$E(X,1,30),DA)=""` `2)= K ^IBA(351.9,"B",$E(X,1,30),DA)`
.02	STATUS	0;2	POINTER TO CLAIMSMANAGER STATUS FILE (#351.91)	CLAIMSMANAGER STATUS(#351.91) LAST EDITED: `JAN 11, 2001` DESCRIPTION: `This is a pointer to the CLAIMSMANAGER STATUS file (#351.91)` CROSS-REFERENCE: `351.9^AST` `1)= S ^IBA(351.9,"AST",$E(X,1,30),DA)=""` `2)= K ^IBA(351.9,"AST",$E(X,1,30),DA)` `Cross reference of the Status field for lookup and reports.`
.03	LAST SENT TO CLAIMSMANAGER	0;3	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 19, 2001` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `This is the Date/time that the claim was last sent to ClaimsManager.`
.04	TIMES SENT TO CLAIMSMANAGER	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<1) X` LAST EDITED: `MAR 19, 2001` HELP-PROMPT: `Answer will be a numeric value from 0 to 9999.` DESCRIPTION: `This will be a numeric value to track the number of times the claim was sent to ClaimsManager.`
.05	SENT BY	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 20, 2000` DESCRIPTION: `This is a pointer to the New Person file (#200) to recored the identity of the last person to send the claim to ClaimsManager.`
.06	DATE/TIME ENTERED	0;6	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 20, 2000` DESCRIPTION: `This is the date and time that the claim was originally entered into the CLAIMSMANAGER file (351.9).`
.07	ENTERED BY	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 20, 2000` DESCRIPTION: `This will point to the New Person file (#200) and will identify the person who originally entered/edited the bill causing an entry in the CLAIMSMANAGER file (351.9).`
.08	DATE/TIME LAST EDITED	0;8	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 11, 2001` DESCRIPTION: `This is the date/time that the claim was last edited.` CROSS-REFERENCE: `351.9^ADE` `1)= S ^IBA(351.9,"ADE",$E(X,1,30),DA)=""` `2)= K ^IBA(351.9,"ADE",$E(X,1,30),DA)` `Cross reference of the DATE/TIME LAST EDITED for reports and to be used with list manager.`
.09	LAST EDITED BY	0;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 11, 2001` DESCRIPTION: `This is a pointer to the New Person file (#200) to identify the person who last edited this claim.` CROSS-REFERENCE: `351.9^AEB` `1)= S ^IBA(351.9,"AEB",$E(X,1,30),DA)=""` `2)= K ^IBA(351.9,"AEB",$E(X,1,30),DA)` `Cross reference of the LAST EDITED BY field for reports and list manager.`
.1	OVERRIDDEN?	0;10	SET	'1' FOR YES; LAST EDITED: `DEC 20, 2000` DESCRIPTION: `If the user chooses to override the ClaimsManager errors and send the claim "as is" this field will be set to '1'.`
.11	OVERRIDDEN BY	0;11	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 20, 2000` DESCRIPTION: `If OVERRIDDEN? is set to YES, then this field will contain the IEN for the NEW PERSON file (#200) of the person who overrode the ClaimsManager errors.`
.12	ASSIGNED TO	0;12	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 07, 2001` DESCRIPTION: `This field will point to the person that the biller assigns the bill to. The default will be the biller.` CROSS-REFERENCE: `351.9^ASN` `1)= S ^IBA(351.9,"ASN",$E(X,1,30),DA)=""` `2)= K ^IBA(351.9,"ASN",$E(X,1,30),DA)` `Cross reference of the ASSIGNED TO field for reports and lookups on who the claim is assigned to.`
.13	COMMENT DATE/TIME	0;13	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 14, 2001` DESCRIPTION: `This will be the Date/Time stamp for when the comments were entered.`
.14	COMMENT ENTERED BY	0;14	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 14, 2001` DESCRIPTION: `This a pointer to the New Person file of the person who entered the comments.`
.15	RECEIVED BY CLAIMSMANAGER	0;15	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 22, 2001` DESCRIPTION: `This field is used as a check to ensure that ClaimsManager received the bill without a comm error. This is needed for the cancellation process.`
1.01	ERROR CODE	1;0	Multiple #351.9001	351.9001
2.01	COMMENTS	2;0	WORD-PROCESSING #351.9002	LAST EDITED: `DEC 20, 2000` DESCRIPTION: `This field will contain the comments entered when exiting or overriding.`
3.01	PATIENT ID	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<9) X` LAST EDITED: `DEC 20, 2000` HELP-PROMPT: `Patient SSN must be 9-10 characters in length.` DESCRIPTION: `The patient's SSN will be the Patient ID for ClaimsManager. It may be 9 or 10 characters.`
3.02	PT LAST NAME	3;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `DEC 20, 2000` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `This field will contain the last name of the patient.`
3.03	PT MIDDLE NAME	3;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 20, 2000` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This field will contain the middle name of the patient, if one exists.`
3.04	PT FIRST NAME	3;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 20, 2000` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This field contains the first name of the patient.`
3.05	PT DOB	3;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>16!($L(X)<1) X` LAST EDITED: `DEC 20, 2000` HELP-PROMPT: `Answer must be 1-16 characters in length.` DESCRIPTION: `This field contains the patient's Date of Birth.`
3.06	PT GENDER	3;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `DEC 20, 2000` HELP-PROMPT: `Answer must be 1 character in length.` DESCRIPTION: `This is a one character abbreviation to identify the patient's gender.`
3.07	ENTRY DATE/TIME	3;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>16!($L(X)<1) X` LAST EDITED: `DEC 20, 2000` HELP-PROMPT: `Answer must be 1-16 characters in length.` DESCRIPTION: `This is the Date/time that the claim was entered into Vista.`
3.08	REF PHYS ID	3;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 20, 2000` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This is the Referring Physician's ID in the format expected by ClaimsManager.`
3.09	REF PHYS LAST NAME	3;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `DEC 20, 2000` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `This is the Referring Physician's last name.`
3.1	REF PHYS MIDDLE NAME	3;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 20, 2000` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This is the Referring Physician's middle name, if one exists.`
3.11	REF PHYS FIRST NAME	3;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 20, 2000` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This is the Referring Physician's first name.`
3.12	REF PHYS TITLE	3;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` LAST EDITED: `DEC 20, 2000` HELP-PROMPT: `Answer must be 1-5 characters in length.` DESCRIPTION: `This is the Referring Physicians Title.`
4.01	REF PHYS DEPT	4;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 20, 2000` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This will identify the department for the Referring Physician.`
4.02	REF PHYS SPEC	4;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `DEC 20, 2000` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `This is the Referring Physician's Specialty`
4.03	REF PHYS DEGREE ID	4;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `DEC 20, 2000` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `This is the Referring Physician's Degree ID.`
4.04	REF PHYS UPIN	4;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `DEC 20, 2000` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `This is the Referring Physician's UPIN number.`
5.01	LINE SEGMENT	5;0	Multiple #351.9003	351.9003 DESCRIPTION: `This is the number assigned to a specific line segment for transmission to ClaimsManager.`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.03+1, .06+1, .08+1, .13+1
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .08(XREF 1S), .08(XREF 1K), .09(XREF 1S), .09(XREF 1K), .12(XREF 1S), .12(XREF 1K)
>> DINUM	.01+1*
X	.01+1, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03+1!, .04+1!, .06+1!, .08+1!, .08(XREF 1S) , .08(XREF 1K), .09(XREF 1S), .09(XREF 1K), .12(XREF 1S), .12(XREF 1K), .13+1!, 3.01+1!, 3.02+1!, 3.03+1!, 3.04+1! , 3.05+1!, 3.06+1!, 3.07+1!, 3.08+1!, 3.09+1!, 3.1+1!, 3.11+1!, 3.12+1!, 4.01+1!, 4.02+1! , 4.03+1!, 4.04+1!
>> Y	.03+1, .06+1, .08+1, .13+1

Customize PDF page

Package: Integrated Billing

Global: ^IBA(351.9

Information

Description

Directly Accessed By Routines, Total: 27

Accessed By FileMan Db Calls, Total: 9

Pointer To FileMan Files, Total: 3

Fields, Total: 34

External References

Global Variables Directly Accessed

Local Variables

Legend: