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

Package: Quasar

Routine: ACKQR3


Information

ACKQR3 ;AUG/JLTP BIR/PTD HCIOFO/AG - Visits by Diagnosis ;18 Jun 2013 10:20 AM

Source Information

Source file <ACKQR3.m>

Entry Points

Name Comments DBIA/ICR reference
OPTN ;Introduce option.
DEV ; get device
DQ ;Entry point when queued.
; variables required at this point are:-
; ACKDIV() - selected divisions
; ACKBD,ACKXBD - beginning of date range (internal,external)
; ACKED,ACKXED - end of date range (internal,external)
; ACKASB - A=audio,S=speech,B=both
; ACKSS - type of report (1=one clinicians etc)
; ACKSTF() - selected clinicians
EXIT ;ALWAYS EXIT HERE
STORE ;
GETDIAG(ACKICDN) ; get Diagnosis data and place in ^TMP
ICDDESC(ACKICD9,ACKICD) ; get the description of an ICD9 from the ^TMP file
PRINT ; print the report for each Division
PRINT2 ; print for a single division
SUMM ;
TOTALS ; print the final page of totals for all divisions
HDR ;
SUMHD ;
TOTLHD ;
DIVNAME(ACKVDIV) ; get division name
STAFFNM(ACKSTF) ; get staff name
DATE(EDTE)
PRTDTSPN ;Print desginated code sorted by ICD9 or ICD10
ICD9PRT ;Print ICD9 codes
ICD10PRT ;Print ICD10 codes
BRKDESC(ACKWIDTH) ; If ICD Description too long break it into multiple lines

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+1
Function Call: WRITE
  • Prompt: !,"sorted by ICD diagnostic codes.",!
  • Line Location: OPTN+2
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"You can queue it to run at a later time.",!
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED."
  • Line Location: DEV+4
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+2
Function Call: WRITE
  • Prompt: !?9,ACKICDDS(ACKARNM2)
  • Line Location: SUMM+15
Function Call: WRITE
  • Prompt: ?76,$J(ACKT(ACKVDIV,ACKSORT,ACKICD),4)
  • Line Location: SUMM+25
Function Call: WRITE
  • Prompt: !!,"Total For Division: "_$$DIVNAME(ACKVDIV),?76,$J(ACKT(ACKVDIV),4)
  • Line Location: SUMM+27
Function Call: WRITE
  • Prompt: !,ACKTXT,?12,$$DIVNAME(ACKVDIV)
  • Line Location: TOTALS+6
Function Call: WRITE
  • Prompt: !?9,ACKICDDS(ACKARNM2)
  • Line Location: TOTALS+20
Function Call: WRITE
  • Prompt: !!,"Grand Total:",?76,$J(ACKT2,4)
  • Line Location: TOTALS+27
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
Function Call: WRITE
  • Prompt: !,"ICD-9 DIAGNOSIS"
  • Line Location: PRTDTSPN+2
Function Call: WRITE
  • Prompt: !?9,ACKICDDS(ACKARNM2)
  • Line Location: PRTDTSPN+13
Function Call: WRITE
  • Prompt: !,"ICD-10 DIAGNOSIS"
  • Line Location: PRTDTSPN+15
Function Call: WRITE
  • Prompt: !?9,ACKICDDS(ACKARNM2)
  • Line Location: PRTDTSPN+26
Function Call: WRITE
  • Prompt: !?9,ACKICDDS(ACKARNM2)
  • Line Location: ICD9PRT+8
Function Call: WRITE
  • Prompt: !?9,ACKICDDS(ACKARNM2)
  • Line Location: ICD10PRT+9

FileMan Files Accessed Via FileMan Db Call

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