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

Package: Dietetics

Routine: FHNO31


Information

FHNO31 ; HISC/REL - Supplemental Feeding Lists (cont) ;4/27/93 11:26

Source Information

Source file <FHNO31.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Dietetics 4 DTP^FH  ALG^FHCLN  PID^FHDPA  PATNAME^FHOMUTL  
VA FileMan 1 (C,NOW)^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHNO3  

Entry Points

Name Comments DBIA/ICR reference
F0
F2
L2
L3
L4
ING
RM ;
CHK
C0
C1
C2
HDR ; Print Header
OSF ;outpatient SFs
OSF1
OL2
OL3
OL4

External References

Name Field # of Occurrence
C^%DTC FHNO31+3
NOW^%DTC FHNO31+3
DTP^FH FHNO31+3, ING
ALG^FHCLN L3+8, OL4+8
PID^FHDPA L3
PATNAME^FHOMUTL L3RM+1, OSF+11, OL4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: !!,RM,?13,$E($P(Y(0),"^",1),1,24),?38,BID
  • Line Location: L3+6
Function Call: WRITE
  • Prompt: ?69,$E(LST,4,5),"-",$E(LST,6,7)
  • Line Location: L3+7
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: LST<OLD
  • Line Location: L3+7
Function Call: WRITE
  • Prompt: !,"ALLERGIES: ",$S(ALG="":"NONE ON FILE",1:ALG)
  • Line Location: L3+8
Function Call: WRITE
  • Prompt: !?8,$P("10AM; 2PM; 8PM",";",K1),?14,N(K1)
  • Line Location: L3+10
Function Call: WRITE
  • Prompt: @IOF,!,WRDN," INGREDIENT LIST FOR ",DTP
  • Line Location: ING+0
Function Call: WRITE
  • Prompt: !!,"--- 10 AM ---",?26,"--- 2 PM ---",?52,"--- 8 PM ---",!
  • Line Location: ING+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ING+2
Function Call: WRITE
  • Prompt: ?(K-1*26),$J(^(Z),4,0)," ",$S($D(C(Z)):C(Z),$D(^FH(118,+Z,0)):$P(^(0),"^",1),1:"")
  • Line Location: ING+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ING+3
Function Call: WRITE
  • Prompt: !?10,"W A R D S U P P L E M E N T A L F E E D I N G L I S T",?72,"Page ",PG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"Ward: ",WRDN,?61,DTP
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"ROOM",?13,"PATIENT",?39,"ID# SUPP MENU",?60,"ISOLAT",?69,"REVIEW"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: OL2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: OL4+5
Function Call: WRITE
  • Prompt: !,RM,?13,$E(FHPTNM,1,24),?38,FHBID
  • Line Location: OL4+6
Function Call: WRITE
  • Prompt: ?69,$E(LST,4,5),"-",$E(LST,6,7)
  • Line Location: OL4+7
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: LST<OLD
  • Line Location: OL4+7
Function Call: WRITE
  • Prompt: !,"ALLERGIES: ",$S(ALG="":"NONE ON FILE",1:ALG)
  • Line Location: OL4+8
