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

Package: Quasar

Routine: ACKQR4


Information

ACKQR4 ;AUG/JLTP BIR/PTD-Procedure Cost Statistics ; [ 12/07/95 9:52 AM ]

Source Information

Source file <ACKQR4.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Quasar 4 DTRANGE^ACKQRU  ($$FTIME,$$NUMDT,CNTR,PAUSE)^ACKQUTL  $$DIV^ACKQUTL2  $$PROCTXT^ACKQUTL8  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 NOW^%DTC  $$GET1^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 PRINT COST COMPARE  

Entry Points

Name Comments DBIA/ICR reference
OPTN ; Introduce option.
DEV
DQ ; Entry point when queued.
SORT ;
PRINT ;
PRINT2 ; print for a single division
DHD(ACKDHD) ;
EXIT ;
DIVNAME(ACKVDIV) ; get division name
TOTALS ; Display Totals

External References

Name Field # of Occurrence
NOW^%DTC SORT+3
^%ZIS DEV+1
HOME^%ZIS DEV+2
^%ZISC EXIT+3
^%ZTLOAD DEV+2
DTRANGE^ACKQRU OPTN+7
$$FTIME^ACKQUTL SORT+4
$$NUMDT^ACKQUTL SORT+4
CNTR^ACKQUTL DHD+4, DHD+5, TOTALS+2, TOTALS+3
PAUSE^ACKQUTL PRINT+4, PRINT2+4, PRINT2+9, PRINT2+13, PRINT2+20, PRINT2+22
$$DIV^ACKQUTL2 OPTN+4
$$PROCTXT^ACKQUTL8 SORT+13
$$GET1^DIQ DIVNAME+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"This option produces a report of all CPT-4 codes used within a selected date",!,"range and their associated costs.",!
  • Line Location: OPTN+1
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80.",!,"You can queue it to run at a later time.",!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"No data found for report specifications."
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,"No data found for report specifications.",!!
  • Line Location: PRINT2+3
Function Call: WRITE
  • Prompt: !!,"Grand Total: ",?60,$J("$"_$J(ACKT,0,2),10)
  • Line Location: PRINT2+21
Function Call: WRITE
  • Prompt: "Printed: ",ACKXDT,?(IOM-8),"Page: ",ACKPG,!
  • Line Location: DHD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DHD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DHD+5
Function Call: WRITE
  • Prompt: !!,"QUAN",?6,"CODE",?15,"DESCRIPTION",?54,"COST",?65,"TOTAL"
  • Line Location: DHD+6
Function Call: WRITE
  • Prompt: !,X
  • Line Location: DHD+7
Function Call: WRITE
  • Prompt: @IOF,"Printed: ",ACKXDT,?(IOM-8),"Page: ",ACKPG,!
  • Line Location: TOTALS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTALS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTALS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTALS+3
Function Call: WRITE
  • Prompt: !,X,!!
  • Line Location: TOTALS+4
Function Call: WRITE
  • Prompt: !,?8,"Total for Division: "_$$DIVNAME(ACKDIV),?57,$J("$"_$J(ACKDCNT(ACKDIV),0,2),10)
  • Line Location: TOTALS+8
