STANDARD DATA DICTIONARY #361 -- BILL STATUS MESSAGE FILE 3/24/25 PAGE 1
STORED IN ^IBM(361, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the data from the return status messages for IB bills returned via EDI from Austin FSC and AAC.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: MESSAGE SEVERITY (#.03), BILL'S COB SEQUENCE (#.07)
CROSS
REFERENCED BY: RETURN MESSAGE ID(AC), TRANSMIT BILL(AERR), FINAL REVIEW DATE(AFR), AUTO FILED WITH NO REVIEW(ANR),
DATE RECEIVED(ARD), REVIEW STATUS(AREV), SUBMITTED 'AS IS' DT/TM(ARPN), MESSAGE SEVERITY(ASV), BILL NUMBER(B)
INDEXED BY: MESSAGE SEVERITY & REVIEW STATUS (ACSA), BILL NUMBER & DATE GENERATED (AD), BILL NUMBER & DATE RECEIVED (ADR)
LAST MODIFIED: NOV 16,2020@12:13:29
361,.01 BILL NUMBER 0;1 POINTER TO BILL/CLAIMS FILE (#399) (Required)
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)
361,.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)
361,.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)
361,.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).
361,.05 BATCH NUMBER 0;5 POINTER TO EDI TRANSMISSION BATCH FILE (#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.
361,.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.
361,.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.
361,.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.
361,.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)
361,.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 D
IU=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=36
1,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 D
IU=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
361,.11 TRANSMIT BILL 0;11 POINTER TO EDI TRANSMIT BILL FILE (#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=DI
E,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
361,.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)
361,.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.
361,.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
361,.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.
361,.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.
361,1 STATUS MESSAGE 1;0 WORD-PROCESSING #361.01 (NOWRAP)
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.
361,2 REVIEW DATE 2;0 DATE Multiple #361.02
DESCRIPTION:
This is the date and time a review was initiated by a user.
361.02,.01 REVIEW DATE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 02, 1999
HELP-PROMPT: Enter the date a review of this message was performed
DESCRIPTION:
This is the date and time a review was initiated by a user.
CROSS-REFERENCE: 361.02^B
1)= S ^IBM(361,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^IBM(361,DA(1),2,"B",$E(X,1,30),DA)
361.02,.02 REVIEWED BY 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 02, 1999
HELP-PROMPT: Enter the name of the user who reviewed this message.
DESCRIPTION:
This is the name of the person who selected the option to review this message.
361.02,.03 COMMENTS 1;0 WORD-PROCESSING #361.03
LAST EDITED: AUG 02, 1999
HELP-PROMPT: Enter a description of any issues or comments to be saved with this review.
DESCRIPTION: A comment can be entered to describe what took place during status message review. Issues
encountered or resolved, special circumstances regarding the claim, etc. are examples of the
type of comments to enter here.
361,3 SUBMITTED 'AS IS' DT/TM 3;0 DATE Multiple #361.04
DESCRIPTION:
These are dates this rejected claim was resubmitted without changes.
361.04,.01 SUBMITTED 'AS IS' DT/TM 0;1 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
LAST EDITED: JAN 13, 2020
HELP-PROMPT: Enter the date/time this claim was resubmitted.
DESCRIPTION:
These are dates this rejected claim was resubmitted without changes.
CROSS-REFERENCE: 361.04^B
1)= S ^IBM(361,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^IBM(361,DA(1),3,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 361^ARPN
1)= S ^IBM(361,"ARPN",$E(X,1,30),DA(1),DA)=""
2)= K ^IBM(361,"ARPN",$E(X,1,30),DA(1),DA)
This cross reference is used to report rejected claims resubmitted without corrective action.
361.04,.02 SUBMITTED BY 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 13, 2020
HELP-PROMPT: Enter the biller that resubmitted this claim.
DESCRIPTION:
This is the biller that resubmitted this rejected claim without changes.
361.04,.03 SUBMITTED HOW 0;3 SET
'PX' FOR RESUBMIT BY PRINT;
'TX' FOR RETRANSMIT BILL;
'P' FOR PRINT BILL;
LAST EDITED: JAN 13, 2020
HELP-PROMPT: Enter the method of resubmission.
DESCRIPTION:
This is the method how this rejected claim was resubmitted without changes.
FILES POINTED TO FIELDS
BILL/CLAIMS (#399) BILL NUMBER (#.01)
EDI TRANSMISSION BATCH (#364.1) BATCH NUMBER (#.05)
EDI TRANSMIT BILL (#364) TRANSMIT BILL (#.11)
NEW PERSON (#200) REVIEW DATE:REVIEWED BY (#.02)
SUBMITTED 'AS IS' DT/TM:SUBMITTED BY (#.02)
File #361
Record Indexes:
ACSA (#416) RECORD REGULAR IR SORTING ONLY
Short Descr: Index by Message Severity and Review Status
Description: This index is used in the CSA screen (Claims Status Awaiting Resolution). Most often the CSA screen is built
with unreviewed rejection messages. This index file can immediately locate them.
Set Logic: S ^IBM(361,"ACSA",X(1),X(2),DA)=""
Kill Logic: K ^IBM(361,"ACSA",X(1),X(2),DA)
Whole Kill: K ^IBM(361,"ACSA")
X(1): MESSAGE SEVERITY (361,.03) (Subscr 1) (forwards)
X(2): REVIEW STATUS (361,.09) (Subscr 2) (forwards)
AD (#129) RECORD REGULAR IR SORTING ONLY
Short Descr: XREF BY BILL NUMBER AND DATE GENERATED
Description: This xref is used to warn if the message may be a dup if more than one message for the same date/time exists.
Set Logic: S ^IBM(361,"AD",$E(X2(1),1,30),$E(X2(2),1,30),DA)=""
Kill Logic: K ^IBM(361,"AD",$E(X1(1),1,30),$E(X1(2),1,30),DA)
Whole Kill: K ^IBM(361,"AD")
X(1): BILL NUMBER (361,.01) (Subscr 1) (Len 30) (forwards)
X(2): DATE GENERATED (361,.12) (Subscr 2) (Len 30) (forwards)
ADR (#130) RECORD REGULAR IR SORTING ONLY
Short Descr: Cross reference by bill # and date message received
Set Logic: S ^IBM(361,"ADR",$E(X(1),1,30),$E(X(2),1,30),DA)=""
Kill Logic: K ^IBM(361,"ADR",$E(X(1),1,30),$E(X(2),1,30),DA)
Whole Kill: K ^IBM(361,"ADR")
X(1): BILL NUMBER (361,.01) (Subscr 1) (Len 30) (forwards)
X(2): DATE RECEIVED (361,.02) (Subscr 2) (Len 30) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):