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

Package: Quasar

Routine: ACKQR1


Information

ACKQR1 ;AUG/JLTP,AEM BIR/PTD HCIOFO/AG -Patients by City [ 12/07/95 9:52 AM ]

Source Information

Source file <ACKQR1.m>

Entry Points

Name Comments DBIA/ICR reference
OPTN ;Introduce option.
DEV
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)
EXIT ;ALWAYS EXIT HERE
STORE ;
PRINT ;
PRINT2 ; print data for a single division
SCTOTS ;
TOTALS ; print the final page of totals across all divisions
HDR ;
TOTLHD ; print header for totals page
DIVNAME(ACKVDIV) ; determine division name
CLINICNM(ACKCL) ; determine clinic name
STATEABR(ACKST) ; get State abbreviation

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"This option generates a patient count report for a selected date range."
  • Line Location: OPTN+1
Function Call: WRITE
  • Prompt: !,"The report shows the number of patients seen, sorted by city of residence.",!
  • Line Location: OPTN+2
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: PRINT2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SCTOTS+4
Function Call: WRITE
  • Prompt: !,ACKLINE
  • Line Location: SCTOTS+5
Function Call: WRITE
  • Prompt: !,"STOP CODE TOTALS:",!
  • Line Location: SCTOTS+6
Function Call: WRITE
  • Prompt: !,$$STOPNM^ACKQRU(ACKSORT)
  • Line Location: SCTOTS+9
Function Call: WRITE
  • Prompt: ?35,$J(ACKTOT,5)," patient"_$S(ACKTOT=1:"",1:"s")
  • Line Location: SCTOTS+11
Function Call: WRITE
  • Prompt: !,ACKTXT,?12,$$DIVNAME(ACKVDIV)
  • Line Location: TOTALS+6
Function Call: WRITE
  • Prompt: !!,"STOP CODE:",$$STOPNM^ACKQRU(ACKSORT)
  • Line Location: TOTALS+10
Function Call: WRITE
  • Prompt: !?5,ACKCTY,", ",ACKST,":",?35,$J(ACKCT,5)," patient",$S(ACKCT=1:"",1:"s")
  • Line Location: TOTALS+17
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTALS+21
Function Call: WRITE
  • Prompt: !,ACKLINE
  • Line Location: TOTALS+22
Function Call: WRITE
  • Prompt: !,"STOP CODE TOTALS:",!
  • Line Location: TOTALS+23
Function Call: WRITE
  • Prompt: !,$$STOPNM^ACKQRU(ACKSORT),":"
  • Line Location: TOTALS+26
Function Call: WRITE
  • Prompt: ?35,$J(ACKTOT,5)," patient"_$S(ACKTOT=1:"",1:"s")
  • Line Location: TOTALS+28
Function Call: WRITE
  • Prompt: "Printed: ",ACKXDT,?(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: !,ACKLINE
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: @IOF,"Printed: ",ACKXDT,?(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: !
  • Line Location: TOTLHD+6
Function Call: WRITE
  • Prompt: !,ACKLINE
  • 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
^DIC(5 - [#5] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call