Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | All
Print Page as PDF
Global: ^IBM(361

Package: Integrated Billing

Global: ^IBM(361


Information

FileMan FileNo FileMan Filename Package
361 BILL STATUS MESSAGE Integrated Billing

Description

Directly Accessed By Routines, Total: 25

Package Total Routines
Integrated Billing 24 IB20P229    IBCECSA1    IBCECSA2    IBCECSA3    IBCEF4    IBCEM    IBCEM4    IBCEMCA1
IBCEMCA2    IBCEMCL    IBCEMPRG    IBCEMSG    IBCEMSG1    IBCEMU2    IBCERP2    IBCEST
IBCEU0    IBJTED    IBJTU6    IBRFN4    IBY197PO    IBY283PO    IBY320PO    IBY368PO
Accounts Receivable 1 RCXVDC3    

Accessed By FileMan Db Calls, Total: 9

Package Total Routines
Integrated Billing 9 IB20P229    IBCECSA2    IBCEM    IBCEMPRG    IBCEMSG    IBCEMSG2    IBCEST    IBCEU0
IBJTU6    

Pointer To FileMan Files, Total: 4

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)]    

Fields, Total: 18

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.
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.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #4603
  • Accounts Receivable
  • MESSAGE SEVERITY (.03).
    Access: Direct Global Read & w/Fileman

    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | All