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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: FHNO7

Package: Dietetics

Routine: FHNO7


Information

FHNO7 ; HISC/REL - List Supplemental Fdgs. ;12/15/94 09:14

Source Information

Source file <FHNO7.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Dietetics 8 DTP^FH  ALG^FHCLN  ADDOUT^FHNO5  ^FHOMDPA  DIETPAT^FHOMRR1  PATNAME^FHOMUTL  CUR^FHORD7  OPFILE^FHORX  
VA FileMan 3 NOW^%DTC  ^DIC  ^DIR  
Kernel 1 KILL^XUSCLEAN  

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

Package Total Caller Graph
Dietetics 5 FHCTF3  FHNO1I  FHNO5  FHNO8  FHOMRO1  

Entry Points

Name Comments DBIA/ICR reference
LIS ; Display Feeding
L1 ; Display SF Order
EN2 ; Supplemental Feeding Inquiry
SF ;LIST outpatient SF
SF0 ;ask for outpatient SF.
OIS ;Outpatient Individualized SF
G0 ;process each meals for individualized SF.
G1
G2
G3
G4
G5
G6
CPRSF ;check previous SF
CPRS1
PPRSF ;PROCESS previous SF
SFEVNT ;
KIL

External References

Name Field # of Occurrence
NOW^%DTC PPRSF+2
^DIC SF0+6, G2+3
^DIR SF+8
DTP^FH LIS+8, L1+2, SFEVNT+3, SFEVNT+4
ALG^FHCLN LIS+10
ADDOUT^FHNO5 PPRSF+3
^FHOMDPA EN2+2
DIETPAT^FHOMRR1 LIS+5
PATNAME^FHOMUTL LIS+4
CUR^FHORD7 LIS+2
OPFILE^FHORX SFEVNT+6
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: LIS+7
Function Call: WRITE
  • Prompt: !!,NAM," "
  • Line Location: LIS+7
Function Call: WRITE
  • Prompt: "( ",FHLOCN," )"
  • Condition for execution: WARD'="" "( ",WARD," )" W:FHLOCN'=""
  • Line Location: LIS+7
Function Call: WRITE
  • Prompt: ?50,"Outpatient Date: ",DTP
  • Line Location: LIS+8
Function Call: WRITE
  • Prompt: !," Allergies: ",$S(ALG="":"None on file",1:ALG)
  • Line Location: LIS+10
