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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call