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 |  Local Variables  | All
Print Page as PDF
Routine: FHADR5

Package: Dietetics

Routine: FHADR5


Information

FHADR5 ; HISC/NCA - Dietetic Encounter Percentage ;4/27/93 09:20

Source Information

Source file <FHADR5.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Dietetics 2 HDR2^FHADR3A  (HDR,Q2)^FHADRPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHADRPT  

Entry Points

Name Comments DBIA/ICR reference
Q0 ; Calculate the Encounter Percentage
Q1
Q2
Q3 ; Count the Encounter and Work Units
ADD
A1 ; S(TYP) contains encounters, and N(TYP) contains the Work Units for
; four quarters T2 contains Total Encounters and T4 contains
; total Work Units of last line, CTN is YTD final encounters and
; NUM is YTD Units, T3 contains YTD Total encounters for each category
; T5 contains the YTD Total Units for each category
EN2 ; Print the Encounters and Work Units
P1
P2
LP
TOT ; Print Last Line
HDR ; Print Heading for Encounter Category Summary

External References

Name Field # of Occurrence
HDR2^FHADR3A HDR+1
HDR^FHADRPT EN2+1, HDR+1
Q2^FHADRPT Q0+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?2,X,?28
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: $S(NUM:$J(T5(Z)/NUM*100,6,1),1:$J("",6))
  • Line Location: P2+2
Function Call: WRITE
  • Prompt: $J($S(+$P(S(Z),"^",I)'<1:$P(S(Z),"^",I),1:""),5)_" ",$S($P(N(Z),"^",I)'="":$J($P(N(Z),"^",I),7,0),1:$J("",7))
  • Line Location: LP+0
Function Call: WRITE
  • Prompt: !!,X,?28
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: $J($S($P(T2,"^",I):$P(T2,"^",I),1:""),5)_" ",$S($P(T4,"^",I):$J($P(T4,"^",I),7,0),1:$J("",7))_$J("",7)
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: ?108,$J($S(CTN:CTN,1:""),5)_" ",$S(NUM:$J(NUM,7,0),1:$J("",7))
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: !!!!,"CLINICAL ENCOUNTER CATEGORY SUMMARY"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,?35,"1st Qtr",?55,"2nd Qtr",?76,"3rd Qtr",?95,"4th Qtr",?116,"YTD"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?36,"Work",?56,"Work",?76,"Work",?96,"Work",?116,"Work"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Clinical Categories",?30,"Tot Units % Tot Units % Tot Units % Tot Units % Tot Units %",!
  • Line Location: HDR+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(115.6 EN2+2
^FH(115.6 - [#115.6] ADD
^FHEN - [#115.7] Q3+2
^FHEN("AT" Q2, Q3+1

Label References

Name Line Occurrences
A1 ADD
ADD Q2
EN2 Q0+3
HDR EN2+1
LP P2
P2 P1
Q1 Q0+2
Q2 Q3+1
Q3 Q3+2, Q3+6
TOT P1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CTN Q0+1*, A1+7*, TOT+2
>> EDT Q1, Q1+1
>> FHYR Q0+2
>> I P2*, LP, LP+1, TOT+1*
>> K Q2+1*, Q3+1*, Q3+2, ADD*, A1+7, A1+8, A1+9, A1+10, A1+11, A1+12
, P1*
>> LIN EN2+1, HDR+1
N Q0+1!, TOT+3!
N( A1+10*, LP, LP+1
>> NUM Q0+1*, A1+12*, P2+2, TOT+2
P Q0+1!, Q1+1!, TOT+3!
P( Q3+5*, A1+10, A1+11, A1+12
>> PRE Q0+2*
>> QR Q0+2*
>> QTR Q0+2*, A1+7, A1+8, A1+10, A1+11
S Q0+1!, TOT+3!
S( A1+6*, A1+7*, P1, LP
>> SDT Q1, Q1+1
T Q1+1!
T( Q3+4*, ADD, A1+7, A1+8, A1+9
T2 Q0+1!*, A1+8*, TOT+1, TOT+3!
T3 Q0+1!*, TOT+3!
T3( A1+8*, A1+9*, P2+1
T4 Q0+1!*, A1+11*, LP+1, TOT+1, TOT+3!
T5 Q0+1!*, TOT+3!
T5( A1+11*, A1+12*, P2+1, P2+2
>> TIT EN2+2*, P1
>> TYP Q3+2*, Q3+4, Q3+5, ADD*, A1+5, A1+6, A1+7, A1+8, A1+9, A1+10
, A1+11, A1+12
>> UNT Q3+3*, Q3+5
>> X Q3+2*, Q3+3, P1*, P1+1*, P2, TOT+1
>> X1 Q1+1*, Q2*, Q3+1
>> X2 Q1+1*, Q2
>> Z P1*, P2+1, P2+2, LP, LP+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All