Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^AUPNPOCC

Package: IHS Patient

Global: ^AUPNPOCC


Information

FileMan FileNo FileMan Filename Package
9000097 OCCUPATIONAL HEALTH IHS Patient

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
Local Area Programs 1 AZAXDPM1    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.01]    

Fields, Total: 13

Field # Name Loc Type Details
.01 NAME 0;1 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • INPUT TRANSFORM:  S:$D(X) DINUM=X
  • LAST EDITED:  APR 23, 1987
  • HELP-PROMPT:  Select a patient
  • SCREEN:  S DIC("S")="I $P(^DPT(Y,0),U,2)=""F"""
  • EXPLANATION:  EXCLUDES NON-FEMALES
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000097^B
    1)= S ^AUPNPOCC("B",$E(X,1,30),DA)=""
    2)= K ^AUPNPOCC("B",$E(X,1,30),DA)
.02 RESP QUES 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 26, 2000
  • DESCRIPTION:  
    Patient's  Blood Type.
.03 RESP CLEAR 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 08, 1993
  • HELP-PROMPT:  Enter the date that information in this file was last updated.
.04 RESP DUE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 26, 2000
  • DESCRIPTION:  
    The patient's RH Type.
.05 HBV DECLINE 0;5 SET
  • 'T' FOR TRUE;
  • 'F' FOR FALSE;

  • LAST EDITED:  SEP 27, 2000
  • DESCRIPTION:  
    If DO NOT TRANSFUSE is entered then the patient cannot be transfused until the reason for not transfusing a blood component is resolved.  The reason can be entered in the Blood Bank comments field.
.06 VOL RESP 0;6 SET
  • 'T' FOR TRUE;
  • 'F' FOR FALSE;

  • LAST EDITED:  SEP 27, 2000
.07 RESP USE 0;7 SET
  • 'F' FOR FALSE;
  • 'T' FOR TRUE;

  • LAST EDITED:  SEP 26, 2000
.08 ANIMALS 0;8 SET
  • 'F' FOR FALSE;
  • 'T' FOR TRUE;

  • LAST EDITED:  SEP 26, 2000
.09 JOINED AS 0;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 26, 2000
.1 ASBESTOS CLEAR 0;10 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 26, 2000
.11 DEPARTMENT 0;11 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  SEP 27, 2000
.12 LOCATION 0;12 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  SEP 27, 2000
.13 DELETE FLAG 0;13 SET
  • '1' FOR DELETED;

  • LAST EDITED:  SEP 27, 2000
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  All