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

Package: Third Party Billing

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

Sub-Field: 9002274.3019


Information

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

Details

Field # Name Loc Type Details
.01 ICD Procedure 0;1 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • LAST EDITED:  AUG 25, 2000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002274.3019^B
    1)= S ^ABMDCLM(DUZ(2),DA(1),19,"B",$E(X,1,30),DA)=""
    2)= K ^ABMDCLM(DUZ(2),DA(1),19,"B",$E(X,1,30),DA)
.02 PRIORITY ORDER 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 16, 1993
  • HELP-PROMPT:  Type a Number between 1 and 10, 0 Decimal Digits
  • CROSS-REFERENCE:  9002274.3019^C
    1)= S ^ABMDCLM(DUZ(2),DA(1),19,"C",$E(X,1,30),DA)=""
    2)= K ^ABMDCLM(DUZ(2),DA(1),19,"C",$E(X,1,30),DA)
.03 DATE of SERVICE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 19, 1990
.04 PROVIDER'S NARRATIVE 0;4 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
  • LAST EDITED:  AUG 21, 1990
  • SCREEN:  S DIC("S")="S DIC(0)=""XL"" I 1"
  • EXPLANATION:  Entry will be stuffed exactly as typed with no matching
.06 ICD INDICATOR 0;6 SET
  • '1' FOR ICD-10;

  • LAST EDITED:  MAR 18, 2014
.17 DATA SOURCE 0;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  NOV 03, 1998
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Used by background checker to prevent dupe entries in leu of dinumming.
  • CROSS-REFERENCE:  9002274.3^ASRC^MUMPS
    1)= S ^ABMDCLM(DUZ(2),DA(1),"ASRC",$E(X,1,30),DA,19)=""
    2)= K ^ABMDCLM(DUZ(2),DA(1),"ASRC",$E(X,1,30),DA,19)
    3)= Used by background checker
    Don't do the kill logic if the new value is M.  This needs to be fixed to solve the problem with duplicates.
11 SNOMED CT 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 09, 2014
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
12 SNOMED CT PREFERRED TERM COMPUTED

  • MUMPS CODE:  I $D(^ROUTINE("AUPNVUTL")) S Y=$S($P($G(^ABMDCLM(DUZ(2),DA,19,D1,1)),U):$P(^(1),U),1:"") S X=Y,X=$$CONCPT^AUPNVUTL(X)
  • ALGORITHM:  I $D(^ROUTINE("AUPNVUTL")) S Y=$S($P($G(^ABMDCLM(DUZ(2),DA,19,D1,1)),U):$P(^(1),U),1:"") S X=Y,X=$$CONCPT^AUPNVUTL(X)
  • LAST EDITED:  APR 09, 2014
21 DUAL CODING ICD-9 PROCEDURE 2;1 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • LAST EDITED:  APR 20, 2015
22 DUAL CODING ICD-9 DX CODE 2;2 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  APR 20, 2015
Info |  Details |  All