Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 90.11

Package: Mental Health

MEDICAL RECORD(#90)-->90.1-->90.11

Sub-Field: 90.11


Information

Parent File Name Number Package
90.1 *ICD9 QUALIFIER DATE 90.11 Mental Health

Details

Field # Name Loc Type Details
.01 *ICD9 QUALIFIER DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 29, 1984
  • DESCRIPTION:  
    Diagnosis entries are qualified by PROVISIONAL, BY HISTORY, VERIFIED, etc. Diagnosis qualifier date must be entered first.
  • CROSS-REFERENCE:  90.1^CH^MUMPS
    1)= S ^MR(DA(2),"PHDX","CH",9999999-X,DA(1),DA)=""
    2)= K ^MR(DA(2),"PHDX","CH",9999999-X,DA(1),DA)
1 *ICD9 QUALIFIER 0;2 SET
************************REQUIRED FIELD************************
  • 'P' FOR PROVISIONAL;
  • 'R' FOR RULE OUT;
  • 'H' FOR BY HISTORY;
  • 'V' FOR VERIFIED;
  • 'N' FOR NOT FOUND;

  • INPUT TRANSFORM:  I $D(V),(X="V"),'V K X W "MUST HAVE CLINICAL PRIVILEGE TO VERIFY" Q
  • LAST EDITED:  FEB 11, 1985
  • HELP-PROMPT:  Diagnosis entries are qualified by PROVISIONAL, VERIFIED, By HISTORY, etc.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 *USER 0;3 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  AUG 28, 1984
3 *COMMENT 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<3) X
  • LAST EDITED:  AUG 28, 1984
  • HELP-PROMPT:  ANSWER MUST BE 3-70 CHARACTERS IN LENGTH
Info |  Details