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 |  Local Variables |  All
Print Page as PDF
Routine: FHPRC10

Package: Dietetics

Routine: FHPRC10


Information

FHPRC10 ; HISC/NCA - Meal Analysis ;3/6/95 15:41

Source Information

Source file <FHPRC10.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Dietetics 4 TR^FH  ^FHDPA  ^FHPRC11  (LIS,RET,SRCH)^FHPRC14  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  KILL^XUSCLEAN  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHPRC12  FHPRC13  

Entry Points

Name Comments DBIA/ICR reference
P2
F1
P1
R0 ; Edit Meal File
R1 ; Edit Recipe and Portion
R2
GET
S3
ED
S1 ; Edit Production Diet
R3 ; Select RDA Category
KIL ; Kill all Used Variables
PAT
E1 ; Enter/Edit Day
E2 ; Enter/Edit Meal #

External References

Name Field # of Occurrence
^%ZIS S3+3
^%ZISC S3+8, S3+9
^%ZTLOAD S3+8
^DIC GET, R0+6, S1+1, R1+4, R3+1
TR^FH ED, S3, P1
^FHDPA F1
^FHPRC11 S3+9
LIS^FHPRC14 R1+3
RET^FHPRC14 GET
SRCH^FHPRC14 S1+4
KILL^XUSCLEAN KIL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GET+0
Function Call: READ
  • Prompt: "Do you wish to EDIT this Menu? NO// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: YN
  • Line Location: ED+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: ED+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: READ
  • Prompt: "Select DAY #: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: DAY
  • Line Location: E1+1
Function Call: WRITE
  • Prompt: *7," Enter a Day # from 1-7"
  • Line Location: E1+3
Function Call: READ
  • Prompt: "Select MEAL #: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: MEAL
  • Line Location: E2+1
Function Call: WRITE
  • Prompt: *7," Enter a Meal # from 1-6"
  • Line Location: E2+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: R0+3
