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

Package: Third Party Billing

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

Sub-Field: 9002274.3017


Information

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

Details

Field # Name Loc Type Details
.01 DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,9)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
  • LAST EDITED:  MAR 27, 1991
  • SCREEN:  S DIC("S")="I '$P(^(0),U,9)"
  • EXPLANATION:  Check if inactive
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.02 PRIORITY ORDER 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N)!(X=1&($E(^ICD9(DA,0))="E")) X
  • LAST EDITED:  APR 13, 1990
  • HELP-PROMPT:  Type a Number between 1 and 10 (E-Code can't be primary)
  • CROSS-REFERENCE:  9002274.3017^C
    1)= S ^ABMDCLM(DUZ(2),DA(1),17,"C",$E(X,1,30),DA)=""
    2)= K ^ABMDCLM(DUZ(2),DA(1),17,"C",$E(X,1,30),DA)
.03 PROVIDER'S NARRATIVE 0;3 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:  APR 29, 2014
  • SCREEN:  S DIC("S")="S DIC(0)=""XL"" I 1"
  • EXPLANATION:  Entry will be stuffed as typed without matching
.04 E-CODE 0;4 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  NOV 04, 2002
  • TECHNICAL DESCR:  
    Added field 11/4/02 to hold E-code for each diagnosis.
.05 PRESENT ON ADMISSION INDICATOR 0;5 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;
  • 'W' FOR CLINICALLY UNDETERMINED;
  • '1' FOR UNREPORTED/NOT USED;

  • LAST EDITED:  NOV 16, 2007
  • DESCRIPTION:  CMS requires all inpatient acute care facilities to submit a Present on Admission indicator. This indicator is used to evaluate and determine reimbursement for inpatient services. Critical Access hospitals are exempt
    from using POA.
.06 ICD INDICATOR 0;6 SET
  • '1' FOR ICD-10;

  • LAST EDITED:  FEB 12, 2019
.07 EXTERNAL CAUSE 2 0;7 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D CHKE^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 31, 2015
  • HELP-PROMPT:  Must be valid External Cause Code
  • SCREEN:  S DIC("S")="D CHKE^AUPNSICD"
  • EXECUTABLE HELP:  D HELPE^AUPNSICD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.08 EXTERNAL CAUSE 3 0;8 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D CHKE^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 31, 2015
  • HELP-PROMPT:  Must be a valid external cause code
  • SCREEN:  S DIC("S")="D CHKE^AUPNSICD"
  • EXPLANATION:  Must be a valid external cause code
  • EXECUTABLE HELP:  D HELPE^AUPNSICD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.09 PLACE OF OCCURRENCE 0;9 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D PLACE^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 31, 2015
  • HELP-PROMPT:  Must be a valid Place of Occurrence Code.
  • SCREEN:  S DIC("S")="D PLACE^AUPNSICD"
  • EXPLANATION:  Must be a valid Place of Occurrence Code
  • EXECUTABLE HELP:  D HELPPL^AUPNSICD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
11 SNOMED CONCEPT ID 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  APR 02, 2014
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • TECHNICAL DESCR:  
    Comes from V POV field 1101 SNOMED CONCEPT ID
12 SNOMED PREFERRING TERM COMPUTED

  • MUMPS CODE:  I $D(^ROUTINE("AUPNVUTL")) S Y=$S($P($G(^ABMDCLM(DUZ(2),DA,17,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,17,D1,1)),U):$P(^(1),U),1:"") S X=Y,X=$$CONCPT^AUPNVUTL(X)
  • LAST EDITED:  APR 07, 2014
13 SNOMED DESCRIPTION ID 1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  APR 02, 2014
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
14 SNOMED DESC ID PERFERRED TERM COMPUTED

  • MUMPS CODE:  I $D(^ROUTINE("AUPNVUTL")) S Y=$S($P($G(^ABMDCLM(DUZ(2),DA,17,D1,1)),U,2):$P(^(1),U,2),1:"") S X=Y,X=$$DESCPT^AUPNVUTL(X)
  • ALGORITHM:  I $D(^ROUTINE("AUPNVUTL")) S Y=$S($P($G(^ABMDCLM(DUZ(2),DA,17,D1,1)),U,2):$P(^(1),U,2),1:"") S X=Y,X=$$DESCPT^AUPNVUTL(X)
  • LAST EDITED:  APR 08, 2014
15 PRIMARY SNOMED 1;5 FREE TEXT

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

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

  • LAST EDITED:  APR 02, 2014
  • TECHNICAL DESCR:  
    Comes from V POV field .241 ICD-9 CODE
22 DUAL CODING ICD-9 NARRATIVE COMPUTED

  • MUMPS CODE:  I $D(^ROUTINE("ICDEX"))&(+$P($G(^ABMDCLM(DUZ(2),DA,17,D1,2)),U)'=0) S X=$$VSTD^ICDEX($P(^(2),U),$P($G(^ABMDCLM(DUZ(2),DA,7)),U))
  • ALGORITHM:  I $D(^ROUTINE("ICDEX"))&(+$P($G(^ABMDCLM(DUZ(2),DA,17,D1,2)),U)'=0) S X=$$VSTD^ICDEX($P(^(2),U),$P($G(^ABMDCLM(DUZ(2),DA,7)),U))
  • LAST EDITED:  APR 24, 2014
  • TECHNICAL DESCR:  
    Comes from V POV field .241 ICD-9 CODE NARRATIVE
23 DUAL CODING CAUSE (E-CODE) 2;3 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  APR 02, 2014
  • TECHNICAL DESCR:  
    Comes from V POV field .25 CAUSE (E-CODE)
24 DUAL CODING CAUSE (E-CODE) #2 2;4 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  APR 02, 2014
  • TECHNICAL DESCR:  
    Comes from V POV field .26 CAUSE (E-CODE) #2
25 DUAL CODING CAUSE (E-CODE) #3 2;5 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  APR 02, 2014
  • TECHNICAL DESCR:  
    Comes from V POV field .27 CAUSE (E-CODE) #3
26 PLACE OF OCCURRENCE (E849) 2;6 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D CHKPL9^AUPNSIC9" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 31, 2015
  • HELP-PROMPT:  Must be a valid code in the range E849-E849.9.
  • SCREEN:  S DIC("S")="D CHKPL9^AUPNSIC9"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
Info |  Details |  All