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

Package: Mental Health

MEDICAL RECORD(#90)-->90.1

Sub-Field: 90.1


Information

Parent File Name Number Package
MEDICAL RECORD(#90) *ICD9 DIAGNOSIS 90.1 Mental Health

Details

Field # Name Loc Type Details
.001 *NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 28, 1984
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999
.01 *ICD9 DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  AUG 29, 1984
  • CROSS-REFERENCE:  90.1^B
    1)= S ^MR(DA(1),"PHDX","B",$E(X,1,30),DA)=""
    2)= K ^MR(DA(1),"PHDX","B",$E(X,1,30),DA)
1 *ICD9 QUALIFIER DATE 1;0 DATE Multiple #90.11 90.11

  • DESCRIPTION:  
    Sets date for entry type, e.g., provisional, verified, etc.
2 *STATUS 0;2 SET

  • LAST EDITED:  AUG 28, 1984
3 *STATUS DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 28, 1984
Info |  Details |  All