Function Call: WRITE
  • Prompt: !?8,$P("10AM; 2PM; 8PM",";",K1),?14,N(K1)
  • Line Location: OL4+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.4 - [#405.4] OSF+12
^DPT - [#2] L3L3+1, RM+2, RM+5, RM+6
^FH(118 - [#118] FHNO31+2, L3+9, ING+2, OL4+9
^FH(118.1 - [#118.1] L3+5, OL4+4
^FH(119.4 - [#119.4] L3+4, OL4+3
^FH(119.6 - [#119.6] FHNO31+5, F0+3, F2OSF+9
^FH(119.74 - [#119.74] F2+7, OSF1
^FHPT - [#115] L3+2, L3+3, RM+3, C0C0+1, C2C2+1, C2+2!, OSF+2, OSF+6
OL4+1, OL4+2
^FHPT("AW" F2+2
^FHPT("RM" OSF+1
^TMP("FH" FHNO31+4!, FHNO31+6, F0+3*
^TMP($J F2+2!, F2+4, F2+6, L2L3, L4*, INGING+2, RM+8*, OSF+14*
OSF+15*, OL2OL3OL4

Label References

Name Line Occurrences
C0 C2+1
C1 CHKC2+1
C2 CHK+1, C0C2+2
CHK RM+4
F0 FHNO31+5
F2 FHNO31+6
HDR F2+4, F2+6, L3+6, OL4+5
ING L2OL2
L2 L3
L3 L3L3+3, L3+11
L4 L3+9, OL4+9
OL2 OL3
OL3 OL4
OL4 OL4+2, OL4+12
OSF F2+4
OSF1 F2+4
RM F2+2

Naked Globals

Name Field # of Occurrence
^( FHNO31+5, L3+1, L4*, ING+2
^(0 FHNO31+2, L3+2, L3+5, L3+9, ING+2, RM+3, OSF+6, OL4+4, OL4+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % FHNO31+3
A1 C1!, C2*, C2+1, C2+2
>> ADM F2+2*, L3*, L3+2, L3+3, RM+2, RM+3, RM+8, C0C0+1, C2
C2+1, C2+2, OSF+1*, OSF+2, OSF+6, OSF+14, OSF+15, OL2+1*, OL4*, OL4+1
OL4+2
>> ALG L3+8, OL4+8
>> BID L3+6
C FHNO31+2!
C( FHNO31+2*, L3+9, ING+2, OL4+9
>> DFN L3L3+1, RM+1, RM+2, RM+5, RM+6
DT FHNO31+3*, INGOSF+1
>> DTP FHNO31+3*, ING*, HDR+3
>> FHBID OL4+6
>> FHDFN F2+2*, L2+1*, L3*, L3+2, L3+3, RM+3, RM+8, C0C0+1, C2
C2+1, C2+2, OSF+1*, OSF+2, OSF+6, OSF+14, OSF+15, OL4*, OL4+1, OL4+2
>> FHMEAL OSF+3*, OSF+4, OSF+8, OSF+10
>> FHNO OSF+2*, OSF+6
FHORD CHK*, C0C0+1, C1!, C2+1*
>> FHOWARD OSF+3*, OSF+4, OSF+9
>> FHPAR F2+7*, L2L3+9, OSF1*, OL2OL4+9
>> FHPTN OSF1*, OL2*, OL3OL3+1, OL4OL4+5, OL4+11
>> FHPTNM OSF+14, OSF+15, OL4+6
>> FHPTSAV OL4+5, OL4+11*
>> FHSFDAT OSF+5*, OSF+6*, OSF+7
IOF INGHDR+1
IOSL L3+6, OL4+5
IOST HDR+1
>> IS L3+2*, L3+4*, L3+7, OL4+1*, OL4+3*, OL4+7
K L3+9*, ING+2*, C1!, C2*, OL4+9*
>> K1 F0*, F0+2*, F0+3, L3+9*, L3+10*, L4OL4+9*, OL4+10*
>> K2 L3+9*, OL4+9*
>> KK FHNO31+5*, FHNO31+6*, F0+1, F0+3
>> L FHNO31+2*, L3+9*, ING+2*, OL4+9*
>> LST L3+3*, L3+7, OL4+2*, OL4+7
>> N( L3+9*, L3+10, ING+2*, OL4+9*, OL4+10
>> N(1 ING+1*, ING+2
>> N(2 ING+1*, ING+2
>> N(3 ING+1*, ING+2
>> NM L3+3*, L3+5*, L3+7, OL4+2*, OL4+4*, OL4+7
>> NO L3+2*, L3+3, RM+3*, RM+4, C0+1*, OL4+1*, OL4+2
>> NOW FHNO31+3*, CHK+1, C2
>> NR F2+7*, L2*, L3L3+1, OL2+1*, OL3*, OL3+1, OL4
>> NXW FHNO31+6*
>> OLD FHNO31+3*, L3+7, OL4+7
>> P0 F0+2*, F0+3
>> P1 OSF+10*
>> PG FHNO31+4*, HDR+1*, HDR+2
>> PRN L3+1, RM+5, OSF+14, OSF+15, OL3+1
>> Q L3+9*, L4OL4+9*
>> RM F2+7*, L3+1*, L3+6, RM+5*, RM+6*, RM+7*, RM+8, OSF+8*, OSF+12*, OSF+13*
OSF+14, OSF+15, OL3+1*, OL4+6
>> RMIEN OSF+12*
U L3+9, OSF+2, OSF+3, OSF+7, OSF+9, OSF+12, OL4+9
>> WRD FHNO31+6*, F2F2+2, OSF+4
>> WRDN F0+3*, F2*, INGHDR+3, OSF+9*
>> WRDS F0F0+1, F2+7, OSF1
>> X FHNO31+3, FHNO31+5*, F0F0+2
X1 FHNO31+3*, RM+3*, CHK*, CHK+1, C0+1*, C1!, OSF+2*, OSF+3, OSF+12
>> X2 FHNO31+3*
>> XX F0F0+1, F0+2, F2+7, OSF1
>> Y L3+2*, L3+3*, L3+9, OL4+1*, OL4+2*, OL4+9
>> Y(0 L3*, L3+6
>> Z L3+9*, L4ING+2*, OL4+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All