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: 9002274.3013

Package: Third Party Billing

3P CLAIM DATA(#9002274.3)-->9002274.3013

Sub-Field: 9002274.3013


Information

Parent File Name Number Package
3P CLAIM DATA(#9002274.3) Insurer 9002274.3013 Third Party Billing

Details

Field # Name Loc Type Details
.01 INSURER 0;1 POINTER TO INSURER FILE (#9999999.18) INSURER(#9999999.18)

  • LAST EDITED:  APR 10, 1995
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002274.3013^B
    1)= S ^ABMDCLM(DUZ(2),DA(1),13,"B",$E(X,1,30),DA)=""
    2)= K ^ABMDCLM(DUZ(2),DA(1),13,"B",$E(X,1,30),DA)
.011 REPLACEMENT INSURER 0;11 POINTER TO INSURER FILE (#9999999.18) INSURER(#9999999.18)

  • LAST EDITED:  AUG 15, 2005
.013 VETERANS (VAMB) ELIGIBLE 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1.N) X
  • LAST EDITED:  AUG 15, 2013
  • HELP-PROMPT:  Type a number between 0 and 9999999, 0 decimal digits.
.02 PRIORITY ORDER 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 27, 1997
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • CROSS-REFERENCE:  9002274.3013^C
    1)= S ^ABMDCLM(DUZ(2),DA(1),13,"C",$E(X,1,30),DA)=""
    2)= K ^ABMDCLM(DUZ(2),DA(1),13,"C",$E(X,1,30),DA)
.03 STATUS 0;3 SET
************************REQUIRED FIELD************************
  • 'F' FOR FLAGGED;
  • 'I' FOR ACTIVE;
  • 'P' FOR PENDING;
  • 'U' FOR UNBILLABLE;
  • 'C' FOR COMPLETED;
  • 'B' FOR BILLED;
  • 'L' FOR PARTIAL;

  • LAST EDITED:  NOV 23, 1999
  • CROSS-REFERENCE:  9002274.3013^ACTIVE^MUMPS
    1)= D SETI03^ABMDUTL
    2)= D KILLI03^ABMDUTL
    3)= Used to keep field .08 in synch
    This X-ref works like a trigger.  It will keep field .08 in synch with the active insurer in the multiple.  It will also keep the .04 field in synch with the active insurer multiple.
.04 MEDICARE MULTIPLE 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 10, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
.05 RAILROAD MULTIPLE 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 10, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
.06 MEDICAID ELIG POINTER 0;6 POINTER TO MEDICAID ELIGIBLE FILE (#9000004) MEDICAID ELIGIBLE(#9000004)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U)=$P(^ABMDCLM(DUZ(2),DA(1),0),U)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 27, 1990
  • SCREEN:  S DIC("S")="I $P(^(0),U)=$P(^ABMDCLM(DUZ(2),DA(1),0),U)"
  • EXPLANATION:  MUST CORRESPOND TO PATIENT
.07 MEDICAID MULTIPLE 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 27, 1990
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
.08 PRIVATE INSURANCE MULTIPLE 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 09, 1991
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
.09 MANUALLY ADDED INSURER 0;9 SET
  • 'Y' FOR YES;

  • LAST EDITED:  FEB 28, 2003
  • DESCRIPTION:  
    This field will be populated if the insurer as added through the Manually Create a Claim option.
11 COVERAGE TYPE 11;0 POINTER Multiple #9002274.301311 9002274.301311
Info |  Details |  All