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

Package: Third Party Billing

3P BILL(#9002274.4)-->9002274.4037

Sub-Field: 9002274.4037


Information

Parent File Name Number Package
3P BILL(#9002274.4) Laboratory 9002274.4037 Third Party Billing

Details

Field # Name Loc Type Details
.01 LABORATORY (CPT CODE) 0;1 POINTER TO CPT FILE (#81) CPT(#81)

  • INPUT TRANSFORM:  S DIC("S")="N ABMF I $$LAB^ABMMLTIT=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 26, 2010
  • SCREEN:  S DIC("S")="N ABMF I $$LAB^ABMMLTIT=1"
  • EXPLANATION:  LAB CODES ONLY
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.02 REVENUE CODE 0;2 POINTER TO REVENUE CODES FILE (#9999999.72) REVENUE CODES(#9999999.72)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)'=0,$E(^(0),1,2)>29,$E(^(0),1,2)<32" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 21, 1990
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=0,$E(^(0),1,2)>29,$E(^(0),1,2)<32"
  • EXPLANATION:  REVN CODE MUST RELATE TO LAB
.03 UNITS 0;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  JAN 17, 2012
  • HELP-PROMPT:  Type a number between 1 and 999, 0 Decimal Digits
.04 UNIT CHARGE 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,4,2)
  • LAST EDITED:  MAY 05, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
.05 SERVICE FROM DATE/TIME 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 19, 2006
.06 MODIFIER 0;6 FREE TEXT

  • INPUT TRANSFORM:  D EN^ABMMODIT
  • LAST EDITED:  JUL 15, 2008
  • HELP-PROMPT:  Select entry from CPT Modifiers File.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.07 SECOND MODIFIER 0;7 FREE TEXT

  • INPUT TRANSFORM:  D EN^ABMMODIT
  • LAST EDITED:  JUL 15, 2008
  • HELP-PROMPT:  Select entry from CPT Modifiers File.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.08 THIRD MODIFIER 0;8 FREE TEXT

  • INPUT TRANSFORM:  D EN^ABMMODIT
  • LAST EDITED:  JUL 15, 2008
  • HELP-PROMPT:  Select entry from CPT Modifiers File.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.09 CORRESPONDING DIAGNOSIS 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  APR 06, 1995
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
.11 *PROVIDER 0;11 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 10, 2006
.12 SERVICE TO DATE/TIME 0;12 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 19, 2006
.13 IN-HOUSE CLIA# 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<10)!'(X?2N1U7N) X
  • LAST EDITED:  JUN 28, 2005
  • HELP-PROMPT:  Answer must be 10 characters in length.
.14 REFERENCE LAB CLIA# 0;14 POINTER TO 3P REFERENCE LAB LOCATIONS FILE (#9002274.35) 3P REFERENCE LAB LOCATIONS(#9002274.35)

  • LAST EDITED:  JUN 28, 2005
.15 HCFA POS 0;15 POINTER TO 3P CODES FILE (#9002274.03) 3P CODES(#9002274.03)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""H""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 18, 2004
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""H"""
  • EXPLANATION:  HCFA POS entries only
.16 HCFA TOS 0;16 POINTER TO 3P CODES FILE (#9002274.03) 3P CODES(#9002274.03)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""K""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 18, 2004
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""K"""
  • EXPLANATION:  HCFA TOS entries only
.17 DATA SOURCE 0;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  DEC 13, 2005
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
.18 SERVICE LINE PROVIDER P;0 POINTER Multiple #9002274.403718 9002274.403718
.19 TYPE OF TEST RESULT 0;19 SET

  • LAST EDITED:  OCT 02, 2008
.21 TEST RESULT 0;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2.N) X
  • LAST EDITED:  OCT 02, 2008
  • HELP-PROMPT:  Type a number between 0 and 99.9, 1 Decimal Digit
.22 TEST DATE 0;22 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  AUG 05, 2010
  • HELP-PROMPT:  (No range limit on date)
.23 PRINT ORDER 0;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  SEP 05, 2017
  • HELP-PROMPT:  Type a number between 1 and 99999, 0 decimal digits.
21 LINE ITEM CONTROL NUMBER 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<18) X
  • LAST EDITED:  FEB 01, 2011
  • HELP-PROMPT:  Answer must be 18 characters in length
  • TECHNICAL DESCR:  This field will be unique for each line item on every bill. The format being used is:
    Characters 1-12  = Bill IEN
    Characters 13-14 = Multiple #
    Characters 15-18 = Line item counter
22 CPT NARRATIVE 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  FEB 22, 2012
  • HELP-PROMPT:  Answer must be 3-80 characters in length
Info |  Details |  All