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

Package: Dietetics

Routine: FHPRW1


Information

FHPRW1 ; HISC/REL - List Facilities ;4/27/93 13:34

Source Information

Source file <FHPRW1.m>

Entry Points

Name Comments DBIA/ICR reference
Q1 ; Print Facilities' Information
Q2
SVC ; Build Service temp file
S1
HDR
KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: FHPRW1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: Q1+3
Function Call: WRITE
  • Prompt: !!,"Full Names on Daily Menu:",?40,$S($P(X,"^",2)="Y":"YES",1:"NO")
  • Line Location: Q2+1
Function Call: WRITE
  • Prompt: !,"Print Meal Distribution:",?40,$S($P(X,"^",5)="Y":"YES",1:"NO")
  • Line Location: Q2+2
Function Call: WRITE
  • Prompt: !,"Separate Production Summary Pages:",?40,$S($P(X,"^",7)="Y":"YES",1:"NO")
  • Line Location: Q2+3
Function Call: WRITE
  • Prompt: !,"Separate Recipe Preparation Pages:",?40,$S($P(X,"^",4)="Y":"YES",1:"NO")
  • Line Location: Q2+4
Function Call: WRITE
  • Prompt: !,"Separate Storeroom Pages:",?40,$S($P(X,"^",6)="Y":"YES",1:"NO")
  • Line Location: Q2+5
Function Call: WRITE
  • Prompt: !!,"Associated Tray Lines:",!
  • Line Location: Q2+6
Function Call: WRITE
  • Prompt: !?5,$P(NX,"~",1)
  • Line Location: Q2+6
Function Call: WRITE
  • Prompt: !!,"Associated Cafeterias:",!
  • Line Location: Q2+7
Function Call: WRITE
  • Prompt: !?5,$P(NX,"~",1)
  • Line Location: Q2+7
Function Call: WRITE
  • Prompt: !!,"Associated Supplemental Fdg. Sites:",!
  • Line Location: Q2+8
Function Call: WRITE
  • Prompt: !?5,$P(NX,"~",1)
  • Line Location: Q2+8
Function Call: WRITE
  • Prompt: !
  • Line Location: Q2+9
Function Call: WRITE
  • Prompt: !,$E(DTP,1,9),?21,"P R O D U C T I O N F A C I L I T Y",?73,"Page ",PG
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !!?(78-$L(Y)\2),Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"-------------------------------------------------------------------------------",!
  • Line Location: HDR+2
Info |  Source |  Entry Points |  Interaction Calls