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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ACKQR5

Package: Quasar

Routine: ACKQR5


Information

ACKQR5 ;HCIOFO/BH -Statistics by EC Code ; [ 10/10/00 9:52 AM ]

Source Information

Source file <ACKQR5.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Quasar 4 ($$STOPNM,$$STOPSORT,DTRANGE,PARAMS)^ACKQRU  ($$FTIME,$$MIXC,$$NUMDT,CNTR,PAUSE)^ACKQUTL  ($$DIV,$$LEADROLE)^ACKQUTL2  $$CONVERT^ACKQUTL4  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 NOW^%DTC  ($$GET1,GETS)^DIQ  

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
Quasar 1 ACKQAS EC PROC STATS  

Entry Points

Name Comments DBIA/ICR reference
OPTN
DEV
DQ ; Queued entry point
; Vars required are:-
; ACKDIV() - selected divs, ACKBD,ACKXBD - beginning of date range (internal,external)
; ACKED,ACKXED - end of date range (internal, external)
; ACKASB - A=audio,S=speech,O=other,ASO=all three
; ACKSS - type of report (1=one clinician etc), ACKSTF(x) - selected providers
EXIT ; Only way out
STORE ;
GETEC(ACKECN) ; Get EC Proc code data and put in ^TMP
ECDESC(ACKEC) ; Get ec Proc desc (short name)
PRINT ; print report for each div
PRINT2 ; print for a single div
SUMM ;
TOTALS ; Print final page of totals for all divs
HDR ;
SUMHD ;
TOTLHD ;
DIVNAME(ACKVDIV) ; Get div name
STAFFNM(ACKSTF) ; Get staff name

External References

Name Field # of Occurrence
NOW^%DTC DQ+7
^%ZIS DEV+2
HOME^%ZIS DEV+8
^%ZISC EXIT+7
^%ZTLOAD DEV+8
$$STOPNM^ACKQRU PRINT2+9, SUMM+5, SUMM+13, TOTALS+11, TOTALS+19
$$STOPSORT^ACKQRU STORE+12
DTRANGE^ACKQRU OPTN+5
PARAMS^ACKQRU OPTN+11
$$FTIME^ACKQUTL DQ+7
$$MIXC^ACKQUTL STAFFNM+1
$$NUMDT^ACKQUTL DQ+7
CNTR^ACKQUTL HDR+4, HDR+5, HDR+6, HDR+7, HDR+8, HDR+9, HDR+10, HDR+11, HDR+12, SUMHD+4
, SUMHD+5, SUMHD+6, SUMHD+7, TOTLHD+4, TOTLHD+5, TOTLHD+6
PAUSE^ACKQUTL PRINT+5, PRINT2+4, PRINT2+8, PRINT2+11, PRINT2+15, PRINT2+20, PRINT2+23, SUMM+4, SUMM+8, SUMM+11
, SUMM+15, SUMM+17, TOTALS+6, TOTALS+10, TOTALS+14, TOTALS+17, TOTALS+21, TOTALS+23
$$DIV^ACKQUTL2 OPTN+3
$$LEADROLE^ACKQUTL2 STORE+25
$$CONVERT^ACKQUTL4 PRINT2+17, STAFFNM+1
$$GET1^DIQ STORE+19, STORE+20, STORE+24, PRINT2+12, DIVNAME+1
GETS^DIQ GETEC+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"This option produces a report listing clinic visits for a date range"
  • Line Location: OPTN+0
Function Call: WRITE
  • Prompt: !,"sorted by Event Capture procedure codes.",!
  • Line Location: OPTN+1
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80."
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"You can queue it to run at a later time.",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED."
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !!,"No data found for report specifications.",!!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,"No data found for report specifications.",!!
  • Line Location: PRINT2+3
Function Call: WRITE
  • Prompt: !!,"Total For Division: "_$$DIVNAME(ACKVDIV),?62,$J(ACKT(ACKVDIV),4)
  • Line Location: SUMM+16
Function Call: WRITE
  • Prompt: !,ACKTXT,?12,$$DIVNAME(ACKVDIV)
  • Line Location: TOTALS+7
Function Call: WRITE
  • Prompt: !!,"STOP CODE: ",$$STOPNM^ACKQRU(ACKSORT)
  • Line Location: TOTALS+11
Function Call: WRITE
  • Prompt: !?5,ACKEC,?15,$$ECDESC(ACKEC),?55,"COUNT: "
  • Line Location: TOTALS+15
Function Call: WRITE
  • Prompt: $J(^TMP("ACKQR5",$J,2,ACKSORT,ACKEC),4)
  • Line Location: TOTALS+16
Function Call: WRITE
  • Prompt: !!,"Total For ",$$STOPNM^ACKQRU(ACKSORT)
  • Line Location: TOTALS+19
Function Call: WRITE
  • Prompt: ?62,$J(ACKT2(ACKSORT),4)
  • Line Location: TOTALS+20
Function Call: WRITE
  • Prompt: !!,"Grand Total:",?62,$J(ACKT2,4)
  • Line Location: TOTALS+22
