Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Dietetics 3 DTP^FH  (FOOT,HF)^FHASP  CHECK^FHOMDPA  
Scheduling 1 GETAPPT^SDAMA201  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHASP  

Entry Points

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

External References

Name Field # of Occurrence
^%DT FHASP1+3
DTP^FH FHASP1+4, LST+2, CLIN+4, MO+3
FOOT^FHASP NOAPP+1
HF^FHASP FHASP1+7, FHASP1+12, F1, CLIN+4, P0+2, MO+2
CHECK^FHOMDPA FHASP1+10
GETAPPT^SDAMA201 F1+7

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(115.2 - [#115.2] SP
^FH(115.6 - [#115.6] LST+2
^FHEN - [#115.7] LST, LST+1
^FHEN("AP" FHASP1+7
^FHPT - [#115] FHASP1+11, FHASP1+14, FHASP1+17, DISP+2, MO+1
^TMP($J F1+5!, F1+8, F1+9, F1+11!, F1+12!

Label References

Name Line Occurrences
CLIN F1+11
DISP F1
F1 FHASP1+11, FHASP1+15
LST FHASP1+7
MO FHASP1+17
NOAPP F1+8
P0 DISP+4, P0+2
P1 P0, P0+1
PRERR F1+10
SP DISP+2
SP1 SP+2

Naked Globals

Name Field # of Occurrence
^( DISP+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT FHASP1+3*!
>> ADM FHASP1+11, FHASP1+12
>> ANS FHASP1+7, FHASP1+8, FHASP1+12, FHASP1+17, FHASP1+18, F1, F1+11, F1+14, CLIN+4, DISP+4
, DISP+6, P0+2, MO+2
>> ASN FHASP1+7*, LST, LST+1
>> COM MO+4*
>> DAS SP*, SP1, SP1+1
>> DFN FHASP1+7, FHASP1+10, F1+7, LST+1
DT F1+7
>> DTP FHASP1+4*, LST+2*, CLIN+4*, MO+3*
>> FADM FHASP1+11*, FHASP1+14, FHASP1+17, MO+1
>> FHCNT F1+6*, F1+7, F1+11
>> FHDFN FHASP1+10, FHASP1+11, FHASP1+14, FHASP1+17, DISP+2, MO+1
>> FHENDATE FHASP1+4*, FHASP1+6, FHASP1+9
>> FHER PRERR+1*, PRERR+3
>> FHET FHASP1+3*, FHASP1+4, FHASP1+7*
>> FHI F1+11*, CLIN+1, CLIN+2, CLIN+3
>> FHMONS FHASP1+16*, FHASP1+17
>> FHNUM FHASP1+16
>> FHTMP F1+9*, F1+10, F1+11, CLIN+1, CLIN+2, CLIN+3, PRERR+1, PRERR+3
>> FHTTLM FHASP1+14*, FHASP1+15, FHASP1+16
>> FHZ115 FHASP1+10*
>> K FHASP1+17*, DISP+2*, SP1+1, MO+1
>> KK P1+1*, P1+2, SP*, SP+1, SP1, SP1+1
>> L1 SP*, SP+1*, SP1, SP1+1
>> M DISP+3*, DISP+4, SP*, SP+2*, SP+3*, SP+4*, SP1, SP1+1
>> M1 SP*, SP+2, SP+3, SP+4
>> MM DISP+3*, DISP+4
>> N1 FHASP1+5*, FHASP1+9, FHASP1+12*, FHASP1+18, F1+1*, NOAPP, LST+2*, CLIN+4*, MO+1*
>> NDT FHASP1+17*, CLIN+1*, CLIN+4
P DISP+2!
P( DISP+3, DISP+4, SP1*, SP1+1*
P("" DISP+7
>> P1 DISP+2*, DISP+4*, SP1, SP1+1*
>> P2 DISP+4*
>> Q SP+1*
>> S1 FHASP1+7, FHASP1+12, F1, CLIN+4, P0+2, MO+2
>> SC CLIN+2*
U FHASP1+14, CLIN+2, CLIN+3, SP
>> X FHASP1+3*, DISP+2*, P0*, P0+1*, P1*, P1+1, P1+2*, SP, SP+1
>> X0 LST*, LST+2, LST+3, LST+4
>> X1 LST+1*, LST+4, DISP+4*, P0*, P0+2
>> X2 DISP+4*, P0+1*, P0+2
>> Y FHASP1+3, LST+2*, LST+3*, LST+4*, CLIN+3*, CLIN+4, MO+1*, MO+3, MO+4
>> Z SP*
>> Z1 SP+3*, SP+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All