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

Package: Medicine

RHEUMATOLOGY(#701)-->701.0615

Sub-Field: 701.0615


Information

Parent File Name Number Package
RHEUMATOLOGY(#701) DIAGNOSIS 701.0615 Medicine

Details

Field # Name Loc Type Details
.01 DIAGNOSIS 0;1 POINTER TO MEDICAL DIAGNOSIS/ICD CODES FILE (#697.5) MEDICAL DIAGNOSIS/ICD CODES(#697.5)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^MCAR(697.5,""A.RHEUM"",$P(^MCAR(697.5,+Y,0),U),+Y))",D="A.RHEUM" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 03, 1992
  • HELP-PROMPT:  Enter the Medical Diagnosis or ICD Code, pointer to file (#697.5).
  • DESCRIPTION:  
    This allows user to enter Diagnosis.
  • SCREEN:  S DIC("S")="I $D(^MCAR(697.5,""A.RHEUM"",$P(^MCAR(697.5,+Y,0),U),+Y))",D="A.RHEUM"
  • EXPLANATION:  CHOOSE RHEUMATOLOGY DIAGNOSES ONLY
  • EXECUTABLE HELP:  Q:$D(DJJ) N DO S X="?",DIC(0)="X",DIC="^MCAR(697.5,",D="A.RHEUM" D MIX^DIC1 S D=-1
  • CROSS-REFERENCE:  701.0615^B
    1)= S ^MCAR(701,DA(1),13,"B",$E(X,1,30),DA)=""
    2)= K ^MCAR(701,DA(1),13,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  701.0615^AC^MUMPS
    1)= D SET^MCRH2
    2)= D KILL^MCRH2
    This X-Ref sets the ICD node for Queryman searches.
1 DATE OF SYMPTOM 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 17, 1991
  • HELP-PROMPT:  Enter the date this diagnosis was made
  • DESCRIPTION:  
    This allows the user to enter the date this diagnosis was made.
Info |  Details |  All