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

Package: Dietetics

Routine: FHADR2


Information

FHADR2 ; HISC/NCA/JH - Type of Service ;2/15/95 16:02

Source Information

Source file <FHADR2.m>

Entry Points

Name Comments DBIA/ICR reference
Q1 ; Bedside Tray, Cafeteria, and Dining Room Tray
; Enter/Edit the Type of Service
F1
SET ; Set all three quarters with the Type of Service
KIL
S1
MSG
EN2 ; Print out the Type of Service

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: F1+0
Function Call: WRITE
  • Prompt: !?5,"Another user is editing this entry."
  • Line Location: F1+1
Function Call: WRITE
  • Prompt: !!,$C(7)," *** SITE NOT FOUND IN ^XMB GLOBAL ***"
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !!!!!,?13,"TYPE OF SERVICE SUMMARY"
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !?65,"Average Daily Meals Served",!?68,"By Type of Service",?93,"% of Workload"
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: !,?15,"Bedside Tray",?80
  • Line Location: EN2+7
Function Call: WRITE
  • Prompt: $J($S(N1:N1,1:""),6),?100,$S(X2:$J(N1/X2*100,6,0),1:$J("",6))
  • Line Location: EN2+7
Function Call: WRITE
  • Prompt: !?15,"Cafeteria",?80
  • Line Location: EN2+8
Function Call: WRITE
  • Prompt: $J($S(N2:N2,1:""),6),?100,$S(X2:$J(N2/X2*100,6,0),1:$J("",6))
  • Line Location: EN2+8
Function Call: WRITE
  • Prompt: !?15,"Dining Room Tray",?80
  • Line Location: EN2+9
Function Call: WRITE
  • Prompt: $J($S(N3:N3,1:""),6),?100,$S(X2:$J(N3/X2*100,6,0),1:$J("",6))
  • Line Location: EN2+9
Function Call: WRITE
  • Prompt: !,?15,"Total",?80
  • Line Location: EN2+10
Function Call: WRITE
  • Prompt: $J($S(X2:X2,1:""),6)
  • Line Location: EN2+10

FileMan Files Accessed Via FileMan Db Call

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