Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 361.18

Package: Integrated Billing

EXPLANATION OF BENEFITS(#361.1)-->361.18

Sub-Field: 361.18


Information

Parent File Name Number Package
EXPLANATION OF BENEFITS(#361.1) AR AMOUNTS DISTRIBUTION 361.18 Integrated Billing

Details

Field # Name Loc Type Details
.01 BILL # 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  MAR 18, 2003
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    This is the free text bill # that AR has determined this ERA has referenced.
  • CROSS-REFERENCE:  361.18^B
    1)= S ^IBM(361.1,DA(1),8,"B",$E(X,1,30),DA)=""
    2)= K ^IBM(361.1,DA(1),8,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  361.1^C
    1)= S ^IBM(361.1,"C",$E(X,1,30),DA(1),DA)=""
    2)= K ^IBM(361.1,"C",$E(X,1,30),DA(1),DA)
    3)= Do not delete
.02 AMOUNT 0;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999999999)!(X<-9999999999999) X
  • LAST EDITED:  MAR 13, 2003
  • HELP-PROMPT:  Type a Dollar Amount between -9999999999999 and 9999999999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount of money from this ERA that AR has determined applies to the corresponding bill.
.03 BILL REFERENCE 0;3 POINTER TO BILL/CLAIMS FILE (#399) BILL/CLAIMS(#399)

  • LAST EDITED:  MAR 18, 2003
  • HELP-PROMPT:  Enter the IB bill reference for this distribution amount
  • DESCRIPTION:  
    This is the actual pointer to file 399 for the bill referenced in this distribution record.  If this data is missing, the amount was posted to suspense.
  • CROSS-REFERENCE:  361.1^C
    1)= S ^IBM(361.1,"C",$E(X,1,30),DA(1),DA)=""
    2)= K ^IBM(361.1,"C",$E(X,1,30),DA(1),DA)
    3)= Do not delete
  • CROSS-REFERENCE:  361.18^AC
    1)= S ^IBM(361.1,DA(1),8,"AC",$E(X,1,30),DA)=""
    2)= K ^IBM(361.1,DA(1),8,"AC",$E(X,1,30),DA)
    3)= Do not delete
Info |  Details |  All