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

Package: Quasar

Routine: ACKQR2


Information

ACKQR2 ;AUG/JLTP BIR/PTD HCIOFO/AG -Statistics by Procedure ; [ 12/07/95 9:52 AM ]

Source Information

Source file <ACKQR2.m>

Entry Points

Name Comments DBIA/ICR reference
OPTN
DEV
DQ ; Queued entry
; Vars required :-
; ACKDIV() - selected divs, ACKBD,ACKXBD - beginning date range (int,ext)
; ACKED,ACKXED - end date range (int, ext)
; ACKASB - A=audio,S=speech,O=other,ASO=all three
; ACKSS - type of report (1=one clinician etc), ACKSTF(x) - selected prvds
EXIT ; 1 way out
STORE ;
GETCPT(ACKCPTN) ; Get Proc code data & put in ^TMP
CPTDESC(ACKCPT) ; Get Proc desc
PRINT ; print report 4 each div
PRINT2 ; print for single div
SUMM ;
TOTALS ; Print final page of tots 4 all divs
HDR ;
SUMHD ;
TOTLHD
DIVNAME(ACKVDIV) ; Get div name
STAFFNM(ACKSTF) ; Get staff name

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 CPT-4 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,ACKCPT,?15,$$CPTDESC(ACKCPT),?55,"COUNT: "
  • Line Location: TOTALS+15
Function Call: WRITE
  • Prompt: $J(^TMP("ACKQR2",$J,2,ACKSORT,ACKCPT),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+2
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTLHD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTLHD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTLHD+5
Function Call: WRITE
  • Prompt: !,X
  • Line Location: TOTLHD+6

FileMan Files Accessed Via FileMan Db Call

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