Global: ^IBA(364.1

FileMan FileNo	FileMan Filename	Package
364.1	EDI TRANSMISSION BATCH	Integrated Billing

Package	Total	Routines
Integrated Billing	12	IB20P529 IBCE837A IBCEF11 IBCEM02 IBCEM03 IBCEPTC3 IBCEPTM IBCEQBS IBCESRV2 IBCF23A IBY196PO IBY641PO
Accounts Receivable	1	RCDPENR1

Package	Total	FileMan Files
Integrated Billing	6	EDI TRANSMIT BILL(#364)[.02, .06] EDI TRANSMISSION BATCH(#364.1)[.15] EDI MESSAGES(#364.2)[.04] BILL STATUS MESSAGE(#361)[.05] EXPLANATION OF BENEFITS(#361.1)[100.01] EDI TEST CLAIM STATUS MESSAGE(#361.4)[#361.41(.02)]

Package	Total	FileMan Files
Integrated Billing	3	INSURANCE COMPANY(#36)[.12] EDI TRANSMISSION BATCH(#364.1)[.15] EDI MESSAGES(#364.2)[.11]
Kernel	1	NEW PERSON(#200)[1.02, 1.04]

Fields, Total: 21

Field #	Name	Loc	Type	Details
.01	BATCH NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1.N) X` LAST EDITED: `APR 07, 2020` HELP-PROMPT: `Type a number between 1 and 9999999999, 0 decimal digits.` DESCRIPTION: `The number of the batch for EDI transmissions.` CROSS-REFERENCE: `364.1^B` `1)= S ^IBA(364.1,"B",$E(X,1,30),DA)=""` `2)= K ^IBA(364.1,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `364.1^C^MUMPS` `1)= S ^IBA(364.1,"C",+$E(X,4,$L(X)),DA)=""` `2)= K ^IBA(364.1,"C",+$E(X,4,$L(X)),DA)` `3)= DO NOT DELETE` `Lookup batch number without station prefix.`
.02	LATEST RECEIPT STATUS	0;2	SET	'P' FOR PENDING AUSTIN RECEIPT; 'A0' FOR RECEIVED IN AUSTIN; LAST EDITED: `SEP 13, 2001` HELP-PROMPT: `Enter the latest receipt status tracked for this batch` DESCRIPTION: `This field indicates where the last receipt for this batch came from. It is used in tracking how far a batch has gone in the transmission path for as long as it can be tracked with electronic receipt messages.` CROSS-REFERENCE: `^^TRIGGER^364.1^1.06` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(364.1,.02,1,1,1.1) X ^DD(364.1,.02,1,1,1.4)` `1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%` `1.4)= S DIH=$S($D(^IBA(364.1,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,6)=DIV,DIH=364.1,DIG=1.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE VALUE)= NOW` `DELETE VALUE)= NO EFFECT` `FIELD)= #1.06` CROSS-REFERENCE: `364.1^ASTAT` `1)= S ^IBA(364.1,"ASTAT",$E(X,1,30),DA)=""` `2)= K ^IBA(364.1,"ASTAT",$E(X,1,30),DA)` `3)= DO NOT DELETE` `Xref by status`
.03	NUMBER OF BILLS	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 05, 1999` HELP-PROMPT: `Type a Number between 0 and 99999, 0 Decimal Digits` DESCRIPTION: `This is the total number of bills currently under the control of this batch.`
.04	MAIL MESSAGE	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 23, 2002` HELP-PROMPT: `Type a Number between 0 and 999999999999999, 0 Decimal Digits` DESCRIPTION: `This is the number of the mail message that was generated for this batch.` CROSS-REFERENCE: `364.1^MSG` `1)= S ^IBA(364.1,"MSG",$E(X,1,30),DA)=""` `2)= K ^IBA(364.1,"MSG",$E(X,1,30),DA)` `3)= DO NOT DELETE`
.05	BATCH REJECTED	0;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `APR 11, 1996` HELP-PROMPT: `Enter 0 (NO) if batch has not been rejected, 1 (YES) if it has` DESCRIPTION: `This field indicates whether or not a batch has been rejected at any point in the transmission path.` NOTES: `TRIGGERED by the REJECT MESSAGE field of the EDI TRANSMISSION BATCH File`
.06	BILL TYPE	0;6	SET	'2' FOR CMS-1500 (PROF); '3' FOR UB-04 (INST); '7' FOR J430D (DENT); LAST EDITED: `MAR 09, 2017` HELP-PROMPT: `ENTER THE TYPE OF BILL CONTAINED IN THIS BATCH` DESCRIPTION: `THIS IS THE TYPE OF BILL THAT IS CONTAINED IN THIS BATCH`
.07	BATCH TYPE	0;7	SET	'1' FOR EDI 837 BILL SUBMISSION; LAST EDITED: `OCT 02, 1996` HELP-PROMPT: `Enter the code that corresponds to the type of data in the batch.` DESCRIPTION: `This identifies the type of ANSI X12 data contained in the batch.` CROSS-REFERENCE: `364.1^ATYP` `1)= S ^IBA(364.1,"ATYP",$E(X,1,30),DA)=""` `2)= K ^IBA(364.1,"ATYP",$E(X,1,30),DA)` `3)= DO NOT DELETE` `Xref by batch type`
.08	DESCRIPTION	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `SEP 05, 1996` HELP-PROMPT: `Answer must be 1-80 characters in length.` DESCRIPTION: `This is a free text description to identify the contents of the batch.`
.09	BATCH RESUBMIT TASK	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `SEP 16, 1996` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `If the batch is being resubmitted, this is the task # of the task that is doing the resubmission if the job is queued. No entry is made here if the task is not queued.`
.1	BATCH RESUBMIT INCOMPLETE	0;10	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `SEP 26, 1996` HELP-PROMPT: `Enter YES if batch resubmit was incomplete.` DESCRIPTION: `This field is 0 or null if batch either was not resubmitted or if all bills in the batch have been resubmitted. It is a 1 (YES) if any bills in the batch were not resubmitted, but the batch itself was.` CROSS-REFERENCE: `364.1^AINC^MUMPS` `1)= S:X=1 ^IBA(364.1,"AINC",1,DA)=""` `2)= K:X=1 ^IBA(364.1,"AINC",1,DA)` `3)= DO NOT DELETE` `Xref used to track batches not completely resubmitted.`
.11	REJECT MESSAGE	0;11	POINTER TO EDI MESSAGES FILE (#364.2)	EDI MESSAGES(#364.2) LAST EDITED: `SEP 19, 1996` HELP-PROMPT: `Enter the number of the reject message for this batch` DESCRIPTION: `Pointer to the reject message received for this batch.` CROSS-REFERENCE: `^^TRIGGER^364.1^.05` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S('$D(^IBA(364.2,+Y(0),0)):"",1:$P(^(0),U,1))'="" I X S X=DIV S Y(1)=$S($D(^IBA(364.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(364.1,.11,1,1,1.4` `)` `1.4)= S DIH=$S($D(^IBA(364.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=364.1,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE CONDITION)= REJECT MESSAGE'=""` `CREATE VALUE)= S X=1` `DELETE VALUE)= NO EFFECT` `FIELD)= BATCH REJECTED`
.12	INSURANCE COMPANY	0;12	POINTER TO INSURANCE COMPANY FILE (#36)	INSURANCE COMPANY(#36) LAST EDITED: `NOV 13, 1998` HELP-PROMPT: `ENTER THE NAME OF THE INSURANCE COMPANY WHOSE BILLS ARE CONTAINED IN THIS BATCH` DESCRIPTION: `This is the insurance company associated with this batch.`
.13	BATCH RESUBMIT DATE	0;13	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)` LAST EDITED: `OCT 03, 1996` HELP-PROMPT: `Enter the date/time the batch was last resubmitted.` DESCRIPTION: `This is the last date/time the batch was resubmitted. It is set when the resubmit process is done.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.14	TEST BATCH	0;14	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 02, 1997` HELP-PROMPT: `Enter YES (1) indicate a test batch in a production environment` DESCRIPTION: `This field indicates the batch is a test batch in a production environment. All bills in this batch will have also been printed.`
.15	PREVIOUS BATCH	0;15	POINTER TO EDI TRANSMISSION BATCH FILE (#364.1)	EDI TRANSMISSION BATCH(#364.1) INPUT TRANSFORM: `S DIC("S")="I +Y'=DA" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 05, 1999` HELP-PROMPT: `Enter the number of the batch that was resubmitted in this batch` DESCRIPTION: `If this data exists, this batch was created as a result of another batch being resubmitted. This data references the original batch that contained the bills that are now contained in this batch.` SCREEN: `S DIC("S")="I +Y'=DA"` EXPLANATION: `Cannot point to itself`
1.01	DATE FIRST SENT	1;1	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)` LAST EDITED: `JUL 14, 2015` HELP-PROMPT: `Enter the first date/time that the batch was transmitted.` DESCRIPTION: `This is the date/time that this batch was first transmitted.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^364.1^1.03` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,3)="" I X S X=DIV S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(364.1,1.` `01,1,1,1.4)` `1.4)= S DIH=$S($D(^IBA(364.1,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=364.1,DIG=1.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(364.1,1.01,1,1,2.4)` `2.4)= S DIH=$S($D(^IBA(364.1,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=364.1,DIG=1.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE CONDITION)= DATE LAST SENT=""` `CREATE VALUE)= DATE FIRST SENT` `DELETE VALUE)= @` `FIELD)= DATE LAST SENT` CROSS-REFERENCE: `364.1^FDATE` `1)= S ^IBA(364.1,"FDATE",$E(X,1,30),DA)=""` `2)= K ^IBA(364.1,"FDATE",$E(X,1,30),DA)` `This index allows for the searching of batches by the date that they were first sent to FMS.`
1.02	FIRST SENT BY	1;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 03, 1999` HELP-PROMPT: `Enter the name of the user responsible for the first transmission of this batch.` DESCRIPTION: `The name of the user who was responsible for the first transmission of this batch.` CROSS-REFERENCE: `^^TRIGGER^364.1^1.04` `1)= X ^DD(364.1,1.02,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(364.1,1.02,1,1,1.4)` `1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,4),0)):"",1:$P(^(0),U,1))=""` `1.4)= S DIH=$S($D(^IBA(364.1,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,4)=DIV,DIH=364.1,DIG=1.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(364.1,1.02,1,1,2.4)` `2.4)= S DIH=$S($D(^IBA(364.1,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,4)=DIV,DIH=364.1,DIG=1.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE CONDITION)= LAST SENT BY=""` `CREATE VALUE)= INTERNAL(FIRST SENT BY)` `DELETE VALUE)= @` `FIELD)= LAST SENT BY`
1.03	DATE LAST SENT	1;3	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)` LAST EDITED: `OCT 02, 1996` HELP-PROMPT: `Enter the last date/time that the batch was transmitted.` DESCRIPTION: `This is the date/time that the batch was last transmitted.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the DATE FIRST SENT field of the EDI TRANSMISSION BATCH File` CROSS-REFERENCE: `364.1^ALT` `1)= S ^IBA(364.1,"ALT",$E(X,1,30),DA)=""` `2)= K ^IBA(364.1,"ALT",$E(X,1,30),DA)` `3)= DO NOT DELETE` `Xref by last transmit date`
1.04	LAST SENT BY	1;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 21, 1997` HELP-PROMPT: `Enter the name of the user responsible for the last transmission of this batch.` DESCRIPTION: `The name of the user who was responsible for the last transmission of this batch.` NOTES: `TRIGGERED by the FIRST SENT BY field of the EDI TRANSMISSION BATCH File`
1.05	LATEST STATUS DATE	1;5	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)` LAST EDITED: `OCT 02, 1996` HELP-PROMPT: `Enter the date and time associated with the latest status.` DESCRIPTION: `This is the date and time contained on the latest receipt message for this batch.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1.06	DATE LATEST STATUS RECORDED	1;6	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)` LAST EDITED: `OCT 02, 1996` HELP-PROMPT: `Enter the date and time that the latest status was recorded in this file` DESCRIPTION: `This is the date and time the latest status was recorded in this file.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the LATEST RECEIPT STATUS field of the EDI TRANSMISSION BATCH File`

Customize PDF page

Package: Integrated Billing

Global: ^IBA(364.1

Information

Description

Accessed By FileMan Db Calls, Total: 13

Pointed To By FileMan Files, Total: 6

Pointer To FileMan Files, Total: 4

Fields, Total: 21

ICR, Total: 1