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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call