Global: ^IBA(351.9

FileMan FileNo	FileMan Filename	Package
351.9	CLAIMSMANAGER BILLS	Integrated Billing

Package	Total	Routines
Integrated Billing	27	^IBE(399.6 ERROR CODE IB20P203 IBCB2 IBCIADD1 IBCICME IBCICME1 IBCICMEP IBCICMS IBCICMSP IBCIL0 IBCIMG IBCIMSG IBCIMSG1 IBCISC IBCIST IBCIUT1 IBCIUT2 IBCIUT4 IBCIUT5 IBCIUT6 IBCIUT7 IBCIWK IBCSCP ^IBA(351.9 IBOSTUS1 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: