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

Call Graph

Call Graph Total: 4

Package Total Call Graph
Dietetics 4 ALG^FHCLN  PID^FHDPA  CHECK^FHOMDPA  PATNAME^FHOMUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHORD10  

Entry Points

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

External References

Name Field # of Occurrence
ALG^FHCLN NEWP
PID^FHDPA LST+3, D2+3
CHECK^FHOMDPA D2+4
PATNAME^FHOMUTL LST

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(115.02 CUR+1
^DGPM - [#405] D2, D3
^DGPM("APMV" D3
^DGPM("ATT3" DISC
^DPT - [#2] LST+1, D2+1, D2+3
^DPT("CN" D2+1
^FH(111 - [#111] CUR+2
^FH(115.2 - [#115.2] N1
^FH(119.4 - [#119.4] LST+5
^FH(119.6 - [#119.6] D2+7, D4
^FH(119.73 - [#119.73] FHORD11+5*
^FHPT - [#115] LST+4, OLD, OLD+1, NEWP+1, D2+5
^FHPT("ASP" LST+2, D2+6
^TMP($J FHORD11+3

Label References

Name Line Occurrences
CUR LST+7, L1, OLD+1
D2 DISC
D3 D2+7
D4 D3
DISC FHORD11+4
HDR FHORD11+2, LST+6, D2+10
L1 LST+6
LHD FHORD11+2
LST FHORD11+3
N1 NEWP+1
NEWP LST+7
OLD LST+7

Naked Globals

Name Field # of Occurrence
^( OLD, NEWP+1, D2+1
^(0 LST+1, D2+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CUR+1*
>> A1 LHD*, LHD+1, CUR+2*
>> ADM LST+1*, LST+2, LST+4, OLD, OLD+1, D2*, D2+5, D2+6, D3
>> ALG NEWP
>> BID LST+6, L1, D2+10, D2+11
>> CADM D2+1*
>> COM LST+4*, LST+7
>> D2 FHORD11+3*, D2+3*, D2+7*, D2+8
>> D3 CUR+2*
>> DA DISC*, D2
>> DFN LST, LST+1, D2*, D2+1, D2+3, D2+4, D3
>> E1 FHORD11+3*
>> FHDFN FHORD11+3*, LST+2, LST+4, OLD, OLD+1, NEWP+1, D2+4, D2+5, D2+6
>> FHDU CUR+1*
>> FHIO("EOF" L1+1, L1+3
>> FHIO("EON" L1+1
>> FHLD CUR*, CUR+1
>> FHOR CUR*, CUR+2
>> FHORD LST+1*, LST+4, OLD+1
>> FHP FHORD11+5, D2+8
>> FHZ115 D2+4*
>> H1 L1+3, HDR+1, LHD, D2+11
IOF HDR
IOST HDR
>> IS LST+1*, LST+5*
>> K NEWP+1*
>> L FHORD11+4*, L1+2*
>> L1 D3*
>> L2 D3*
>> LAB FHORD11+2, FHORD11+4, FHORD11+5, LST+6, L1+1, L1+2, L1+3, LHD, LHD+1, D2+10
, D2+11
>> N1 LST+3*, LST+6, L1, D2+3*, D2+9*, D2+10, D2+11
>> NOW FHORD11+5, DISC
>> NX OLD*, DISC*
>> OLR LST+1*, LST+6
>> OLW LST+1*, LST+6, LST+7, L1, D2+7*, D2+11
>> P0 FHORD11+3*
>> PG FHORD11+2*, HDR*
>> R1 LST+1*, LST+3*, LST+6, L1+1, D2+3*, D2+5*, D2+9*, D2+10, D2+11
>> S2 FHORD11+2*, L1, L1+1, L1+2, L1+3, LHD, D2+11
>> SF LST+1*, LST+6, D2+3*, D2+5*, D2+10
>> SO LST+2*, LST+6, D2+3*, D2+6*, D2+10
>> TC LST+5*, LST+6, L1+1
>> TIM OLD, DISC
>> UPD FHORD11+5
>> W1 LST+1*, LST+3*, LST+6, L1, D2+1*, D2+3*, D2+5*, D2+7*, D2+9*, D2+10
, D2+11, D3*, D4*
>> X FHORD11+3*, LST+1, LST+7*, L1*, CUR, OLD+1*, NEWP+1*, N1, N1+1, D2*
, D2+2*, D2+3*, D2+5*
>> X0 LST+4*, LST+5, LST+7, L1
>> X1 NEWP+1*, NEWP+2, N1+1*, N1+2*, D3*
>> X2 OLD*, OLD+1
>> Y LST+7, L1+1, L1+2, CUR*, CUR+1*, CUR+2*, OLD+2, N1*, N1+1*, N1+2
>> Y0 LST+1*, LST+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All