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: 9000010.6214

Package: IHS Patient

V AMI(#9000010.62)-->9000010.6214

Sub-Field: 9000010.6214


Information

Parent File Name Number Package
V AMI(#9000010.62) EKG FINDINGS 9000010.6214 IHS Patient

Details

Field # Name Loc Type Details
.01 EKG FINDINGS CONCEPT ID 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  AUG 22, 2013
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • CROSS-REFERENCE:  9000010.6214^B
    1)= S ^AUPNVAMI(DA(1),14,"B",$E(X,1,30),DA)=""
    2)= K ^AUPNVAMI(DA(1),14,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.6214^.1
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AUPNVAMI(D0,14,D1,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$$EKGFINDL^BCQMUTL() X ^DD(9000010.6214,.01,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVAMI(DIV(0),14,DIV(1),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=9000010.6214,DIG=.1 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AUPNVAMI(D0,14,D1,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" X ^DD(9000010.6214,.01,1,2,2.4)
    2.4)= S DIH=$G(^AUPNVAMI(DIV(0),14,DIV(1),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=9000010.6214,DIG=.1 D ^DICR
    CREATE VALUE)= S X=$$EKGFINDL^BCQMUTL()
    DELETE VALUE)= @
    FIELD)= #.1
.02 DESCRIPTION ID 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAR 01, 2013
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
.03 PROVIDER TEXT 0;3 POINTER TO PROVIDER NARRATIVE FILE (#9999999.27) PROVIDER NARRATIVE(#9999999.27)

  • OUTPUT TRANSFORM:  S Y=$$PNPROB^AUPNVUTL(Y)
  • LAST EDITED:  JUN 06, 2013
.04 ICD9 MAPPING 0;4 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  MAR 01, 2013
.05 ICD10 MAPPING 0;5 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  MAR 01, 2013
.06 INTERPRETED BY 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 2013
.07 EVENT DATE/TIME 0;7 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 01, 2013
.08 DATE/TIME ENTERED 0;8 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 01, 2013
.09 ENTERED BY 0;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 2013
.1 LOINC 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  AUG 08, 2013
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • NOTES:  TRIGGERED by the EKG FINDINGS CONCEPT ID field of the EKG FINDINGS sub-field of the V AMI File
1 EKG FINDINGS COMMENT 1;0 WORD-PROCESSING #9000010.62141
Info |  Details |  All