Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls