Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Quasar 3 ($$STOPNM,$$STOPSORT,DTRANGE)^ACKQRU  ($$FTIME,$$NUMDT,CNTR,PAUSE)^ACKQUTL  $$DIV^ACKQUTL2  
VA FileMan 2 NOW^%DTC  $$GET1^DIQ  
Registration 1 ADD^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Quasar 1 ACKQAS PAT BY CITY  

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

External References

Name Field # of Occurrence
NOW^%DTC DQ+8
^%ZIS DEV+2
HOME^%ZIS DEV+8
^%ZISC EXIT+7
^%ZTLOAD DEV+8
$$STOPNM^ACKQRU PRINT2+12, SCTOTS+9, TOTALS+10, TOTALS+26
$$STOPSORT^ACKQRU STORE+9
DTRANGE^ACKQRU OPTN+7
$$FTIME^ACKQUTL DQ+8
$$NUMDT^ACKQUTL DQ+8
CNTR^ACKQUTL HDR+4, HDR+5, HDR+6, HDR+7, TOTLHD+3, TOTLHD+4, TOTLHD+5, TOTLHD+6
PAUSE^ACKQUTL PRINT2+3, PRINT2+7, PRINT2+11, PRINT2+18, SCTOTS+3, SCTOTS+14, TOTALS+5, TOTALS+9, TOTALS+15, TOTALS+20
, TOTALS+31
$$DIV^ACKQUTL2 OPTN+5
$$GET1^DIQ DIVNAME+1, CLINICNM+1, STATEABR+1
ADD^VADPT STORE+12

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
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+8

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850.6 - [#509850.6] DQ+11, DQ+12, STORE+1, STORE+2
^TMP("ACKQR1" DQ+9!, EXIT+6!, STORE+22, STORE+23, STORE+24*, STORE+25*, STORE+28, STORE+29, STORE+30*, STORE+31*
, STORE+34, STORE+35, STORE+36*, STORE+37*, STORE+40, STORE+41, STORE+42*, STORE+43*, PRINT2+1, PRINT2+6
, PRINT2+10, PRINT2+14, PRINT2+16, PRINT2+17, SCTOTS+1, SCTOTS+8, SCTOTS+10, TOTALS+1, TOTALS+8, TOTALS+12
, TOTALS+14, TOTALS+16, TOTALS+18, TOTALS+25, TOTALS+27

Label References

Name Line Occurrences
$$CLINICNM PRINT2+8
$$DIVNAME TOTALS+6, HDR+7
$$STATEABR STORE+14
EXIT OPTN+5, OPTN+7, DEV+3, DEV+5
HDR PRINT2+2, PRINT2+4, PRINT2+7, PRINT2+11, PRINT2+18, SCTOTS+3, TOTALS+20
PRINT DQ+13
PRINT2 PRINT+2
STORE DQ+12
TOTALS PRINT+3
TOTLHD TOTALS+3, TOTALS+5, TOTALS+9, TOTALS+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DQ+8
%DT EXIT+1!
%T EXIT+1!
%ZIS DEV+2!*, EXIT+1!
%ZIS("B" DEV+2*
ACK2 EXIT+3!, STORE+1*, STORE+7
ACKBD DQ+11, EXIT+1!
ACKCL EXIT+1!, STORE+17*, STORE+22, STORE+23, STORE+24, STORE+25, PRINT2+5*, PRINT2+6*, PRINT2+8, PRINT2+10
, PRINT2+14, PRINT2+16, PRINT2+17, CLINICNM~, CLINICNM+1
ACKCSC EXIT+1!
ACKCT EXIT+4!, STORE+23*, STORE+24, STORE+29*, STORE+30, STORE+35*, STORE+36, STORE+41*, STORE+42, TOTALS+16*
, TOTALS+17
ACKCTY EXIT+1!, STORE+13*, STORE+15, STORE+22, STORE+23, STORE+24, STORE+25, STORE+34, STORE+35, STORE+36
, STORE+37, PRINT2+15*, PRINT2+16*, PRINT2+17, PRINT2+19, TOTALS+13*, TOTALS+14*, TOTALS+16, TOTALS+17
ACKD DQ+11*, DQ+12, EXIT+1!
ACKDIV OPTN+5*, EXIT+3!
ACKDIV( STORE+5, PRINT+2, TOTALS+4
ACKDIV("" TOTALS+2
ACKED DQ+11, EXIT+1!
ACKHDR EXIT+3!, STORE+1*, STORE+11, STORE+17
ACKHDR5 EXIT+3!, STORE+2*, STORE+4
ACKI EXIT+1!
ACKLINE DQ+7*, EXIT+2!, SCTOTS+5, TOTALS+22, HDR+8, TOTLHD+7
ACKNEW EXIT+4!, SCTOTS+2*, SCTOTS+3*, SCTOTS+5, TOTALS+19*, TOTALS+20*, TOTALS+22
ACKPG EXIT+2!, PRINT+1*, HDR+1, HDR+2*, HDR+3, TOTLHD+1*, TOTLHD+2
ACKRDR OPTN+8*, EXIT+2!, HDR+6, TOTLHD+5
ACKSORT EXIT+4!, STORE+9*, STORE+22, STORE+23, STORE+24, STORE+25, STORE+28, STORE+29, STORE+30, STORE+31
, STORE+34, STORE+35, STORE+36, STORE+37, STORE+40, STORE+41, STORE+42, STORE+43, PRINT2+9*, PRINT2+10*
, PRINT2+12, PRINT2+14, PRINT2+16, PRINT2+17, SCTOTS+7*, SCTOTS+8*, SCTOTS+9, SCTOTS+10, TOTALS+7*, TOTALS+8*
, TOTALS+10, TOTALS+12, TOTALS+14, TOTALS+16, TOTALS+24*, TOTALS+25*, TOTALS+26, TOTALS+27
ACKST EXIT+2!, STORE+14*, STORE+15, STORE+22, STORE+23, STORE+24, STORE+25, STORE+34, STORE+35, STORE+36
, STORE+37, PRINT2+13*, PRINT2+14*, PRINT2+16, PRINT2+17, PRINT2+19, TOTALS+11*, TOTALS+12*, TOTALS+14, TOTALS+16
, TOTALS+17, STATEABR~, STATEABR+1
ACKTOT EXIT+2!, SCTOTS+10*, SCTOTS+11, TOTALS+27*, TOTALS+28
ACKTXT EXIT+4!, TOTALS+3*, TOTALS+6*
ACKUNIQ EXIT+2!, PRINT2+17*, PRINT2+19
ACKV DQ+12*, EXIT+2!, STORE+1, STORE+2
ACKVDIV EXIT+3!, STORE+4*, STORE+5, STORE+22, STORE+23, STORE+24, STORE+25, STORE+28, STORE+29, STORE+30
, STORE+31, PRINT+1*, PRINT+2*, PRINT2+1, PRINT2+6, PRINT2+10, PRINT2+14, PRINT2+16, PRINT2+17, SCTOTS+8
, SCTOTS+10, TOTALS+4*, TOTALS+6, HDR+7, DIVNAME~, DIVNAME+1
ACKVSC EXIT+3!, STORE+7*, STORE+9
ACKX EXIT+2!
ACKXBD OPTN+8, EXIT+2!
ACKXDT DQ+8*, EXIT+3!, HDR+3, TOTLHD+2
ACKXED OPTN+8, EXIT+3!
DFN EXIT+3!, STORE+11*, STORE+22, STORE+25, STORE+28, STORE+31, STORE+34, STORE+37, STORE+40, STORE+43
DIRUT OPTN+7, EXIT+5!, PRINT+2, PRINT+3, PRINT2+3, PRINT2+6, PRINT2+7, PRINT2+10, PRINT2+11, PRINT2+14
, PRINT2+16, PRINT2+18, SCTOTS+3, SCTOTS+13, SCTOTS+14, TOTALS+4, TOTALS+5, TOTALS+8, TOTALS+9, TOTALS+12
, TOTALS+14, TOTALS+15, TOTALS+20, TOTALS+30, TOTALS+31
DTOUT EXIT+5!
DUOUT EXIT+5!
IO DQ+6
IO("Q" DEV+5, DEV+6!
IOF OPTN+1, EXIT+7, HDR+1, TOTLHD+2
IOM DQ+7, HDR+3, TOTLHD+2
IOP DEV+2!
IOSL PRINT2+7, PRINT2+11, PRINT2+18, SCTOTS+3, TOTALS+5, TOTALS+9, TOTALS+15, TOTALS+20
IOST EXIT+7, PRINT2+3, PRINT2+7, PRINT2+11, PRINT2+18, SCTOTS+3, SCTOTS+14, TOTALS+5, TOTALS+9, TOTALS+15
, TOTALS+20, TOTALS+31, HDR+1
>> POP DEV+3
U STORE+4, STORE+7, STORE+11, STORE+17
VA EXIT+5!
VAERR EXIT+5!
VAPA EXIT+5!
VAPA(4 STORE+13
VAPA(5 STORE+14
X EXIT+5!
Y EXIT+5!
ZTDESC DEV+7*, EXIT+5!
ZTIO EXIT+5!
>> ZTQUEUED EXIT+7
>> ZTREQ EXIT+7*
ZTRTN DEV+7*, EXIT+5!
ZTSAVE EXIT+5!
ZTSAVE("ACK*" DEV+8*
ZTSK DEV+8!, EXIT+6!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All