Function Call: WRITE
  • Prompt: "Printed: ",ACKCDT,?(IOM-8),"Page: ",ACKPG,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: "Printed: ",ACKCDT,?(IOM-8),"Page: ",ACKPG,!
  • Line Location: SUMHD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMHD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMHD+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMHD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMHD+7
Function Call: WRITE
  • Prompt: !,X
  • Line Location: SUMHD+8
Function Call: WRITE
  • Prompt: "Printed: ",ACKCDT,?(IOM-8),"Page: ",ACKPG,!
  • Line Location: TOTLHD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTLHD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTLHD+5
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTLHD+6
Function Call: WRITE
  • Prompt: !,X
  • Line Location: TOTLHD+7
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] GET1^DIQ
^SC - [#44] GET1^DIQ
509850.615 GET1^DIQ
^EC(725 - [#725] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850.6 - [#509850.6] DQ+10, DQ+11, STORE+1, STORE+8, STORE+18
^TMP("ACKQR5" DQ+8!, EXIT+5!, STORE+29, STORE+30, STORE+33, STORE+34*, STORE+36*, STORE+38*, GETEC+1, GETEC+3
, GETEC+4*, ECDESC+1, ECDESC+2, PRINT+2, PRINT2+1, PRINT2+7, PRINT2+10, PRINT2+14, PRINT2+19, PRINT2+22
, SUMM+1, SUMM+3, SUMM+7, SUMM+10, TOTALS+1, TOTALS+9, TOTALS+13, TOTALS+16

Label References

Name Line Occurrences
$$DIVNAME SUMM+16, TOTALS+7, HDR+12, SUMHD+6
$$ECDESC PRINT2+21, SUMM+9, TOTALS+15
$$STAFFNM HDR+7
EXIT OPTN+3, OPTN+5, OPTN+11, DEV+3, DEV+5
GETEC STORE+29
HDR PRINT+3, PRINT2+2, PRINT2+5, PRINT2+8, PRINT2+11, PRINT2+15, PRINT2+20
PRINT DQ+12
PRINT2 PRINT+6
STORE DQ+11
SUMHD SUMM+1, SUMM+4, SUMM+8, SUMM+11, SUMM+15
TOTALS PRINT+7
TOTLHD TOTALS+4, TOTALS+6, TOTALS+10, TOTALS+14, TOTALS+17, TOTALS+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DQ+7
%DT EXIT+6!
%I EXIT+6!
%T EXIT+6!
%ZIS DEV+2!*, EXIT+6!
%ZIS("B" DEV+2*
ACK2 EXIT+1!, STORE+8*, STORE+9, STORE+15
ACKASB EXIT+1!, STORE+12
ACKBD DQ+10, EXIT+1!
ACKC EXIT+1!
ACKCDT DQ+7*, EXIT+1!, HDR+3, SUMHD+3, TOTLHD+3
ACKCL EXIT+1!
ACKCLI EXIT+1!
ACKCLN EXIT+1!, PRINT2+10*, PRINT2+12, PRINT2+14, PRINT2+19, PRINT2+22
ACKCLNC EXIT+1!, STORE+6*, STORE+7, STORE+33, STORE+34
ACKCT EXIT+4!, STORE+33*, STORE+34
ACKD DQ+10*, DQ+11, EXIT+2!
ACKDIV OPTN+3*, EXIT+4!
ACKDIV( STORE+4, PRINT+6
ACKEC EXIT+1!, STORE+30*, STORE+31, STORE+33, STORE+34, STORE+36, STORE+38, GETEC+1~, GETEC+3*, GETEC+4
, ECDESC~, ECDESC+1, PRINT2+18*, PRINT2+19*, PRINT2+21, PRINT2+22, SUMM+6*, SUMM+7*, SUMM+9, SUMM+10
, TOTALS+12*, TOTALS+13*, TOTALS+15, TOTALS+16
ACKECN EXIT+5!, STORE+19*, STORE+29, STORE+30, GETEC~, GETEC+2, GETEC+3, GETEC+4, ECDESC+1~*, ECDESC+2
ACKED DQ+10, EXIT+2!
ACKHDR EXIT+4!, STORE+1*, STORE+6
ACKHDR2 EXIT+2!
ACKHDR5 EXIT+4!, STORE+1*, STORE+3
ACKI EXIT+2!
ACKLINE EXIT+2!
ACKLR EXIT+2!, STORE+15*, STORE+24*, STORE+25*, STORE+26, STORE+27, STORE+33, STORE+34
ACKOK EXIT+4!
ACKOOP EXIT+2!
ACKP EXIT+2!, STORE+18*, STORE+19, STORE+20, STORE+24
ACKPC EXIT+2!
ACKPCP EXIT+3!
ACKPG DQ+7*, EXIT+3!, HDR+1, HDR+2*, HDR+3, SUMHD+1, SUMHD+2*, SUMHD+3, TOTLHD+1, TOTLHD+2*
, TOTLHD+3
ACKQUIT EXIT+5!, STORE+22*, STORE+23, STORE+26*, STORE+27*
ACKRDR OPTN+6*, EXIT+3!, HDR+11
ACKSORT EXIT+2!, EXIT+4!, STORE+12*, STORE+33, STORE+34, STORE+36, STORE+38, STORE+40, STORE+42, PRINT2+6*
, PRINT2+7*, PRINT2+9, PRINT2+10, PRINT2+14, PRINT2+19, PRINT2+22, SUMM+2*, SUMM+3*, SUMM+5, SUMM+7
, SUMM+10, SUMM+13, SUMM+14, TOTALS+8*, TOTALS+9*, TOTALS+11, TOTALS+13, TOTALS+16, TOTALS+19, TOTALS+20
ACKSS EXIT+3!, STORE+15, STORE+23, PRINT2+16, HDR+7, HDR+8, HDR+9, HDR+10
ACKSTAFF EXIT+3!
ACKSTF EXIT+3!, PRINT2+13*, PRINT2+14*, PRINT2+17, PRINT2+19, PRINT2+22, STAFFNM~, STAFFNM+1
ACKSTF( STORE+15, STORE+27
ACKSTF(0 HDR+7
ACKT DQ+8!, EXIT+3!
ACKT( STORE+40*, STORE+41*, SUMM+14, SUMM+16, TOTALS+5
ACKT("" TOTALS+3
ACKT2 DQ+8!*, EXIT+4!, STORE+42*, TOTALS+22
ACKT2( STORE+42*, TOTALS+20
ACKTMP GETEC+1~*, GETEC+2
ACKTXT EXIT+5!, TOTALS+4*, TOTALS+7*
ACKV DQ+11*, EXIT+3!, STORE+1, STORE+8, STORE+18, STORE+19, STORE+20, STORE+24, STORE+25
ACKVDIV EXIT+4!, STORE+3*, STORE+4, STORE+33, STORE+34, STORE+36, STORE+40, STORE+41, PRINT+1*, PRINT+6*
, PRINT2+1, PRINT2+7, PRINT2+10, PRINT2+14, PRINT2+19, PRINT2+22, SUMM+3, SUMM+7, SUMM+10, SUMM+14
, SUMM+16, TOTALS+5*, TOTALS+7, HDR+12, SUMHD+6, DIVNAME~, DIVNAME+1
ACKVOL EXIT+5!, STORE+20*, STORE+21*, STORE+34, STORE+36, STORE+38, STORE+40, STORE+41, STORE+42
ACKVSC EXIT+3!, STORE+9*, STORE+12
ACKXBD OPTN+6, EXIT+3!
ACKXED OPTN+6, EXIT+4!
DIRUT OPTN+5, OPTN+11, EXIT+6!, PRINT+5, PRINT+6, PRINT+7, PRINT2+4, PRINT2+7, PRINT2+8, PRINT2+10
, PRINT2+11, PRINT2+14, PRINT2+15, PRINT2+19, PRINT2+20, PRINT2+23, SUMM+3, SUMM+4, SUMM+7, SUMM+8
, SUMM+11, SUMM+12, SUMM+15, SUMM+16, SUMM+17, TOTALS+2, TOTALS+5, TOTALS+6, TOTALS+9, TOTALS+10
, TOTALS+13, TOTALS+14, TOTALS+17, TOTALS+18, TOTALS+21, TOTALS+22, TOTALS+23
DTOUT EXIT+6!
DUOUT EXIT+6!
I EXIT+6!
IO DQ+6
IO("Q" DEV+5, DEV+6!
IOF OPTN, EXIT+7, HDR+1, SUMHD+1, TOTLHD+1
IOM HDR+3, HDR+13, SUMHD+3, SUMHD+8, TOTLHD+3, TOTLHD+7
IOP DEV+2!
IOSL PRINT2+8, PRINT2+11, PRINT2+15, PRINT2+20, SUMM+4, SUMM+8, SUMM+11, SUMM+15, TOTALS+6, TOTALS+10
, TOTALS+14, TOTALS+17, TOTALS+21
IOST EXIT+7, PRINT+5, PRINT2+4, PRINT2+8, PRINT2+11, PRINT2+15, PRINT2+20, PRINT2+23, SUMM+4, SUMM+8
, SUMM+11, SUMM+15, SUMM+17, TOTALS+6, TOTALS+10, TOTALS+14, TOTALS+17, TOTALS+21, TOTALS+23, HDR+1
, SUMHD+1, TOTLHD+1
JJ EXIT+6!
>> POP DEV+3
SS EXIT+6!
U STORE+3, STORE+6, STORE+9, STORE+15
X EXIT+6!, HDR+7*, HDR+13*, SUMHD+8*, TOTLHD+7*
Y EXIT+6!
ZTDESC DEV+7*, EXIT+6!
ZTIO EXIT+6!
>> ZTQUEUED EXIT+7
>> ZTREQ EXIT+7*
ZTRTN DEV+7*, EXIT+6!
ZTSAVE EXIT+5!
ZTSAVE("ACK*" DEV+8*
ZTSK DEV+8!, EXIT+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All