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

Package: Mental Health

MEDICAL RECORD(#90)-->90.04-->90.05

Sub-Field: 90.05


Information

Parent File Name Number Package
90.04 *DSM-III QUALIFIER DATE 90.05 Mental Health

Details

Field # Name Loc Type Details
.01 *DSM-III QUALIFIER DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DT
  • LAST EDITED:  FEB 15, 1984
  • DESCRIPTION:  
    Diagnosis entries are qualified with PROVISIONAL, BY HISTORY, VERIFIED, etc.  Diagnosis qualifier date must be entered first.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90.04^CH^MUMPS
    1)= S ^MR(DA(2),"DX","CH",9999999-X,DA(1),DA)=""
    2)= K ^MR(DA(2),"DX","CH",9999999-X,DA(1),DA)
1 *DSM-III 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:  NOV 27, 1984
  • HELP-PROMPT:  Diagnosis entries are qualified by PROVISIONAL, VERIFIED, By HISTORY, etc.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 *ACCESS CODE 0;3 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  JAN 19, 1989
3 *COMMENT 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>65!($L(X)<2) X
  • LAST EDITED:  JAN 19, 1989
  • HELP-PROMPT:  ANSWER MUST BE 2-65 CHARACTERS IN LENGTH
6 *OLD COMMENT 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<2) X
  • LAST EDITED:  FEB 29, 1984
  • HELP-PROMPT:  ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
Info |  Details |  All