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

Package: Dietetics

Routine: FHCTF1


Information

FHCTF1 ; HISC/REL/NCA - Display Tickler File ;4/6/01 08:43

Source Information

Source file <FHCTF1.m>

Entry Points

Name Comments DBIA/ICR reference
E0
DISP ; Display Tickler File
E1
E2
Q0 ; Process Displaying Tickler File Entries
Q1
QT2
D2
PT1 ;print patient info.
DTP ; Printable Date/Time
HDR ; Display Header
KIL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: E0+0
Function Call: WRITE
  • Prompt: !
  • Line Location: E0+3
Function Call: WRITE
  • Prompt: !
  • Line Location: E1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: E2+0
Function Call: WRITE
  • Prompt: !!,"No Tickler File Entries"
  • Line Location: QT2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: QT2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: D2+3
Function Call: WRITE
  • Prompt: DTP
  • Line Location: D2+4
Function Call: WRITE
  • Prompt: ?18,$S(TYP="C":"Consult",TYP="S":"SF Review",TYP="D":"Diet Review",TYP="X":"Personal",TYP="T":"Tubefeed",TYP="N":"Status",1:""),": ",X
  • Line Location: D2+5
Function Call: WRITE
  • Prompt: !?18,$P($G(^DPT(DFN,0)),"^",1)," (",$E($P($G(^(0)),"^",9),6,9),") "
  • Line Location: D2+6
Function Call: WRITE
  • Prompt: " ",$P($G(^FH(119.6,+FHWRD,0)),"^",1)," ",$P($G(^DPT(DFN,.101)),"^",1)
  • Line Location: D2+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PT1+2
Function Call: WRITE
  • Prompt: !?18,"** PERSONALIZED TICKLER **"
  • Line Location: PT1+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Press RETURN to continue or ""^"" to exit. "
  • Variable: YN
  • Timeout: DTIME
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Enter Return or ""^""."
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,DTP,?28,"T I C K L E R F I L E",?73,"Page ",PG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$P(^VA(200,FHDUZ,0),"^",1)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?64,"Thru: ",DTP
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HDR+5

FileMan Files Accessed Via FileMan Db Call

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