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 |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Global: ^FHEN

Package: Dietetics

Global: ^FHEN


Information

FileMan FileNo FileMan Filename Package
115.7 DIETETIC ENCOUNTERS Dietetics

Description

Directly Accessed By Routines, Total: 11

Package Total Routines
Dietetics 11 FHADR5    FHASE    FHASE1A    FHASE2    FHASE3    FHASP1    FHMASE    FHMASE1A
FHWHEA    FHXDB    PATIENT    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Dietetics 3 FHASE    FHASE3    FHMASE    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Dietetics 2 ENCOUNTER TYPES(#115.6)[3]    COMMUNICATION OFFICE(#119.73)[11]    
Kernel 1 NEW PERSON(#200)[2, 101, 104]
Registration 1 VA PATIENT(#2)[#115.701(.01)]    
Scheduling 1 HOSPITAL LOCATION(#44)[4, #115.701(1)]    

Fields, Total: 16

Field # Name Loc Type Details
.01 NUMBER 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
  • LAST EDITED:  JUL 19, 1989
  • HELP-PROMPT:  Type a Number between 1 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains a sequential number assigned to the encounter and has no meaning.
  • DELETE TEST:  1,0)= I DUZ(0)'["@",'$D(^XUSEC("FHMGR",DUZ))
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  115.7^B
    1)= S ^FHEN("B",$E(X,1,30),DA)=""
    2)= K ^FHEN("B",$E(X,1,30),DA)
    This is the normal B cross-reference of the NUMBER field.
1 DATE/TIME OF ENCOUNTER 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 16, 1991
  • DESCRIPTION:  
    This field contains the date and time at which the dietetic encounter took place.
  • CROSS-REFERENCE:  115.7^AT
    1)= S ^FHEN("AT",$E(X,1,30),DA)=""
    2)= K ^FHEN("AT",$E(X,1,30),DA)
2 CLINICIAN 0;3 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  JUL 19, 1989
  • DESCRIPTION:  
    This field contains a pointer to the clinician who provided the service during the encounter.
3 ENCOUNTER TYPE 0;4 POINTER TO ENCOUNTER TYPES FILE (#115.6)
************************REQUIRED FIELD************************
ENCOUNTER TYPES(#115.6)

  • LAST EDITED:  JUL 16, 1992
  • DESCRIPTION:  
    This field contains a pointer to the Encounter Type file (115.6) indicating the type of encounter.
4 EVENT LOCATION 0;5 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  NOV 07, 1989
  • DESCRIPTION:  
    This optional field contains a pointer to the Hospital Location file (44) indicating where the encounter took place.
5 INITIAL/FOLLOWUP 0;7 SET
  • 'I' FOR INITIAL;
  • 'F' FOR FOLLOWUP;

  • LAST EDITED:  JUL 19, 1989
  • DESCRIPTION:  
    This field indicates whether the encounter was an initial one of this type or a follow-up.
6 TIME UNITS 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 19, 1989
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the number of time units earned by this encounter.
7 GROUP/INDIVIDUAL 0;9 SET
  • 'G' FOR GROUP;
  • 'I' FOR INDIVIDUAL;

  • LAST EDITED:  JUL 19, 1989
  • DESCRIPTION:  
    This field indicates whether the encounter was a group one or an encounter with a single individual.
8 GROUP SIZE 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 19, 1989
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the total number of persons involved, including any collaterals.
10 EVENT COMMENT 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  NOV 07, 1989
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • DESCRIPTION:  
    This field may contain a short comment concerning the event.
11 COMMUNICATIONS OFFICE 0;6 POINTER TO COMMUNICATION OFFICE FILE (#119.73)
************************REQUIRED FIELD************************
COMMUNICATION OFFICE(#119.73)

  • LAST EDITED:  JUN 02, 2003
  • HELP-PROMPT:  Communications Office is a required entry
  • CROSS-REFERENCE:  115.7^CO
    1)= S ^FHEN("CO",$E(X,1,30),DA)=""
    2)= K ^FHEN("CO",$E(X,1,30),DA)
    Used to print encounters within Communications Offices
20 PATIENT P;0 POINTER Multiple #115.701 115.701

  • DESCRIPTION:  
    This field is a multiple containing data relating to patients involved in the encounter.
101 ENTERING CLERK 0;13 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  NOV 08, 1989
  • DESCRIPTION:  
    This field is a pointer indicating the person making the encounter entry.
102 DATE/TIME ENTERED 0;14 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 08, 1989
  • DESCRIPTION:  
    This field contains the date/time the encounter was actually entered.
103 LAST REVIEW DATE/TIME 0;15 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 16, 1996
  • DESCRIPTION:  
    This is the date/time that the encounter was last reviewed.
104 REVIEW CLERK 0;16 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 16, 1996
  • DESCRIPTION:  
    This is a pointer to File 200 of the person entering the review.

External References

Name Field # of Occurrence
^%DT 1+1, 102+1, 103+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FHEN("AT" 1(XREF 1S), 1(XREF 1K)
^FHEN("B" .01(XREF 1S), .01(XREF 1K)
^FHEN("CO" 11(XREF 1S), 11(XREF 1K)
^XUSEC("FHMGR" .01DEL1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 1+1*, 102+1*, 103+1*
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 11(XREF 1S), 11(XREF 1K)
>> DINUM .01+1*
DUZ .01DEL1+1
DUZ(0 .01DEL1+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1*!, 1(XREF 1S), 1(XREF 1K), 6+1!, 8+1!, 10+1!, 11(XREF 1S)
, 11(XREF 1K), 102+1*!, 103+1*!
>> Y 1+1, 102+1, 103+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables |  All