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

Package: IHS Patient

V STROKE(#9000010.63)-->9000010.6314

Sub-Field: 9000010.6314


Information

Parent File Name Number Package
V STROKE(#9000010.63) STROKE SYMPTOMS 9000010.6314 IHS Patient

Details

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

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAR 01, 2013
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • CROSS-REFERENCE:  9000010.6314^B
    1)= S ^AUPNVSTR(DA(1),14,"B",$E(X,1,30),DA)=""
    2)= K ^AUPNVSTR(DA(1),14,"B",$E(X,1,30),DA)
.019 SNOMED PREFERRED TERM COMPUTED

  • MUMPS CODE:  S Y(9000010.6314,.019,1)=$S($D(^AUPNVSTR(D0,14,D1,0)):^(0),1:"") S X=$P(Y(9000010.6314,.019,1),U,1),X=$$CONCPT^AUPNVUTL(X)
  • ALGORITHM:  AUPNPT(#.01)
.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 12, 2013
.04 DATE/TIME ENTERED 0;4 DATE

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

  • LAST EDITED:  MAR 01, 2013
.06 WITNESSED? 0;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 01, 2013
.07 WITNESSED BY 0;7 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.
.08 DATE/TIME WITNESSED 0;8 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 01, 2013
.09 BASELINE STATE - LOINC 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAR 01, 2013
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
.1 BASELINE STATE DATE/TIME 0;10 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 01, 2013
1 WITNESSED BY COMMENT 1;0 WORD-PROCESSING #9000010.63141

  • LAST EDITED:  FEB 24, 2014
Info |  Details |  All