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

Package: Third Party Billing

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

Sub-Field: 9002274.3021


Information

Parent File Name Number Package
3P CLAIM DATA(#9002274.3) Surgical Procedure 9002274.3021 Third Party Billing

Details

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

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",1)>9999,$P(^(0),""^"",1)<70000" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 29, 1996
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",1)>9999,$P(^(0),""^"",1)<70000"
  • EXPLANATION:  SURGICAL CODES ONLY
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002274.3021^B
    1)= S ^ABMDCLM(DUZ(2),DA(1),21,"B",$E(X,1,30),DA)=""
    2)= K ^ABMDCLM(DUZ(2),DA(1),21,"B",$E(X,1,30),DA)
.02 PRIORITY ORDER 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 01, 1990
  • HELP-PROMPT:  Type a Number between 1 and 30, 0 Decimal Digits
  • CROSS-REFERENCE:  9002274.3021^C
    1)= S ^ABMDCLM(DUZ(2),DA(1),21,"C",$E(X,1,30),DA)=""
    2)= K ^ABMDCLM(DUZ(2),DA(1),21,"C",$E(X,1,30),DA)
.03 REVENUE CODE 0;3 POINTER TO REVENUE CODES FILE (#9999999.72) REVENUE CODES(#9999999.72)

  • LAST EDITED:  JUN 21, 1990
.04 CORRESPONDING DIAGNOSOIS 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  MAR 11, 1997
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
.05 SERVICE FROM DATE/TIME 0;5 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 19, 2006
.06 PROVIDER NARRATIVE 0;6 POINTER TO PROVIDER NARRATIVE FILE (#9999999.27)
************************REQUIRED FIELD************************
PROVIDER NARRATIVE(#9999999.27)

  • INPUT TRANSFORM:  S DIC("S")="S DIC(0)=""XL"" I 1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S Y=$S($D(^ROUTINE("AUPNVUTL")):$$SNOMED^AUPNVUTL(Y),1:$$GET1^DIQ(9999999.27,Y,".01","E"))
  • LAST EDITED:  MAY 05, 2014
  • SCREEN:  S DIC("S")="S DIC(0)=""XL"" I 1"
  • EXPLANATION:  Entry is stuffed as typed w/o selective matching
.07 UNIT CHARGE 0;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,4,2)
  • LAST EDITED:  MAY 24, 1995
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
.08 AUTO ICD-CORRELATOR UNRESOLVED 0;8 SET
  • 'Y' FOR YES;

  • LAST EDITED:  MAY 31, 1990
.09 MODIFIER 0;9 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
.11 SECOND MODIFIER 0;11 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
.12 THIRD MODIFIER 0;12 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
.13 UNITS 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 24, 1995
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
.14 *PROVIDER 0;14 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 10, 2006
.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 17, 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)>14!($L(X)<1) X
  • LAST EDITED:  JUL 20, 1998
  • HELP-PROMPT:  Answer must be 1-14 characters in length.
  • CROSS-REFERENCE:  9002274.3^ASRC21^MUMPS
    1)= S ^ABMDCLM(DUZ(2),DA(1),"ASRC",$E(X,1,30),DA)=""
    2)= K:$G(DC)'="M" ^ABMDCLM(DUZ(2),DA(1),"ASRC",$E(X,1,30),DA)
    3)= Used by background checker
  • CROSS-REFERENCE:  9002274.3021^ASRCS
    1)= S ^ABMDCLM(DUZ(2),DA(1),21,"ASRCS",$E(X,1,30),DA)=""
    2)= K ^ABMDCLM(DUZ(2),DA(1),21,"ASRCS",$E(X,1,30),DA)
    3)= Used by background checker
.18 SERVICE LINE PROVIDER P;0 POINTER Multiple #9002274.302118 9002274.302118

  • IDENTIFIED BY:  TYPE(#.02)
.19 SERVICE TO DATE/TIME 0;19 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 19, 2006
.23 PRINT ORDER 0;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  SEP 20, 2017
  • HELP-PROMPT:  Type a number between 1 and 99999, 0 decimal digits.
  • CROSS-REFERENCE:  9002274.3^C^MUMPS
    1)= S ^ABMDCLM(DUZ(2),DA(1),"PO",X,21,DA)=""
    2)= K ^ABMDCLM(DUZ(2),DA(1),"PO",X,21,DA)
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