Function Call: WRITE
  • Prompt: !,"Select Meal: ",$S($P($G(^FH(116.1,+S1,0)),"^",1)'="":$P(^FH(116.1,+S1,0),"^",1)_" // ",1:"") R X:DTIME G:'$T!(X["^")
  • Line Location: R0+3
Function Call: WRITE
  • Prompt: " Meal Deleted"
  • Line Location: R0+4
Function Call: READ
  • Prompt: "Select Recipe: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: R1+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: R2+0
Function Call: WRITE
  • Prompt: *7,!,"Enter amount of serving portion. Enter 0 to omit recipe;",!,"otherwise enter a number greater than 0 but less than 9999."
  • Line Location: R2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: R3+1
Function Call: WRITE
  • Prompt: *7,!!?5," [ Patient has expired. ]"
  • Line Location: F1+1
Function Call: READ
  • Prompt: "Do you wish a detailed analysis? Y// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: SUM
  • Line Location: S3+0
Function Call: WRITE
  • Prompt: *7,!," Answer YES or NO"
  • Line Location: S3+0
Function Call: WRITE
  • Prompt: !!,"The Analysis requires a 132 column printer.",!
  • Line Location: S3+2
Function Call: WRITE
  • Prompt: !
  • Line Location: S3+3
Function Call: WRITE
  • Prompt: !,"Request Queued",!
  • Line Location: S3+8
Function Call: READ
  • Prompt: "Enter Patient's Name: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: NAM
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: *7,!?5,"Enter Patient's Name to be printed on the report."
  • Line Location: PAT+1
Function Call: READ
  • Prompt: "Sex: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: SEX
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: *7," Enter M or F"
  • Line Location: P1+0
Function Call: READ
  • Prompt: "Age: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: AGE
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: !?5,"Enter Age in years between 6 and 124"
  • Line Location: P2+0
Routine Call
  • DIC
  • Line Location:
    • GET
    • R0+6
    • S1+1
    • R1+4
    • R3+1
Routine Call
  • %ZIS
  • Line Location:
    • S3+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(112.2 - [#112.2] Classic Fileman Calls
^FHUM - [#112.6] Classic Fileman Calls
^FH(114 - [#114] Classic Fileman Calls
^FH(116.1 - [#116.1] Classic Fileman Calls
^FH(116.2 - [#116.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("BRK" S3+9
^%ZOSF("NBRK" S3+9
^DPT - [#2] F1+1
^FH(114 - [#114] R1+4
^FH(116.1 - [#116.1] R0+3, R0+5
^FH(116.2 - [#116.2] S1+1
^TMP($J FHPRC10+2!, E1+2, E2+2, R0+1, R0+4!, R0+5, S1+2, R1+4*, R2, R2+2*
, KIL+1!

Label References

Name Line Occurrences
E1 E1+3, E2+2
E2 E2+3, R0+4, R0+5, R1+2
ED ED
GET GET
KIL GET, ED, E1+1, E1+2, E2+1, E2+2, R0+3, R0+5, S1+1, R1+2
, R2, R3+1, F1, F1+1, S3, S3+3, S3+4, S3+9, PAT, P1
, P2
P1 F1, P1
P2 P2
PAT F1, PAT+1
R0 R0+6
R1 S1+2, R1+3, R1+4, R2, R2+3
R2 R2+1
R3 ED+1, E1+2
S1 S1+1
S3 F1, S3, P2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS S3+3!*, S3+9!
%ZIS("A" S3+3*
>> AGE R3+2*, F1*, F1+2*, P2*
>> ALL F1*
>> CODE S1+1*
>> DAY E1+1*, E1+2, E1+3, R0+1, R0+4, S1+2, R1+4, R2, R2+2
>> DFN F1, F1+1
DIC GET!*, R0+2!*, R0+6!, S1+1!*, R1+1!*, R1+4!, R3+1!*
DIC("A" R3+1*
DIC("B" S1+1*
DIC("DR" GET*
DIC("S" GET*
DIC(0 GET*, R0+2*, S1+1*, R1+1*, R3+1*
DLAYGO GET!
DT F1+2
DTIME ED, E1+1, E2+1, R0+3, R1+2, R2, S3, PAT, P1, P2
>> DTOUT GET, S1+1, R3+1
>> G S3+7*
IO S3+8, S3+9
IO("Q" S3+4, S3+5!
IOP S3+3!, S3+9!
M S3+1!
>> M1 R0+6*, S1+2
>> MEAL E2+1*, E2+2, E2+3, R0+1, R0+4, S1+2, R1+4, R2, R2+2
>> MENU GET*
>> MNAM GET*
>> NAM R3+2*, F1*, PAT*, PAT+1
>> PD S1+1*, S1+2, S1+3
>> POP S3+3
>> RDA R3+1*
>> REC R1+4*, R2, R2+2
>> S1 R0+1*, R0+3, R0+5, S1+1, S1+2, S1+3*
>> SEX R3+2*, F1*, P1*, P1+1*
>> SUM S3*, S3+1*
U GET, S1+1, R3+1, F1, S3+6
>> X GET, ED*, R0+3*, R0+4, R0+5*, S1+1, R1+2*, R1+3, R2*, R2+1
, R2+2, R3+1, F1, S3*, P1*
>> X3 E1+2*, E2+2*, R0+5*
>> XQY0 S3+6
>> Y GET, R0+6, S1+1, R1+4, R3+1
>> Y(0 S1+1, F1
>> YN ED*, ED+1
>> ZSAVE("ZTREQ" S3+6*
>> ZTDESC S3+6*
ZTDTH S3+5!
ZTIO S3+5!
>> ZTREQ S3+6*
>> ZTRTN S3+6*
ZTSAVE S3+5!
ZTSAVE( S3+7*
ZTSK S3+8!
ZTUCI S3+5!
>> ZZ S1+2*
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 |  Local Variables |  All