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

Package: Dietetics

Routine: FHDMP


Information

FHDMP ; HISC/REL/NCA/JH/RK/FAI - Patient Data Log ;10/19/04 13:26

Source Information

Source file <FHDMP.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Dietetics 8 (DTP,EN2,TR)^FH  ALG^FHCLN  ^FHDMP1  ^FHDPGM  ^FHDPSM  ^FHOMDPA  DISP^FHOMRMD  (PATNAME,STDATE)^FHOMUTL  
VA FileMan 4 (,DD)^%DT  NOW^%DTC  ^DIC  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  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: 7

Package Total Caller Graph
Dietetics 7 FHASP  FHDMP  FHDMP1  FHDMP2  FHDMP3  FHDMP4  FHDMP5  

Entry Points

Name Comments DBIA/ICR reference
BEGIN
A0
CAD
OMDATE
P0
INOUT
CLEAN
F0
W0
W1
SP
SP1
LNE ; Break Line if longer than 65 chars
HDR ; Print Header
DTP ; Printable Date/Time
KIL ; User exit

External References

Name Field # of Occurrence
^%DT OMDATE+4
DD^%DT OMDATE+5, OMDATE+8
NOW^%DTC F0
^%ZIS P0
^%ZISC P0+2
^DIC BEGIN+3, A0+4
^DIR OMDATE+7, INOUT+1, INOUT+5, INOUT+7
DTP^FH F0, F0+5, F0+6
EN2^FH P0+1
TR^FH A0
ALG^FHCLN F0+10
^FHDMP1 F0+16, F0+17
^FHDPGM INOUT+8
^FHDPSM INOUT+6
^FHOMDPA BEGIN
DISP^FHOMRMD INOUT+4
PATNAME^FHOMUTL F0+1
STDATE^FHOMUTL OMDATE+3
KILL^XUSCLEAN CLEAN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO ADMISSIONS ON FILE!"
  • Line Location: BEGIN+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A0+0
Function Call: WRITE
  • Prompt: !!,"NO OUTPATIENT DATA ON FILE!"
  • Line Location: A0+1
Function Call: WRITE
  • Prompt: !!,"NO OUTPATIENT DATA ON FILE!"
  • Line Location: OMDATE+0
Function Call: WRITE
  • Prompt: !!,"This report will also display any existing outpatient meals data."
  • Line Location: OMDATE+1
Function Call: WRITE
  • Prompt: !,"Enter the Start Date and End Date for outpatient data.",!
  • Line Location: OMDATE+2
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: OMDATE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: P0+0
Function Call: WRITE
  • Prompt: !!,"Allergies: "
  • Line Location: F0+10
Function Call: WRITE
  • Prompt: !!,"Food Preferences Currently on file:",!!?26,"Likes",?58,"Dislikes",!
  • Line Location: F0+11
Function Call: WRITE
  • Prompt: !
  • Line Location: F0+13
Function Call: WRITE
  • Prompt: $P(M1,"~",2)
  • Line Location: F0+13
Function Call: WRITE
  • Prompt: !!,"No Food Preferences on file",!
  • Line Location: F0+16
Function Call: WRITE
  • Prompt: !
  • Line Location: F0+17
Function Call: WRITE
  • Prompt: ?12
  • Line Location: W0+0
Function Call: WRITE
  • Prompt: ?46
  • Line Location: W0+1
Function Call: WRITE
  • Prompt: !
  • Line Location: W0+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: L
  • Line Location: W0+2
Function Call: WRITE
  • Prompt: X
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: $E(X,1,KK-2)
  • Line Location: W1+2
Function Call: WRITE
  • Prompt: ALG
  • Line Location: LNE+1
Function Call: WRITE
  • Prompt: $E(ALG,1,L-2)
  • Line Location: LNE+3
Function Call: WRITE
  • Prompt: !?11
  • Line Location: LNE+5
Function Call: READ
  • Variable: QT
  • Timeout: DTIME
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?15,"P A T I E N T D A T A L O G",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Date Range: ",PRTFM,?62,NOW,!!,PID,?17,NAM,?49,$S(SEX="M":"Male",SEX="F":"Female",1:""),?58,"Age ",AGE,?72,"Page ",PG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: $J(+$E(Y,6,7),2)_"-"_$P("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"," ",+$E(Y,4,5))_"-"_$E(Y,2,3)
  • Line Location: DTP+1
Function Call: WRITE
  • Prompt: $J($S(%>12:%-12,1:%),3)_":"_$E(Y_"000",11,12)_$S(%<12:"am",%<24:"pm",1:"m")
  • Line Location: DTP+2
Routine Call
  • DIC
  • Line Location:
    • BEGIN+3
    • A0+4
Routine Call
  • DIR
  • Line Location:
    • OMDATE+7
    • INOUT+1
    • INOUT+5
    • INOUT+7
