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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FHPT - [#115] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call