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

Package: Dietetics

Routine: FHMTK1


Information

FHMTK1 ; HISC/REL/NCA - Tray Tickets ;4/20/95 15:28

Source Information

Source file <FHMTK1.m>

Entry Points

Name Comments DBIA/ICR reference
F0 ;
C0 ; Sort by Communication Office
NL0 ; Sort by Location
P0 ; Single patient
S0 ; Start
F1
R1
D5
R2
L0 ;I $G(FHOMF)=1 Q
KIL
TABREC ; Entry point for separate Print Tab Recipes option
P1 ; Tray tickets for single outpatient

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: C0+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NL0+2
Function Call: WRITE
  • Prompt: !!?5," [ Patient has expired. ]"
  • Line Location: P0+5
Function Call: READ
  • Formatting: !!
  • Prompt: "Sort Patients: (A=Alphabetically R=Room-Bed) R// "
  • Variable: SRT
  • Timeout: DTIME
  • Line Location: S0+2
Function Call: WRITE
  • Prompt: *7," Enter A or R"
  • Line Location: S0+3
Function Call: WRITE
  • Prompt: !
  • Line Location: F1+0
Function Call: WRITE
  • Prompt: *7,!!,"No MENU CYCLE Defined for that Date!"
  • Line Location: F1+1
Function Call: WRITE
  • Prompt: *7,!!,"MENU CYCLE DAY Not Defined for that Date!"
  • Line Location: F1+2
Function Call: READ
  • Timeout: DTIME
  • Line Location: R1+0
Function Call: WRITE
  • Prompt: *7,!,"Select B for Breakfast, N for Noon, or E for Evening or ALL for all meals"
  • Line Location: R1+1
Function Call: WRITE
  • Prompt: *7,!!,"*** NO MENU DEFINED FOR ",$S(LP="B":"BREAKFAST",LP="N":"NOON",1:"EVENING")," ***"
  • Line Location: R1+4
Function Call: WRITE
  • Prompt: *7,!!,"*** NO MENU DEFINED FOR THIS MEAL ***"
  • Line Location: R1+6
Function Call: READ
  • Formatting: !!
  • Prompt: "Consolidated List? Y// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: D5+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: D5+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Print Only Ones With Order Changes related to the Tray Ticket? N // "
  • Variable: X
  • Timeout: DTIME
  • Line Location: R2+1
Function Call: WRITE
  • Prompt: *7,!," Answer YES or NO"
  • Line Location: R2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: L0+1

FileMan Files Accessed Via FileMan Db Call

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