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

Package: Dietetics

Routine: FHASP1


Information

FHASP1 ; HISC/REL/JH - Nutrition Profile (cont) ;5/2/01 10:14

Source Information

Source file <FHASP1.m>

Entry Points

Name Comments DBIA/ICR reference
F1
NOAPP
LST
CLIN ;S SC=+$P(Z,"^",1),Y=$P($G(^SC(SC,0)),"^",1) Q:Y=""
DISP ; Display Food Preferences
P0
P1
SP
SP1
MO ; Display Monitors
PRERR ;if Scheduling API returns an error, print error in the report.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?22,"Dietetic Encounters since ",FHENDATE
  • Line Location: FHASP1+6
Function Call: WRITE
  • Prompt: !!?5,"No Encounters recorded since ",FHENDATE
  • Line Location: FHASP1+9
Function Call: WRITE
  • Prompt: !!?28,$S($G(ADM):"Current",1:"Last")," Admission Monitors"
  • Line Location: FHASP1+12
Function Call: WRITE
  • Prompt: !,"No Monitors on file."
  • Line Location: FHASP1+15
Function Call: WRITE
  • Prompt: !,"No Monitors on file."
  • Line Location: FHASP1+18
Function Call: WRITE
  • Prompt: !!?32,"Food Preferences"
  • Line Location: F1+0
Function Call: WRITE
  • Prompt: !!?27,"Future Clinic Appointments"
  • Line Location: F1+1
Function Call: WRITE
  • Prompt: !!?5,"No scheduled appointments."
  • Line Location: NOAPP+0
Function Call: WRITE
  • Prompt: !?5,$E(DTP,1,9)," "
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: ", ",$S(Y="G":"Group",1:"Individual")
  • Line Location: LST+3
Function Call: WRITE
  • Prompt: !?5,DTP,?25,Y
  • Line Location: CLIN+4
Function Call: WRITE
  • Prompt: !?5,DTP,?25,Y
  • Line Location: CLIN+5
Function Call: WRITE
  • Prompt: " (Collateral)"
  • Condition for execution: $P(Z,"^",11)
  • Line Location: CLIN+5
Function Call: WRITE
  • Prompt: !?26,"Likes",?58,"DisLikes",!
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: $P(M,"~",2)
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"No Food Preferences on file",!
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: ?12
  • Line Location: P0+0
Function Call: WRITE
  • Prompt: ?46
  • Line Location: P0+1
Function Call: WRITE
  • Prompt: !
  • Line Location: P0+2
Function Call: WRITE
  • Prompt: X
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: $E(X,1,KK-2)
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: !,$P(Y,"^",1)
  • Line Location: MO+3
Function Call: WRITE
  • Prompt: ", ",DTP
  • Line Location: MO+3
Function Call: WRITE
  • Prompt: !!,"*** ERROR in Scheduling API ***"
  • Line Location: PRERR+2
Function Call: WRITE
  • Prompt: !,"***",@FHTMP@("ERROR",FHER)," !!!",!
  • Line Location: PRERR+3
Info |  Source |  Entry Points |  Interaction Calls