Function Call: WRITE
  • Prompt: !,"Feeding Menu: ",$S('NM:"None",1:$P(^FH(118.1,NM,0),"^",1)) Q:'NO
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: ?50,"Reviewed: ",DTP
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !!,"10AM",?26,"2PM",?52,"8PM",!,"----------------------- ----------------------- -----------------------"
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: !!,"10AM",!,"----------------------------------------------------------------------------"
  • Line Location: L1+4
Function Call: WRITE
  • Prompt: !!,"2PM",!,"-----------------------------------------------------------------------------"
  • Line Location: L1+5
Function Call: WRITE
  • Prompt: !!,"8PM",!,"-----------------------------------------------------------------------------"
  • Line Location: L1+6
Function Call: WRITE
  • Prompt: !,N(1,K2),?26,N(2,K2),?52,N(3,K2)
  • Line Location: L1+9
Function Call: WRITE
  • Prompt: !,$S(FHMEAL="B":N(1,K2),FHMEAL="N":N(2,K2),1:N(3,K2))
  • Line Location: L1+10
Function Call: WRITE
  • Prompt: !,"NO OUTPATIENT DATA ON FILE for today's date and the future!!"
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: @IOF,!,"Outpatient Recurring Meals... "
  • Line Location: SF+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SF+18
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: G2+0
Function Call: WRITE
  • Prompt: *7," .. DUPLICATE OF EXISTING ITEM!"
  • Line Location: G2+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: G4+0
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: G4+2
Function Call: WRITE
  • Prompt: !?5,"Enter a whole number between 1 and 20"
  • Line Location: G4+3
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: G6+0
Function Call: WRITE
  • Prompt: *7,!?5," Answer D for Dietary use or T for Therapeutic use"
  • Line Location: G6+2
Routine Call
  • DIC
  • Line Location:
    • SF0+6
    • G2+3
Routine Call
  • DIR
  • Line Location:
    • SF+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FHPT - [#115] Classic Fileman Calls
^FH(118 - [#118] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SF+6
^DPT - [#2] LIS+2, EN2+3
^FH(111 - [#111] LIS+5
^FH(118 - [#118] L1+8, G1+5
^FH(118.1 - [#118.1] L1+2, SF+16
^FH(119.6 - [#119.6] LIS+6, SF+5, SFEVNT+2
^FHPT - [#115] LIS+4, LIS+6, LIS+8, LIS+11, LIS+12, SF+3, SF+4, SF+12, SF+14, SF0+8
, CPRS1, CPRS1+1, CPRS1+3, CPRS1+4, CPRS1+5, CPRS1+6
^FHPT("RM" SF+3

Label References

Name Line Occurrences
CPRS1 CPRS1+4, CPRS1+7
EN2 EN2+3, EN2+5, EN2+7
G0 OIS+6
G1 G2+1, G2+2, G4+1, G4+4, G4+5
G2 G2+3, G2+4
G3 G2+1
G4 G4+3
G5 G1, G1+1, G2, G4
G6 OIS+7, G6+2
KIL EN2+2
LIS EN2+3, EN2+7
SF EN2+4
SF0 EN2+6

Naked Globals

Name Field # of Occurrence
^(0 SFEVNT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PPRSF+2
ADM LIS+3, LIS+4, LIS+5, LIS+6, LIS+8, LIS+11, LIS+12, EN2+1!, EN2+7, SF0+7*
, SF0+8
>> ALG LIS+10
>> DFN LIS+2, EN2+3
DIC SF0+1!, SF0+4*, SF0+6!, G0+4*
DIC("?" SF0+5*
DIC("A" SF0+6*, G1+4*, G1+5*, G2
DIC("S" SF0+3*, G0+4*
DIC("W" SF0+2*
DIC(0 SF0+1*, G0+4*
DIR SF+8!
DIR("A" SF+8*
DIR(0 SF+8*
DT SF+3
DTIME G2, G4, G6
>> DTOUT SF0+6
>> DTP LIS+8*, L1+2*, SF+6*, SF+10, SF+11, SFEVNT+3*, SFEVNT+4*, SFEVNT+5
DUZ CPRS1+9
>> ENDT SFEVNT+4
>> FH11 SF+5*, SF+10, SF+11
>> FHACT SFEVNT+6*
>> FHADSFF SFEVNT+6
>> FHALL EN2+2*
>> FHCOFLG SF+7*
>> FHDA15 SF+4*, SF+5, SF+6
>> FHDA15SF SF+14*, SF+15, SF+16
>> FHDASFNM SF+16*, SF+17
>> FHDAT CPRSF+2*, CPRS1+3*
>> FHDATL SF+7*, SF+11*
FHDFN LIS+4, LIS+6, LIS+8, LIS+11, LIS+12, EN2+1!, EN2+2, SF+3, SF+4, SF+12
, SF+14, SF0+8, CPRS1, CPRS1+1, CPRS1+3, CPRS1+4, CPRS1+5, CPRS1+6
>> FHDIET LIS+4*, LIS+5
>> FHDIETP LIS+5
>> FHDTC SFEVNT+1*, SFEVNT+3*
>> FHDTP SFEVNT+3*, SFEVNT+5*, SFEVNT+6
>> FHI SF+3*, CPRS1+5*, CPRS1+6
>> FHIDFLG G6+6*
>> FHIDI OIS+3*, OIS+4*, OIS+5*, OIS+6
>> FHII OIS+6*
>> FHJ SF+3*, SF+4, SF+12, SF+14
>> FHLOC LIS+6*, SF+5*, SFEVNT+2
>> FHLOCN LIS+1*, LIS+6*, LIS+7, SF+5*, CPRS1+3*, SFEVNT+2*, SFEVNT+6
FHMEAL LIS+13, L1+4, L1+5, L1+6, L1+10, EN2+1!, SF+5*, SF0+8*, OIS+6*, G0+1
, G0+2, G1+1, CPRS1+4, SFEVNT+6
>> FHNMSAV CPRS1+9*
>> FHOSTDT SFEVNT+3
>> FHPNNSV G6+5*
>> FHPRCN CPRS1+3*, CPRS1+4
>> FHPRML CPRS1+3*, CPRS1+4
FHPTNM LIS+4, EN2+1!
>> FHQ SF+2*, SF+3, SF+8*
>> FHRNUM LIS+5*
>> FHSF SF+7*, SF+12*, SF+13, SF+14, CPRSF+2*, CPRS1*, CPRS1+1*, CPRS1+2, CPRS1+3, CPRS1+4
, CPRS1+5, CPRS1+6
>> FHSFCX CPRS1+6*, CPRS1+7
FHSFLG EN2+1!, EN2+5, SF+9*
>> FHSFMEN SFEVNT+6
>> FHTXT SFEVNT+6*
>> FHX OIS+2*, OIS+3, OIS+4, OIS+5
IOF LIS+7, SF+1, SF+8
IOSL SF+8
IOST LIS+7
>> K L1+8*
>> K1 L1+7*, L1+8*, G2+3*, G2+4
>> K2 L1+7*, L1+8*, L1+9*, L1+10*
>> KK G0+2*, G1, G1+1, G1+3, G2+1*, G2+2*, G2+3, G2+4, G4+1*, G4+4*
, G4+5*, G5*
>> L L1+8*, G2+4*
N L1+7!
N( L1+7*, L1+8*
N(1 L1+9, L1+10
N(2 L1+9, L1+10
N(3 L1+9, L1+10
>> NAM LIS+2*, LIS+4*, LIS+7
>> NM L1+2*, OIS+1
NO LIS+11*, LIS+12*, L1+2, EN2+1!
>> NOW PPRSF+2*
>> OLD G1+5*, G2+1, G2+2, G2+5, G3*, G4, G4+1
>> P1 G1+3*, G1+5, G2+2, G2+5, G3, G4+1, G4+4, G4+5, G5*, G6*
PNN G1+5, G2+2*, G2+4, G2+5*, G3, G4+1*, G4+4*, G4+5*, G5, G6
, G6+3*, G6+5, CPRSF+1!, CPRS1+6*, CPRS1+7!, CPRS1+8!, CPRS1+9*, PPRSF+1
>> Q L1+8*
>> T1 G0+1*, G1+4, G4, G5*
>> T2 G1+3*, G1+4, G4, G5*
U LIS+4, LIS+5, LIS+6, LIS+8, SF+3, SF+5, SF+6, SF+12, SF+15, SF+16
, SF0+8, CPRS1+3, CPRS1+5, CPRS1+6, CPRS1+8, CPRS1+9, SFEVNT+2
>> WARD LIS+2, LIS+3, LIS+4, LIS+7, LIS+8, LIS+11, LIS+12, LIS+13, L1+1*, L1+3
, L1+4, L1+5, L1+6, L1+9, L1+10, EN2+3*, EN2+4, G1+1
X EN2+1!, G2*, G2+1, G2+2, G4*, G4+1*, G4+2*, G4+3, G4+4, G4+5
, G5*, G6+3*
Y LIS+1*, LIS+5*, LIS+9, LIS+11*, LIS+12*, L1+2, L1+8, L1+11, EN2+1!, SF+6*
, SF+8, SF0+6, SF0+7, G2+3*, G2+4, G2+5, G6*, G6+1*, G6+2, G6+3
>> Z L1+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All