Routine Call
  • %ZIS
  • Line Location:
    • P0

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] BEGIN+4
^DPT("CN" A0+3
^FH(115.2 - [#115.2] SP
^FHPT - [#115] BEGIN+2, A0+1, A0+2, CAD, OMDATE, F0+12

Label References

Name Line Occurrences
A0 A0+4
CAD A0+3
CLEAN BEGIN+1
F0 INOUT
FHDMP A0+1, OMDATE, P0+2
HDR F0+9, W0+2
INOUT P0+2
KIL A0, P0, P0+1, W0+2
LNE F0+10, LNE+6
OMDATE BEGIN+2, A0+2
P0 CAD, OMDATE+9
SP F0+12
SP1 SP+2
W0 F0+14, W0+2
W1 W0, W0+1

Naked Globals

Name Field # of Occurrence
^( F0+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% F0, DTP+2*, DTP+3!
%ZIS P0*!, P0+2!
%ZIS("B" P0*
ADM BEGIN*, BEGIN+5!, A0+3*, A0+4*, CAD, INOUT+2
>> AGE F0+3*, HDR+4
>> ALG F0+10*, LNE+1, LNE+2, LNE+3, LNE+4*, LNE+5
>> DA BEGIN+3*
>> DAS SP*, SP1, SP1+1
>> DFN BEGIN+4, A0+3
>> DIC BEGIN+3*, A0+4*
>> DIC(0 BEGIN+3*, A0+4*
DIR OMDATE+5!, INOUT+1!, INOUT+5!, INOUT+7!
DIR("A" OMDATE+6*
DIR("B" OMDATE+6*
DIR(0 OMDATE+6*, INOUT+1*, INOUT+5*, INOUT+7*
>> DIRUT OMDATE+8
>> DOB F0+3*
DT CAD, F0*
DTIME A0, HDR+1
>> DTP F0*, F0+5*, F0+6*
>> EDT1 F0+6*, F0+7
>> ENDT CAD*, OMDATE+4*, OMDATE+8*, F0+4, F0+6
>> EX INOUT+1*, INOUT+4, INOUT+5*, INOUT+6, INOUT+7*, INOUT+8, HDR+1*
>> FHAGE F0+3
>> FHALL BEGIN*
>> FHDFN BEGIN+1, BEGIN+2, BEGIN+3, A0+1, A0+2, CAD, OMDATE, F0+12
>> FHDOB F0+3
>> FHDTDF OMDATE+5*, OMDATE+6
>> FHLST P0+1*
>> FHPGM P0+1*
>> FHPTNM F0+3
>> FHSEX F0+3
IO P0+2
IO("Q" P0+1
IOF HDR+2
IOP P0!, P0+2!
IOSL F0
IOST INOUT+1, INOUT+5, INOUT+7, F0, HDR+1, HDR+2
>> K F0+12*, SP1+1
>> KK W1+1*, W1+2, SP*, SP+1, SP1, SP1+1
L F0+13*, F0+17!, W0+2*, LNE+2*, LNE+3, LNE+4
>> L1 SP*, SP+1*, SP1, SP1+1
>> LN INOUT+3, F0+8*
M F0+17!, SP*, SP+2, SP+3, SP+4
M1 F0+13*, F0+14, F0+17!, SP*, SP+2*, SP+3*, SP+4*, SP1, SP1+1
M2 F0+17!
>> MM F0+13*, F0+14
N F0+12!, F0+17!
N( F0+13, F0+14, SP1*, SP1+1*
N("" F0+16
>> NAM F0+3*, HDR+4
>> NOW F0*, HDR+4
>> P1 F0+12*, F0+14*, SP1, SP1+1*
>> P2 F0+14*
>> PG F0+3*, HDR+1, HDR+2*, HDR+4
>> PID F0+3*, HDR+4
>> POP P0
>> PRTFM F0+4*, F0+7*, HDR+4
>> Q SP+1*
>> QT INOUT+1, INOUT+3, INOUT+4, INOUT+6, INOUT+8, F0+3*, W0+2, HDR+1*
>> S1 F0*, W0+2
>> SDT CAD*, OMDATE+3*
>> SDT1 F0+5*, F0+7
>> SEX F0+3*, HDR+4
>> STDT CAD*, OMDATE+3, OMDATE+6, F0+4, F0+5
U CAD, INOUT+1, INOUT+4, INOUT+5, INOUT+6, INOUT+7, INOUT+8
>> WARD BEGIN+4*, A0, A0+3
>> X BEGIN+3*, A0*, A0+1, A0+2, A0+3, OMDATE+4*, F0+12*, W0*, W0+1*, W1*
, W1+1, W1+2*, SP, SP+1
>> X1 F0+14*, W0*, W0+2
>> X2 F0+14*, W0+1*, W0+2
>> Y A0+4, OMDATE+4, OMDATE+5, OMDATE+8*, INOUT+1, INOUT+5, INOUT+7, DTP+1, DTP+2
>> Z SP*
>> Z1 SP+3*, SP+4*
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