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

Package: Third Party Billing

3P BILL(#9002274.4)-->9002274.4013

Sub-Field: 9002274.4013


Information

Parent File Name Number Package
3P BILL(#9002274.4) Insurer 9002274.4013 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.4013^B
    1)= S ^ABMDBILL(DUZ(2),DA(1),13,"B",$E(X,1,30),DA)=""
    2)= K ^ABMDBILL(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:  NOV 23, 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 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 28, 1992
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • CROSS-REFERENCE:  9002274.4013^C
    1)= S ^ABMDBILL(DUZ(2),DA(1),13,"C",$E(X,1,30),DA)=""
    2)= K ^ABMDBILL(DUZ(2),DA(1),13,"C",$E(X,1,30),DA)
.03 STATUS 0;3 SET
  • 'F' FOR FLAGGED;
  • 'I' FOR INITIATED;
  • 'P' FOR PENDING;
  • 'U' FOR UNBILLABLE;
  • 'C' FOR COMPLETED;

  • LAST EDITED:  AUG 22, 1990
.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(^ABMDBILL(DUZ(2),DA(1),0),U,5)" 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(^ABMDBILL(DUZ(2),DA(1),0),U,5)"
  • 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
.12 CLAIM CHECK OR REMIT DATE 0;12 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  OCT 05, 2010
  • HELP-PROMPT:  (No range limit on date)
11 COVERAGE TYPE 11;0 POINTER Multiple #9002274.401311 9002274.401311
Info |  Details |  All