Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: FHORX1B

Package: Dietetics

Routine: FHORX1B


Information

FHORX1B ; HISC/REL/RVD - Diet Activity Labels ;8/26/94 12:10

Source Information

Source file <FHORX1B.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Dietetics 4 ALG^FHCLN  PID^FHDPA  (DPLL,LAB)^FHLABEL  PATNAME^FHOMUTL  
Kernel 1 KILL^XUSCLEAN  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHORX1  

Entry Points

Name Comments DBIA/ICR reference
LHD
CUR
LST1 ;process outpatient
LL ;
T2 ;get the last outpatient entry.
WRT
LST
L2
L1 ; Process event for inpatient

External References

Name Field # of Occurrence
ALG^FHCLN WRT
PID^FHDPA L2+3
DPLL^FHLABEL FHORX1B+14
LAB^FHLABEL LL+2
PATNAME^FHOMUTL L2+1
KILL^XUSCLEAN FHORX1B+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: FHORX1B+15
Function Call: WRITE
  • Prompt: !,$E(N1,1,S2-5-$L(W1)),?(S2-3-$L(W1)),W1,!,BID
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: " *"
  • Condition for execution: NP
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: @FHIO("EON")
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: ?(S2-3\2),TC
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: ?(S2-3\2),TC
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: ?(S2-3\2),TC
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: ?(S2-3\2),TC
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LAB=2
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !,$S(ALG="":"",1:"*ALG"),!,Y,!!
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !!,$P(Y,",",1,L)
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LAB=2
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: !,$E($P(Y,",",L+1,5),2,99),!
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: @FHIO("EOF")
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: ?(S2-20),$P(H1," - ",2),!!
  • Condition for execution: LAB=2
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LAB=2
  • Line Location: LHD+0
Function Call: WRITE
  • Prompt: !?A1,"***************************",!?A1,"*",?(A1+26),"*",!?A1,"*",?(A1+5),$P(H1," - ",2),?(A1+26),"*"
  • Line Location: LHD+0
Function Call: WRITE
  • Prompt: !?A1,"*",?(A1+26),"*",!?A1,"***************************",!
  • Line Location: LHD+1
Function Call: WRITE
  • Prompt: !!
  • Condition for execution: LAB=2
  • Line Location: LHD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(115.02 CUR+1
^DPT - [#2] L2+2
^FH(111 - [#111] T2+10, T2+12, CUR+2
^FH(119.4 - [#119.4] L2+6
^FH(119.73 - [#119.73] FHORX1B+12*, FHORX1B+13*
^FHPT - [#115] L2+4, L2+7
^TMP($J FHORX1B+9, FHORX1B+16!, LST, LST1+1, T2+1, T2+2

Label References

Name Line Occurrences
CUR L2+7
L1 LST
L2 LST+2
LHD FHORX1B+7
LL WRT+1
LST FHORX1B+9
LST1 FHORX1B+11
T2 LST1+1
WRT LST+2, T2+16

Naked Globals

Name Field # of Occurrence
^( LST
^(0 L2+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CUR+1*
>> A1 LHD*, LHD+1, CUR+2*
>> ACT L1+1*, L1+4, L1+5, L1+7, L1+8
>> ADM L1+1*, L1+4, L1+5, L1+8, L2+4, L2+7
>> ALG WRT*, WRT+3
>> BID T2+5*, WRT+2, LL+1*
>> COUNT FHORX1B+8*
>> D3 CUR+2*
>> DA LST*
>> DFN L2+1, L2+2
>> FH8 T2+1*, T2+2
>> FHACTI T2+3*, T2+4
>> FHDES1 T2+8*, T2+9
>> FHDESC T2+6*, T2+8
>> FHDFN L2*, L2+4, L2+7
>> FHDIDA T2+10*, T2+11, T2+12
>> FHDIET T2+9*, T2+10, T2+12*, T2+14
>> FHDU CUR+1*
>> FHII FHORX1B+13*
>> FHIO("EOF" WRT+3, WRT+5
>> FHIO("EON" WRT+3
>> FHLD CUR*, CUR+1
>> FHOR CUR*, CUR+2
>> FHORD LST+2, L1+1*, L1+2*, L1+4, L1+5, L1+8, L2+4*, L2+5, L2+7
>> FHP FHORX1B+12, FHORX1B+13
>> FHTDAT T2+2*, T2+3, T2+5, T2+6, T2+7
>> H1 WRT+5, LHD
>> IS L2+4*, L2+6*
>> L FHORX1B+15*, WRT+4*
>> LAB FHORX1B+7, FHORX1B+14, FHORX1B+15, WRT+1, WRT+3, WRT+4, WRT+5, LHD, LHD+1
>> LINE FHORX1B+8*
>> LOC LST*, LST+1, LST1+1*, L1+7*, T2+1*
>> N1 L2+3*, T2+15*, WRT+2
>> NN FHORX1B+9*, L1+2*
>> NOW FHORX1B+12, FHORX1B+13
>> NP LST*, LST1+1*, L1+8*, T2+1*, WRT+2, LL+1
>> P0 FHORX1B+9*, LST, LST1+1*, L2, T2+1, T2+2, T2+15
PP LST!, LST+2, LST1+1!, T2+1!
PP( L1+4!, L1+5!*, L1+8*
>> R1 L2*, T2+15*, WRT+3
>> S2 FHORX1B+7*, WRT+2, WRT+3, WRT+4, WRT+5, LHD
>> TC L2+4*, L2+6*, T2+7*, WRT+3, LL+1
>> TXT L1+1*, L1+5, L1+8
>> TYP L1+1*, L1+2, L1+3, L1+4, L1+5, L1+6, L1+8
U T2+12
>> W1 L2*, T2+15*, WRT+2
>> X L2+7*, CUR
>> X1 LL+1*
>> Y T2+14*, WRT+3, WRT+4, CUR*, CUR+1*, CUR+2*
>> Y0 L2+2*, L2+3
>> Z LST*, L1+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All