Global: ^IBM(361

FileMan FileNo	FileMan Filename	Package
361	BILL STATUS MESSAGE	Integrated Billing

Package	Total	Routines
Integrated Billing	31	IB20P229 IBCECSA1 IBCECSA2 IBCECSA3 IBCECSA4 IBCEF4 IBCEM IBCEM4 IBCEMCA1 IBCEMCL IBCEMSG1 IBY368PO ^IBE(399.6 IBCEMCA2 IBCEMPRG IBCEMSG IBCEMU2 IBCERP2 IBCERPN IBCEST IBCEU0 IBJTED IBJTU6 IBRFN4 IBY197PO IBY283PO IBY320PO IBY641PO SUBMITTED 'AS IS' DT/TM ^IBM(361 REVIEW DATE
Accounts Receivable	1	RCXVDC3

Package	Total	Routines
Integrated Billing	11	IB20P229 IBCECSA2 IBCECSA4 IBCEM IBCEMPRG IBCEMSG IBCEMSG2 IBCEST IBCEU0 IBJTU6 IBY641PO

Package	Total	FileMan Files
Integrated Billing	3	BILL/CLAIMS(#399)[.01] EDI TRANSMIT BILL(#364)[.11] EDI TRANSMISSION BATCH(#364.1)[.05]
Kernel	1	NEW PERSON(#200)[#361.02(.02), #361.04(.02)]

Fields, Total: 19

Field #	Name	Loc	Type	Details
.01	BILL NUMBER	0;1	POINTER TO BILL/CLAIMS FILE (#399)	**********************REQUIRED FIELD********************** BILL/CLAIMS(#399) LAST EDITED: `JUN 12, 2000` HELP-PROMPT: `Enter the bill # that this message is for` CROSS-REFERENCE: `361^B` `1)= S ^IBM(361,"B",$E(X,1,30),DA)=""` `2)= K ^IBM(361,"B",$E(X,1,30),DA)` RECORD INDEXES: `AD (#129), ADR (#130)`
.02	DATE RECEIVED	0;2	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 23, 2001` HELP-PROMPT: `Enter the date and time this status message was received` DESCRIPTION: `This is the date or date/time the status message was received for a bill.` CROSS-REFERENCE: `361^ARD` `1)= S ^IBM(361,"ARD",$E(X,1,30),DA)=""` `2)= K ^IBM(361,"ARD",$E(X,1,30),DA)` `3)= Do not delete` RECORD INDEXES: `ADR (#130)`
.03	MESSAGE SEVERITY	0;3	SET	'R' FOR REJECTION; 'I' FOR INFORMATION/WARNING; LAST EDITED: `MAY 07, 2001` HELP-PROMPT: `Enter the severity of this message` DESCRIPTION: `This is the level of severity that this message will convey to the biller.` CROSS-REFERENCE: `361^ASV` `1)= S ^IBM(361,"ASV",$E(X,1,30),DA)=""` `2)= K ^IBM(361,"ASV",$E(X,1,30),DA)` `This allows for sorting by severity for report purposes.` RECORD INDEXES: `ACSA (#416)`
.04	MESSAGE GENERATION SOURCE	0;4	SET	'0' FOR NON-PAYER; '1' FOR PAYER; LAST EDITED: `AUG 25, 1998` HELP-PROMPT: `Enter 0 for non-payer or 1 for a payer-generated message` DESCRIPTION: `This field determines whether or not the message was generated as a result of the payer (1) or before it got to the payer (0).`
.05	BATCH NUMBER	0;5	POINTER TO EDI TRANSMISSION BATCH FILE (#364.1)	EDI TRANSMISSION BATCH(#364.1) LAST EDITED: `JUL 28, 1998` HELP-PROMPT: `Enter the batch number the bill was in when the message was received` DESCRIPTION: `This is the batch number in which the bill was sent in when this status message was received.`
.06	RETURN MESSAGE ID	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `JUL 28, 1998` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This is the ID of the return message that this status was delivered in. It is used to ensure these status messages don't get added to this file more than once.` CROSS-REFERENCE: `361^AC` `1)= S ^IBM(361,"AC",$E(X,1,30),DA)=""` `2)= K ^IBM(361,"AC",$E(X,1,30),DA)` `3)= Do not delete` `This xref is used to determine if a return message from file 364.2 has not already been added to this file.`
.07	BILL'S COB SEQUENCE	0;7	SET	'P' FOR PRIMARY; 'S' FOR SECONDARY; 'T' FOR TERTIARY; LAST EDITED: `MAY 11, 1999` HELP-PROMPT: `Enter the COB sequence of the bill when this status message was received` DESCRIPTION: `This is the COB sequence of the bill when the message is received.`
.08	PAYER ID RETURNED	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `JUL 12, 1999` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `This is the payer ID from ENVOY for the insurance company that the bill was sent to.` TECHNICAL DESCR: `If this field comes back with data and there is no ID defined for the insurance co, update the data base with this number. The exception to this is if it comes back = HPRNT or SPRNT, then we update the field that says the` `bill was printed at ENVOY.`
.09	REVIEW STATUS	0;9	SET	'0' FOR NOT REVIEWED; '1' FOR REVIEW IN PROCESS; '2' FOR REVIEW COMPLETE; LAST EDITED: `APR 19, 2001` HELP-PROMPT: `Enter the number that corresponds to this entry's current status.` DESCRIPTION: `This field contains the current review state of this message.` CROSS-REFERENCE: `361^AREV` `1)= S ^IBM(361,"AREV",$E(X,1,30),DA)=""` `2)= K ^IBM(361,"AREV",$E(X,1,30),DA)` `3)= Do not delete` `This allows the file to be traversed by status.` RECORD INDEXES: `ACSA (#416)`
.1	FINAL REVIEW ACTION	0;10	SET	'C' FOR BILL CANCELLED - NO FURTHER ACTION; 'F' FOR FILED - NO ACTION; 'R' FOR BILL CORRECTED/RESUBMITTED; 'O' FOR OTHER ACTION; LAST EDITED: `MAR 05, 2001` HELP-PROMPT: `Enter the action taken to complete the review of the status message` DESCRIPTION: `This is the final action taken to review this status message. If OTHER ACTION is chosen, the action taken should be noted in the REVIEW DATE's COMMENT field.` CROSS-REFERENCE: `^^TRIGGER^361^.13` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBM(361,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S DIH=$G(^IBM(361,DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=361,DIG=.13 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBM(361,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" S DIH=$G(^IBM(361,DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=361,DIG=.13 D ^DICR` `CREATE VALUE)= TODAY` `DELETE VALUE)= @` `FIELD)= FINAL REVIEW DATE`
.11	TRANSMIT BILL	0;11	POINTER TO EDI TRANSMIT BILL FILE (#364)	EDI TRANSMIT BILL(#364) INPUT TRANSFORM: `S DIC("S")="N Z S Z=$G(^(0)) I +Z=+$G(^IBM(361,DA,0)),$P(Z,U,8)=$P(^(0),U,7)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 10, 1999` HELP-PROMPT: `Enter the transmit bill that relates to this message` DESCRIPTION: `This is the pointer to the transmit bill entry that generated this message.` SCREEN: `S DIC("S")="N Z S Z=$G(^(0)) I +Z=+$G(^IBM(361,DA,0)),$P(Z,U,8)=$P(^(0),U,7)"` EXPLANATION: `Must be for the same bill entry and insurance sequence` CROSS-REFERENCE: `361^AERR` `1)= S ^IBM(361,"AERR",$E(X,1,30),DA)=""` `2)= K ^IBM(361,"AERR",$E(X,1,30),DA)` `3)= Do not delete`
.12	DATE GENERATED	0;12	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 26, 2000` HELP-PROMPT: `Enter the date the message was generated at the source` DESCRIPTION: `This is the date the message was created at the source.` RECORD INDEXES: `AD (#129)`
.13	FINAL REVIEW DATE	0;13	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 05, 2001` HELP-PROMPT: `Enter the date this message received its final review.` DESCRIPTION: `This is the date of the final review of the message. It will be used to determine when the message should be automatically deleted from the file.` NOTES: `TRIGGERED by the FINAL REVIEW ACTION field of the BILL STATUS MESSAGE File` CROSS-REFERENCE: `361^AFR` `1)= S ^IBM(361,"AFR",$E(X,1,30),DA)=""` `2)= K ^IBM(361,"AFR",$E(X,1,30),DA)` `3)= Please do not delete` `This cross reference provides an index for the status message file by final review date. This is used to determine when a record should be deleted from the file.`
.14	AUTO FILED WITH NO REVIEW	0;14	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `APR 19, 2001` HELP-PROMPT: `Enter YES if this record was auto filed and requires no review` DESCRIPTION: `This field is set to YES (1) when the return message text contains any of the text defined in file 361.3 that indicates no review is needed.` CROSS-REFERENCE: `361^ANR` `1)= S ^IBM(361,"ANR",$E(X,1,30),DA)=""` `2)= K ^IBM(361,"ANR",$E(X,1,30),DA)` `3)= Do not delete` `Fast access to messages that need no review`
.15	MESSAGE CHECKSUM	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<1) X` LAST EDITED: `JUL 22, 2005` HELP-PROMPT: `Answer must be 1-18 characters in length` DESCRIPTION: `This field contains the calculated checksum value of the status message text. It is a unique number which is mathematically generated based on the actual data in the 277STAT flat file data received from Austin. This` `checksum value is used to eliminate duplicate status message transmissions into VistA.` TECHNICAL DESCR: `This field should never be set manually.`
.16	DATE LAST PRINTED VIA MCS	0;16	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `OCT 26, 2005` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `This is the date that the associated claim was most recently printed by the MCS option - Resubmit by Print.`
1	STATUS MESSAGE	1;0	WORD-PROCESSING #361.01	DESCRIPTION: `This is the message text and other pertinent data from a status message for the bill.` LAST EDITED: `JUN 21, 1999` HELP-PROMPT: `Enter the text of the status message` DESCRIPTION: `This is the message text and other pertinent data from a status message for the bill.`
2	REVIEW DATE	2;0	DATE Multiple #361.02	361.02 DESCRIPTION: `This is the date and time a review was initiated by a user.`
3	SUBMITTED 'AS IS' DT/TM	3;0	DATE Multiple #361.04	361.04 DESCRIPTION: `These are dates this rejected claim was resubmitted without changes.`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	.1(XREF 1S)
>> %DT	.02+1, .12+1, .13+1, .16+1
%H	.1(XREF 1S)
%I	.1(XREF 1S)
>> D0	.1(XREF 1S), .1(XREF 1K)
>> DA	IXACSASL+1, IXACSAKL+1, IXADSL+1, IXADKL+1, IXADRSL+1, IXADRKL+1, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K) , .03(XREF 1S), .03(XREF 1K), .06(XREF 1S), .06(XREF 1K), .09(XREF 1S), .09(XREF 1K), .1(XREF 1S), .1(XREF 1K), .11(XREF 1S), .11(XREF 1K) , .13(XREF 1S), .13(XREF 1K), .14(XREF 1S), .14(XREF 1K)
DIC	ID.03+1, ID.07+1, .11+1!*
DIC("S"	.11+1, .11SCR+1
>> DIE	.11+1
>> DIG	.1(XREF 1S), .1(XREF 1K)
>> DIH	.1(XREF 1S), .1(XREF 1K)
>> DIU	.1(XREF 1S), .1(XREF 1K)
DIV	.1(XREF 1S), .1(XREF 1K)
DIV(0	.1(XREF 1S), .1(XREF 1K)
U	.1(XREF 1S), .1(XREF 1K)
X	.01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .06+1!, .06(XREF 1S), .06(XREF 1K) , .08+1!, .09(XREF 1S), .09(XREF 1K), .1(XREF 1S), .1(XREF 1K), .11+1!, .11(XREF 1S), .11(XREF 1K), .12+1!, .13+1! , .13(XREF 1S), .13(XREF 1K), .14(XREF 1S), .14(XREF 1K), .15+1!, .16+1*!
X(1	IXACSASL+1, IXACSAKL+1, IXADRSL+1, IXADRKL+1
X(2	IXACSASL+1, IXACSAKL+1, IXADRSL+1, IXADRKL+1
>> X1(1	IXADKL+1
>> X1(2	IXADKL+1
>> X2(1	IXADSL+1
>> X2(2	IXADSL+1
Y	.02+1, .1(XREF 1S), .1(XREF 1K), .11+1, .12+1, .13+1, .16+1
Y(1	.1(XREF 1S), .1(XREF 1K)

Customize PDF page

Package: Integrated Billing

Global: ^IBM(361

Information

Description

Directly Accessed By Routines, Total: 34

Accessed By FileMan Db Calls, Total: 11

Pointer To FileMan Files, Total: 4

Fields, Total: 19

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	.02+1, .12+1, .13+1, .16+1
NOW^%DTC	.1(XREF 1S)
^DIC	.11+1
^DICR	.1(XREF 1S), .1(XREF 1K)