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

Package: Third Party Billing

3P BILL(#9002274.4)-->9002274.4017

Sub-Field: 9002274.4017


Information

Parent File Name Number Package
3P BILL(#9002274.4) Diagnosis 9002274.4017 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:  AUG 22, 1990
  • 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.4017^C
    1)= S ^ABMDBILL(DUZ(2),DA(1),17,"C",$E(X,1,30),DA)=""
    2)= K ^ABMDBILL(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)

  • OUTPUT TRANSFORM:  S Y=$S($D(^ROUTINE("AUPNVUTL")):$$SNOMED^AUPNVUTL(Y),1:$$GET1^DIQ(9999999.27,Y,".01","E"))
  • LAST EDITED:  APR 29, 2014
.04 E-CODE 0;4 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  MAR 23, 2012
.05 PRESENT ON ADMISSION INDICATOR 0;5 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;
  • 'W' FOR CLINCIALLY UNDETERMINED;
  • '1' FOR UNREPORTED/NOT USED;

  • LAST EDITED:  NOV 16, 2007
.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:  AUG 03, 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:  AUG 03, 2015
  • HELP-PROMPT:  Must be a 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
.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:  AUG 03, 2015
  • HELP-PROMPT:  Must be a valid Place of Occurrence code
  • SCREEN:  S DIC("S")="D PLACE^AUPNSICD"
  • 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 08, 2014
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • TECHNICAL DESCR:  
    Comes from V POV field 1101 SNOMED CONCEPT ID
12 SNOMED PREFERRED TERM COMPUTED

  • MUMPS CODE:  I $D(^ROUTINE("AUPNVUTL")) S Y=$S($P($G(^ABMDBILL(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(^ABMDBILL(DUZ(2),DA,17,D1,1)),U):$P(^(1),U),1:"") S X=Y,X=$$CONCPT^AUPNVUTL(X)
  • LAST EDITED:  APR 08, 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 PREFERRED TERM COMPUTED

  • MUMPS CODE:  I $D(^ROUTINE("AUPNVUTL")) S Y=$S($P($G(^ABMDBILL(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(^ABMDBILL(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(^ABMDBILL(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(^ABMDBILL(DUZ(2),DA,17,D1,1)),U,6):$P(^(1),U,6),1:"") S X=Y,X=$$CONCPT^AUPNVUTL(X)
  • LAST EDITED:  APR 08, 2014
21 DUAL CODING ICD-9 CODE 2;1 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  APR 02, 2014
22 DUAL CODING ICD-9 NARRATIVE COMPUTED

  • MUMPS CODE:  I $D(^ROUTINE("ICDEX"))&(+$P($G(^ABMDBILL(DUZ(2),DA,17,D1,2)),U)'=0) S X=$$VSTD^ICDEX($P(^(2),U),$P($G(^ABMDBILL(DUZ(2),DA,7)),U))
  • ALGORITHM:  I $D(^ROUTINE("ICDEX"))&(+$P($G(^ABMDBILL(DUZ(2),DA,17,D1,2)),U)'=0) S X=$$VSTD^ICDEX($P(^(2),U),$P($G(^ABMDBILL(DUZ(2),DA,7)),U))
  • LAST EDITED:  APR 24, 2014
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:  
    Come 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:  AUG 03, 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