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

Package: Dietetics

Routine: FHXDB


Information

FHXDB ; HISC/REL - Verify data base pointers ;5/14/93 15:50

Source Information

Source file <FHXDB.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
Dietetics 2 (EN2,TR)^FH  ^FHXDB1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHX3  

Entry Points

Name Comments DBIA/ICR reference
Q1 ; Process verifying pointer structures
FP
P0
EN
PAT
S1
S0
U0
W0
TF
KIL

External References

Name Field # of Occurrence
^%ZIS PAT+2
^%ZISC PAT+4
EN2^FH PAT+3
TR^FH PAT
^FHXDB1 Q1+20
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: *7," Enter A, I or N"
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: Q1+1
Function Call: WRITE
  • Prompt: !!,"VERIFICATION OF DIETETIC POINTER STRUCTURES"
  • Line Location: Q1+1
Function Call: WRITE
  • Prompt: !!,"Verifying file 111 - Diets"
  • Line Location: Q1+2
Function Call: WRITE
  • Prompt: !?5,"Production diet ",N," missing from Diet ",K," - ",$P(^FH(111,K,0),"^",1)
  • Line Location: Q1+3
Function Call: WRITE
  • Prompt: !!,"Verifying file 112.6 - User Menu"
  • Line Location: Q1+4
Function Call: WRITE
  • Prompt: !!,"Verifying file 115.2 - Food Preferences"
  • Line Location: Q1+6
Function Call: WRITE
  • Prompt: !!,"Verifying file 115.7 - Dietetic Encounters"
  • Line Location: Q1+8
Function Call: WRITE
  • Prompt: !!,"Verifying file 116.2 - Production Diets"
  • Line Location: Q1+10
Function Call: WRITE
  • Prompt: !!,"Verifying file 118 - Supplemental Feedings"
  • Line Location: Q1+12
Function Call: WRITE
  • Prompt: !!,"Verifying file 118.1 - Supplemental Feeding Menu"
  • Line Location: Q1+14
Function Call: WRITE
  • Prompt: !!,"Verifying file 118.2 - Tubefeeding"
  • Line Location: Q1+16
Function Call: WRITE
  • Prompt: !!,"Verifying file 119.6 - Dietetics Ward"
  • Line Location: Q1+18
Function Call: WRITE
  • Prompt: !?5,"Supp. Feeding ",N," missing in Menu ",K," - ",$P(^FH(118,K,0),"^",1)
  • Line Location: S1+1
Function Call: WRITE
  • Prompt: !?5,"Nutrient item ",X," missing in User Menu ",K," day ",L," meal ",M," - ",$P(^FHUM(K,0),"^",1)
  • Line Location: U0+0
Function Call: WRITE
  • Prompt: !?5,"Recipe ",X," missing in Food Preference ",K," - ",$P(^FH(115.2,K,0),"^",1)
  • Line Location: FP+1
Function Call: WRITE
  • Prompt: !?5,"Recipe ",N," missing in Excluded Food Preference ",K," - ",$P(^FH(115.2,K,0),"^",1)
  • Line Location: FP+2
Function Call: WRITE
  • Prompt: !?5,"Encounter Type ",X," missing in Dietetic Encounters ",K
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !?5,"Service Point ",N," missing in Ward File ",K," - ",$P(^FH(119.6,K,0),"^",1)
  • Line Location: W0+0
Function Call: WRITE
  • Prompt: !?5,"Supplemental Fdg. Site ",N," missing in Ward File ",K," - ",$P(^FH(119.6,K,0),"^",1)
  • Line Location: W0+1
Function Call: WRITE
  • Prompt: !?5,"Communication Office ",N," missing in Ward File ",K," - ",$P(^FH(119.6,K,0),"^",1)
  • Line Location: W0+2
Function Call: WRITE
  • Prompt: !?5,"Diet ",N," missing from Ward File ",K," - ",$P(^FH(119.6,K,0),"^",1)
  • Line Location: W0+3
Function Call: WRITE
  • Prompt: !?5,"Supp. Feeding ",N,"missing in Ward File ",K," - ",$P(^FH(119.6,K,0),"^",1)
  • Line Location: W0+4
Function Call: WRITE
  • Prompt: !?5,"Singular Production Diet ",N," missing in Prod. Diet ",K," - ",$P(^FH(116.2,K,0),"^",1)
  • Line Location: P0+0
Function Call: WRITE
  • Prompt: !?5,"Recipe ",X," missing in Supplemental Feeding ",K," - ",$P(^FH(118,K,0),"^",1)
  • Line Location: S0+1
Function Call: WRITE
  • Prompt: !?5,"Recipe ",X," missing in Tubefeeding ",K," - ",$P(^FH(118.2,K,0),"^",1)
  • Line Location: TF+1
Routine Call
  • %ZIS
  • Line Location:
    • PAT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(111 - [#111] Q1+3, W0+3
^FH(114 - [#114] FP+1, FP+2, S0+1, TF+1
^FH(115.2 - [#115.2] Q1+7, FP, FP+1, FP+2
^FH(115.6 - [#115.6] EN+1
^FH(116.2 - [#116.2] Q1+3, Q1+11, P0
^FH(118 - [#118] Q1+13, S1+1, W0+4, S0, S0+1
^FH(118.1 - [#118.1] Q1+15, S1
^FH(118.2 - [#118.2] Q1+17, TF, TF+1
^FH(119.6 - [#119.6] Q1+19, W0, W0+1, W0+2, W0+3, W0+4
^FH(119.72 - [#119.72] W0
^FH(119.73 - [#119.73] W0+2
^FH(119.74 - [#119.74] W0+1
^FHEN - [#115.7] Q1+9, EN
^FHNU - [#112] U0
^FHUM - [#112.6] Q1+5, U0

Label References

Name Line Occurrences
EN Q1+9
FP Q1+7
KIL PAT, PAT+2, PAT+3, PAT+4
P0 Q1+11
PAT PAT
Q1 PAT+4
S0 Q1+13
S1 Q1+15
TF Q1+17
U0 Q1+5
W0 Q1+19

Naked Globals

Name Field # of Occurrence
^( Q1+3, U0, FP+2, W0+4, P0

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS PAT+2!*, PAT+4!
%ZIS("A" PAT+2*
DTIME PAT
>> FHLST PAT+3*
>> FHPGM PAT+3*
IO PAT+4
IO("Q" PAT+3
IOF Q1+1
IOP PAT+2!, PAT+4!
IOST Q1+1
>> K Q1+3*, Q1+5*, Q1+7*, Q1+9*, Q1+11*, Q1+13*, Q1+15*, Q1+17*, Q1+19*, S1
, S1+1, U0, FP, FP+1, FP+2, EN, EN+1, W0, W0+1, W0+2
, W0+3, W0+4, P0, S0, S0+1, TF, TF+1
>> L Q1+5*, S1+1*, U0, FP+2*, W0*, W0+4*, P0*
>> M U0*
>> N Q1+3*, S1+1*, U0*, FP+2*, W0*, W0+1*, W0+2*, W0+3*, W0+4*, P0*
>> PAT PAT*, PAT+1*
>> POP PAT+2
>> X PAT*, S1*, S1+1, U0*, FP*, FP+1, EN*, EN+1, W0*, W0+1
, W0+2, W0+3, S0*, S0+1, TF*, TF+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All