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

Package: Dietetics

Routine: FHPRW3


Information

FHPRW3 ; HISC/REL - List Communication Offices ;4/25/93 14:23

Source Information

Source file <FHPRW3.m>

Entry Points

Name Comments DBIA/ICR reference
Q4
WRD
BLD ; Build temp files
B1
HDR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Provide Bagged Meals:",?25
  • Line Location: Q4+3
Function Call: WRITE
  • Prompt: $S(Z="Y":"YES",1:"NO")
  • Line Location: Q4+3
Function Call: WRITE
  • Prompt: !!?44,"Breakfast Noon Evening",!
  • Line Location: Q4+4
Function Call: WRITE
  • Prompt: !,?5,"Meal Time:"
  • Line Location: Q4+5
Function Call: WRITE
  • Prompt: ?46,$J($P(X2,"^",7),6),?57,$J($P(X2,"^",8),6),?67,$J($P(X2,"^",9),6)
  • Line Location: Q4+5
Function Call: WRITE
  • Prompt: !!,?5,"Early Time 1:"
  • Line Location: Q4+6
Function Call: WRITE
  • Prompt: ?46,$J($P(X1,"^",1),6),?57,$J($P(X1,"^",7),6),?67,$J($P(X1,"^",13),6)
  • Line Location: Q4+6
Function Call: WRITE
  • Prompt: !,?5,"Early Time 2:"
  • Line Location: Q4+7
Function Call: WRITE
  • Prompt: ?46,$J($P(X1,"^",2),6),?57,$J($P(X1,"^",8),6),?67,$J($P(X1,"^",14),6)
  • Line Location: Q4+7
Function Call: WRITE
  • Prompt: !,?5,"Early Time 3:"
  • Line Location: Q4+8
Function Call: WRITE
  • Prompt: ?46,$J($P(X1,"^",3),6),?57,$J($P(X1,"^",9),6),?67,$J($P(X1,"^",15),6)
  • Line Location: Q4+8
Function Call: WRITE
  • Prompt: !!,?5,"Late Time 1:"
  • Line Location: Q4+9
Function Call: WRITE
  • Prompt: ?46,$J($P(X1,"^",4),6),?57,$J($P(X1,"^",10),6),?67,$J($P(X1,"^",16),6)
  • Line Location: Q4+9
Function Call: WRITE
  • Prompt: !,?5,"Late Time 2:"
  • Line Location: Q4+10
Function Call: WRITE
  • Prompt: ?46,$J($P(X1,"^",5),6),?57,$J($P(X1,"^",11),6),?67,$J($P(X1,"^",17),6)
  • Line Location: Q4+10
Function Call: WRITE
  • Prompt: !,?5,"Late Time 3:"
  • Line Location: Q4+11
Function Call: WRITE
  • Prompt: ?46,$J($P(X1,"^",6),6),?57,$J($P(X1,"^",12),6),?67,$J($P(X1,"^",18),6)
  • Line Location: Q4+11
Function Call: WRITE
  • Prompt: !!,?5,"Late Alarm Begin:"
  • Line Location: Q4+12
Function Call: WRITE
  • Prompt: ?46,$J($P(X2,"^",1),6),?57,$J($P(X2,"^",3),6),?67,$J($P(X2,"^",5),6)
  • Line Location: Q4+12
Function Call: WRITE
  • Prompt: !,?5,"Late Alarm End:"
  • Line Location: Q4+13
Function Call: WRITE
  • Prompt: ?46,$J($P(X2,"^",2),6),?57,$J($P(X2,"^",4),6),?67,$J($P(X2,"^",6),6)
  • Line Location: Q4+13
Function Call: WRITE
  • Prompt: !
  • Line Location: Q4+14
Function Call: WRITE
  • Prompt: !!,"Associated Dietetic Wards:",!
  • Line Location: WRD+0
Function Call: WRITE
  • Prompt: !?5,P(LL)
  • Line Location: WRD+2
Function Call: WRITE
  • Prompt: ?45,P(K)
  • Line Location: WRD+2
Function Call: WRITE
  • Prompt: !,$E(DTP,1,9),?20,"C O M M U N I C A T I O N O F F I C E",?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