Function Call: WRITE
  • Prompt: !!,?8,"Grand Total for all Divisions ",?57,$J("$"_$J(ACKDCNT,0,2),10)
  • Line Location: TOTALS+9
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850.4 - [#509850.4] SORT+14
^ACK(509850.6 - [#509850.6] SORT+5, SORT+6, SORT+9, SORT+11, SORT+12
^ICPT - [#81] SORT+13
^TMP("ACKQR4" SORT+2!, SORT+18, SORT+19*, PRINT+1, PRINT2+1, PRINT2+8, PRINT2+12, PRINT2+14, EXIT+1!

Label References

Name Line Occurrences
$$DIVNAME DHD+5, TOTALS+8
DHD PRINT+2, PRINT2+2, PRINT2+5, PRINT2+9, PRINT2+13, PRINT2+20
EXIT OPTN+4, OPTN+7, DEV+1, DEV+2, DQ+2
PRINT DQ+2
PRINT2 PRINT+7
SORT DQ+2
TOTALS PRINT+8

Naked Globals

Name Field # of Occurrence
^( SORT+18*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SORT+4
%ZIS DEV+1!*
%ZIS("B" DEV+1*
ACKBD SORT+5, EXIT+1!
ACKCSC SORT+9*, SORT+10, SORT+19, PRINT2+7*, PRINT2+8*, PRINT2+10, PRINT2+11, PRINT2+12, PRINT2+14, PRINT2+15
, PRINT2+18, EXIT+1!
ACKCSX PRINT2+10*, PRINT2+11, PRINT2+18, EXIT+1!
ACKD SORT+5*, PRINT2+12*, PRINT2+14, PRINT2+16, PRINT2+17, EXIT+1!
ACKDCNT PRINT+6!*, PRINT+8, PRINT2+23*, TOTALS+9
ACKDCNT( PRINT2+24*, TOTALS+7, TOTALS+8
ACKDHD DHD~, DHD+5
ACKDIV OPTN+4*, PRINT+6*, PRINT+7*, PRINT2+1, PRINT2+8, PRINT2+12, PRINT2+14, PRINT2+24, DHD+5, EXIT+2!
, DIVNAME+1, TOTALS+6*, TOTALS+7*, TOTALS+8
ACKDIV( SORT+8, PRINT+7
ACKED SORT+5, EXIT+1!
ACKHDR5 SORT+6*, SORT+8, EXIT+2!
ACKM SORT+17*, SORT+18, SORT+19, PRINT2+12*, PRINT2+14, PRINT2+16, EXIT+1!
ACKMP EXIT+1!
ACKP SORT+11*, SORT+12, EXIT+1!
ACKPC SORT+14*, SORT+18, PRINT2+12*, PRINT2+14, EXIT+1!
ACKPD SORT+12*, SORT+16, EXIT+1!
ACKPDSC SORT+13*, SORT+18, EXIT+1!
ACKPG SORT+2*, DHD+1, DHD+2*, DHD+3, EXIT+1!, TOTALS+1*
ACKPN SORT+13*, SORT+18, EXIT+1!
ACKPP SORT+12*, SORT+13, SORT+14, SORT+18, SORT+19, EXIT+1!
ACKQQ PRINT2+14*, PRINT2+16, EXIT+1!
ACKT PRINT2+7*, PRINT2+15*, PRINT2+21, PRINT2+23, PRINT2+24, EXIT+1!
ACKT( PRINT2+11*, PRINT2+15*, PRINT2+18
ACKTC PRINT2+14*, PRINT2+15, PRINT2+17, EXIT+1!
ACKTME SORT+1~, SORT+4*, SORT+13
ACKV SORT+5*, SORT+6, SORT+9, SORT+11, SORT+12, EXIT+1!
ACKVDIV SORT+8*, SORT+18, SORT+19, SORT+20!, DIVNAME~
ACKVOL SORT+16*, SORT+19, EXIT+2!
ACKXBD DHD+4, EXIT+1!, TOTALS+2
ACKXDT SORT+4*, DHD+3, EXIT+1!, TOTALS+1
ACKXED DHD+4, EXIT+1!, TOTALS+2
>> DIRUT OPTN+7, PRINT+4, PRINT+7, PRINT+8, PRINT2+4, PRINT2+8, PRINT2+9, PRINT2+12, PRINT2+13, PRINT2+19
, PRINT2+20, PRINT2+22
IO DQ+1
IO("Q" DEV+2!
IOF OPTN+1, DHD+1, EXIT+3, TOTALS+1
IOM DHD+3, DHD+7, TOTALS+1, TOTALS+4
IOP DEV+1!
IOSL PRINT2+9, PRINT2+13, PRINT2+20
IOST PRINT+4, PRINT2+4, PRINT2+9, PRINT2+13, PRINT2+20, PRINT2+22, DHD+1, EXIT+3
>> POP DEV+1
U SORT+8, SORT+9, SORT+13, SORT+14, SORT+16, SORT+18, PRINT2+14, PRINT2+16, PRINT2+17
X DHD+4*, DHD+7*, EXIT+1!, TOTALS+2*, TOTALS+4*
Y EXIT+1!
>> ZTDESC DEV+2*
>> ZTQUEUED EXIT+3
>> ZTREQ EXIT+3*
>> ZTRTN DEV+2*
>> ZTSAVE("ACK*" DEV+2*
ZTSK DEV+2!, EXIT+1!
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 |  Naked Globals |  Local Variables  | All