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

Package: Dietetics

Routine: FHADR5


Information

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

Source Information

Source file <FHADR5.m>

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

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
Info |  Source |  Entry Points |  Interaction Calls