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

Package: Dietetics

Routine: FHORD11


Information

FHORD11 ; HISC/REL/NCA - Diet Activity Report (cont) ;4/26/93 16:37

Source Information

Source file <FHORD11.m>

Entry Points

Name Comments DBIA/ICR reference
LST
L1
HDR
LHD
CUR
OLD
NEWP
N1
DISC
D2
D3
D4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: FHORD11+4
Function Call: WRITE
  • Prompt: !!,W1,?18,R1,?31,N1,?54,BID
  • Line Location: LST+6
Function Call: WRITE
  • Prompt: " *"
  • Condition for execution: OLW=""
  • Line Location: LST+6
Function Call: WRITE
  • Prompt: ?63,$S(SF:"SF",1:""),?66,$S(SO:"SO",1:""),?73,TC
  • Line Location: LST+6
Function Call: WRITE
  • Prompt: ?99,$E(OLR,1,10)
  • Condition for execution: " "'[OLW ?81,$E(OLW,1,15) W:" "'[OLR
  • Line Location: LST+6
Function Call: WRITE
  • Prompt: !,$E(N1,1,S2-5-$L(W1)),?(S2-3-$L(W1)),W1,!,BID
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: " *"
  • Condition for execution: OLW=""
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: @FHIO("EON")
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: ?(S2-3\2),TC
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: ?(S2-3\2),TC
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: ?(S2-3\2),TC
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: ?(S2-3\2),TC
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LAB=2
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !!,Y,!!
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !!,$P(Y,",",1,L)
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LAB=2
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !,$E($P(Y,",",L+1,5),2,99),!
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: @FHIO("EOF")
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: ?(S2-20),$P(H1," - ",2),!!
  • Condition for execution: LAB=2
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: !?35,"D I E T A C T I V I T Y R E P O R T",?102,"Page ",PG
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !!?(110-$L(H1)\2),H1
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,"Ward",?18,"Room",?31,"Patient",?55,"ID#",?62,"Sup/Std Service Old Ward",?99,"Old Room"
  • Line Location: HDR+2
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
Function Call: WRITE
  • Prompt: !?18,"Old: ",Y
  • Line Location: OLD+2
Function Call: WRITE
  • Prompt: !?18,X1
  • Line Location: N1+1
Function Call: WRITE
  • Prompt: !!,"** DISCHARGED **",?31,N1,?54,BID,?63,$S(SF:"SF",1:""),?66,$S(SO:"SO",1:""),?81,W1,?99,R1
  • Line Location: D2+10
Function Call: WRITE
  • Prompt: !,$E(N1,1,S2-5-$L(W1)),?(S2-3-$L(W1)),W1,!,BID
  • Line Location: D2+11
Function Call: WRITE
  • Prompt: " *"
  • Condition for execution: OLW=""
  • Line Location: D2+11
Function Call: WRITE
  • Prompt: ?(S2-3-$L(R1)),R1
  • Line Location: D2+11
Function Call: WRITE
  • Prompt: ?(S2-3-$L(R1)),R1
  • Line Location: D2+11
Function Call: WRITE
  • Prompt: !?(S2-20),$P(H1," - ",2),!!
  • Condition for execution: LAB=2
  • Line Location: D2+11
Info |  Source |  Entry Points |  Interaction Calls