Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: FHOMDMP

Package: Dietetics

Routine: FHOMDMP


Information

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

Source Information

Source file <FHOMDMP.m>

Entry Points

Name Comments DBIA/ICR reference
BEGIN
OP
P0
F0
W0
W1
SP
SP1
LNE ; Break Line if longer than 65 chars
HDR ; Print Header
DTP ; Printable Date/Time
KIL ; Final variable kill

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"OUPT "_OP
  • Line Location: OP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: P0+0
Function Call: WRITE
  • Prompt: !!,"Allergies: "
  • Line Location: F0+13
Function Call: WRITE
  • Prompt: !!,"Food Preferences Currently on file:",!!?26,"Likes",?58,"Dislikes",!
  • Line Location: F0+14
Function Call: WRITE
  • Prompt: !
  • Line Location: F0+16
Function Call: WRITE
  • Prompt: $P(M1,"~",2)
  • Line Location: F0+16
Function Call: WRITE
  • Prompt: !!,"No Food Preferences on file",!
  • Line Location: F0+19
Function Call: WRITE
  • Prompt: !
  • Line Location: F0+20
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: !,?20,"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
Info |  Source |  Entry Points |  Interaction Calls