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

Package: Dietetics

NUTRITION PERSON(#115)-->115.01-->115.03

Sub-Field: 115.03


Information

Parent File Name Number Package
115.01 CONSULTATION 115.03 Dietetics

Details

Field # Name Loc Type Details
.01 DATE/TIME ENTERED 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 12, 1985
  • DESCRIPTION:  
    This field contains the date/time the consult request was entered.
  • CROSS-REFERENCE:  115^ADR
    1)= S ^FHPT("ADR",$E(X,1,30),DA(2),DA(1),DA)=""
    2)= K ^FHPT("ADR",$E(X,1,30),DA(2),DA(1),DA)
1 CONSULT REQUEST 0;2 POINTER TO DIETETIC CONSULTS FILE (#119.5)
************************REQUIRED FIELD************************
DIETETIC CONSULTS(#119.5)

  • LAST EDITED:  MAY 12, 1985
  • DESCRIPTION:  
    This field contains the specific consult request drawn from the Dietetic Consults file (119.5).
2 COMMENT 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  APR 18, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field allows the user to enter a comment as to the consult.
4 CLINICIAN 0;5 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  MAY 06, 1985
  • DESCRIPTION:  This field indicates the clinician currently assigned to the consult. Initially, it will contain the clinician assigned to the consult type, if one has been specified, otherwise, the clinician assigned to
    the ward on which the patient resides.
  • CROSS-REFERENCE:  115^ADRU^MUMPS
    1)= S X9=$P(^FHPT(DA(2),"A",DA(1),"DR",DA,0),U,8) K:X9'="A" ^FHPT("ADRU",X,DA(2),DA(1),DA) S:X9="A" ^FHPT("ADRU",X,DA(2),DA(1),DA)=""
    2)= K:X ^FHPT("ADRU",X,DA(2),DA(1),DA)
    This is a cross-reference by Clinician of all consultations with an Active status.
6 CLERK 0;7 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  APR 18, 1985
  • DESCRIPTION:  
    This field contains the user entering the request and is automatically captured at time of entry.
7 STATUS 0;8 SET
************************REQUIRED FIELD************************
  • LAST EDITED: MAY 06, 1985
  • DESCRIPTION:

  • LAST EDITED:  MAY 06, 1985
  • DESCRIPTION:  
    This is the current status of the request.
  • CROSS-REFERENCE:  115^ADRV^MUMPS
    1)= S X9=$P(^FHPT(DA(2),"A",DA(1),"DR",DA,0),U,5) S:X9&(X="A") ^FHPT("ADRU",X9,DA(2),DA(1),DA)="" K:X9&(X'="A") ^FHPT("ADRU",X9,DA(2),DA(1),DA)
    2)= S X9=$P(^FHPT(DA(2),"A",DA(1),"DR",DA,0),U,5) K:X9 ^FHPT("ADRU",X9,DA(2),DA(1),DA)
    This is a cross-reference by Clinician (Field 4) of all consults with an Active status.
8 DATE/TIME CLEARED 0;9 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 06, 1985
  • DESCRIPTION:  
    This is the date/time the consult was cleared, either by completion or cancellation.
9 CLERK CLEARING 0;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAY 06, 1985
  • DESCRIPTION:  
    This is the dietetic person who indicated that the consult had been cleared.
10 INITIAL/FOLLOW-UP 0;11 SET
  • LAST EDITED: JUN 06, 1985
  • DESCRIPTION:

  • LAST EDITED:  JUN 06, 1985
  • DESCRIPTION:  
    If follow-ups are associated with this consult type, then this field will indicate whether the consult was an initial one or a follow-up to a prior consult.
11 OE/RR ORDER 0;13 POINTER TO ORDER FILE (#100) ORDER(#100)

  • LAST EDITED:  SEP 18, 1989
  • DESCRIPTION:  
    This field contains a pointer to the OE/RR file order corresponding to this order.
12 OE/RR ENTRY 0;13 POINTER TO ORDER FILE (#100) ORDER(#100)

  • LAST EDITED:  MAR 25, 1988
Info |  Details