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

Package: Quasar

Routine: ACKQPCX


Information

ACKQPCX ;HCIOFO/AG - PCE Exception Report ; [ 03/27/99 10:02 AM ]

Source Information

Source file <ACKQPCX.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Quasar 5 DTRANGE^ACKQRU  ($$FTIME,$$NUMDT,CNTR,PAUSE)^ACKQUTL  $$DIV^ACKQUTL2  PCEERR^ACKQUTL3  $$FMT^ACKQUTL6  
VA FileMan 4 DD^%DT  (C,NOW)^%DTC  $$GET1^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 1 DEM^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 PCE EXCEPTION REPORT  

Entry Points

Name Comments DBIA/ICR reference
OPTN ;Introduce option.
DATES
DEV ; get device
DQ ; Entry point when queued.
; variables required at this point are:-
; ACKDIV() - selected divisions
; ACKBD - Begining Date Range
; ACKED - End Date Range
; ACKRDR - Date Heading
EXIT ;ALWAYS EXIT HERE
SORT ; add the exception visit to ^TMP in sort order.
PRINT ; print the report for each Division
PRINT2 ; print for a single division
PRINTV ; Print a Visit
HDR ;
DIVNAME(ACKVDIV) ; get division name
V3DATE(ACKBD) ;
T
OK2

External References

Name Field # of Occurrence
DD^%DT PRINTV+20, V3DATE+15
C^%DTC V3DATE+13
NOW^%DTC DQ+7
^%ZIS DEV+3
HOME^%ZIS DEV+9
^%ZISC EXIT+9
^%ZTLOAD DEV+9
DTRANGE^ACKQRU DATES+1
$$FTIME^ACKQUTL DQ+7
$$NUMDT^ACKQUTL DQ+7
CNTR^ACKQUTL HDR+4, HDR+5, HDR+6
PAUSE^ACKQUTL PRINT+2, PRINT2+3, PRINT2+15, PRINTV+8
$$DIV^ACKQUTL2 OPTN+8
PCEERR^ACKQUTL3 PRINTV+3
$$FMT^ACKQUTL6 PRINTV+23
$$GET1^DIQ SORT+3, SORT+7, SORT+8, SORT+9, PRINTV+12, PRINTV+15, PRINTV+29, PRINTV+30, DIVNAME+1
^DIR OK2+2
DEM^VADPT PRINTV+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OPTN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: OPTN+2
Function Call: WRITE
  • Prompt: !?25,"QUASAR - PCE Exception Report",!
  • Line Location: OPTN+3
Function Call: WRITE
  • Prompt: !,"This option produces a report listing all the A&SP Clinic Visits that have been"
  • Line Location: OPTN+4
Function Call: WRITE
  • Prompt: !,"reported as an exception by PCE.",!
  • Line Location: OPTN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+0
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+2
Function Call: WRITE
  • Prompt: !!,"No data found for report specifications.",!!
  • Line Location: PRINT2+2
Function Call: WRITE
  • Prompt: "($Y="
  • Line Location: PRINTV+7
Function Call: WRITE
  • Prompt: $Y,",LN=",LN,")"
  • Line Location: PRINTV+7
Function Call: WRITE
  • Prompt: !,"Clinic: ",$$GET1^DIQ(509850.6,ACKVIEN_",",2.6,"E"),!
  • Line Location: PRINTV+12
Function Call: WRITE
  • Prompt: !,?5,"Visit Date: ",ACKDTEX
  • Line Location: PRINTV+21
Function Call: WRITE
  • Prompt: ?40,"Patient: ",$E(ACKPATNM,1,40)
  • Line Location: PRINTV+22
Function Call: WRITE
  • Prompt: !,?4,"Appnt. Time: ",$$FMT^ACKQUTL6(ACKTM,0)
  • Line Location: PRINTV+23
Function Call: WRITE
  • Prompt: ?40," SSN: ",ACKPATSS
  • Line Location: PRINTV+24
Function Call: WRITE
  • Prompt: !,?10,@ACKVERR@(LN)
  • Line Location: PRINTV+27
Function Call: WRITE
  • Prompt: !,?10,"Last Edit in QSR: ",$$GET1^DIQ(509850.6,ACKVIEN_",",140,"E")
  • Line Location: PRINTV+29
Function Call: WRITE
  • Prompt: !,?10,"Last Sent to PCE: ",$$GET1^DIQ(509850.6,ACKVIEN_",",135,"E")
  • Line Location: PRINTV+30
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: !,X
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!,"Warning - You are running a report using a start date that falls either on or before the installation of version 3.0 of Quasar."
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !!,"Quasar version 3.0 was installed on - ",Y
  • Line Location: T+1
Function Call: WRITE
  • Prompt: !!,"Note that all PCE related functionality was developed within Quasar version 3.0."
  • Line Location: T+2
Function Call: WRITE
  • Prompt: !,"It is recommended that this report be run using start a date that falls after the installation date.",!
  • Line Location: T+3
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: OK2+3
Routine Call
  • DIR
  • Line Location:
    • OK2+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACK(509850.6 - [#509850.6] GET1^DIQ
509850.83 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850.6 - [#509850.6] DQ+11, DQ+12
^DIC(9.4 - [#9.4] V3DATE+3, V3DATE+6, V3DATE+7, V3DATE+9, V3DATE+10
^TMP("ACKQCX" EXIT+7!
^TMP("ACKQPCX" DQ+8!, SORT+12*, PRINT+2, PRINT2+1, PRINT2+7, PRINT2+9, PRINT2+11, PRINT2+13, PRINTV+1!, PRINTV+2

Label References

Name Line Occurrences
$$DIVNAME HDR+6
$$V3DATE DATES+2
DATES DATES+2
EXIT OPTN+8, DATES+1, DEV+4, DEV+6
HDR PRINT+2, PRINT2+2, PRINT2+4, PRINTV+8
OK2 OK2+3
PRINT DQ+15
PRINT2 PRINT+3
PRINTV PRINT2+14
SORT DQ+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+7, V3DATE+1~
%DT EXIT+6!
%H V3DATE+1~
%I EXIT+6!
%T EXIT+6!, V3DATE+1~
%ZIS DEV+3!*, EXIT+6!
%ZIS("B" DEV+3*
ACK2 EXIT+1!
ACKA V3DATE+1~, V3DATE+2*, V3DATE+3*, V3DATE+4, V3DATE+6, V3DATE+7, V3DATE+9, V3DATE+10
ACKASB EXIT+1!
ACKB V3DATE+1~, V3DATE+5*, V3DATE+7*, V3DATE+8, V3DATE+9, V3DATE+10
ACKBD DATES+2!, DQ+11, EXIT+1!, EXIT+5!, V3DATE~, V3DATE+13
ACKC EXIT+1!
ACKCDT DQ+7*, EXIT+1!, HDR+3
ACKCL EXIT+1!
ACKCLI EXIT+1!
ACKCLN EXIT+1!, SORT+9*, SORT+12, PRINT2+6*, PRINT2+7*, PRINT2+9, PRINT2+11, PRINT2+13
ACKCLNC EXIT+1!
ACKCPT EXIT+1!
ACKCT EXIT+4!
ACKD EXIT+2!
ACKDIV OPTN+8*, EXIT+4!
ACKDIV( SORT+4, PRINT+3
ACKDIVX EXIT+4!
ACKDT EXIT+8!, SORT+7*, SORT+12, PRINT2+8*, PRINT2+9*, PRINT2+11, PRINT2+13, PRINTV+20
ACKDTEX EXIT+8!, PRINTV+20*, PRINTV+21
ACKED DATES+2!, DQ+11, EXIT+2!, EXIT+5!
ACKEXDT DQ+11*, DQ+12, EXIT+8!
ACKHDR EXIT+4!
ACKHDR2 EXIT+2!
ACKHDR5 EXIT+4!
ACKI EXIT+2!
ACKICD9 EXIT+5!
ACKICDN EXIT+5!
ACKLINE EXIT+2!
ACKLR EXIT+2!
ACKOK EXIT+4!
ACKOOP EXIT+2!
ACKP EXIT+2!
ACKPAT EXIT+8!, PRINTV+15*
ACKPATNM EXIT+8!, PRINTV+17*, PRINTV+22
ACKPATSS EXIT+8!, PRINTV+17*, PRINTV+24
ACKPC EXIT+2!
ACKPCP EXIT+3!
ACKPG DQ+7*, EXIT+3!, HDR+1, HDR+2*, HDR+3
ACKRDR DATES+3*, EXIT+3!, EXIT+5!, HDR+6
ACKSORT EXIT+2!, EXIT+5!
ACKSS EXIT+3!
ACKSTAFF EXIT+3!
ACKSTF EXIT+3!
ACKT EXIT+3!
ACKT2 EXIT+4!
ACKTM EXIT+8!, SORT+8*, SORT+12, PRINT2+10*, PRINT2+11*, PRINT2+13, PRINTV+23
ACKTMP EXIT+5!
ACKTXT EXIT+5!
ACKV EXIT+3!
ACKVDIV EXIT+4!, SORT+3*, SORT+4, SORT+12, PRINT+1*, PRINT+3*, PRINT2+1, PRINT2+7, PRINT2+9, PRINT2+11
, PRINT2+13, HDR+6, DIVNAME~, DIVNAME+1
ACKVERR EXIT+8!, PRINTV+2*, PRINTV+3, PRINTV+6, PRINTV+27, PRINTV+28
ACKVIEN DQ+12*, EXIT+8!, SORT+3, SORT+7, SORT+8, SORT+9, SORT+12, PRINT2+12*, PRINT2+13*, PRINTV+3
, PRINTV+12, PRINTV+15, PRINTV+29, PRINTV+30
ACKVSC EXIT+3!
ACKXBD DATES+2!, DATES+3, EXIT+3!, EXIT+7!
ACKXED DATES+2!, DATES+3, EXIT+4!, EXIT+7!
>> DFN PRINTV+15*
DIR T+5~
DIR("?" OK2+1*
DIR("A" OK2*
DIR("B" OK2*
DIR(0 OK2*
DIRUT DATES+1, EXIT+6!, PRINT+3, PRINT2+3, PRINT2+7, PRINT2+9, PRINT2+11, PRINT2+13, PRINT2+15, PRINTV+8
, T+5~, OK2+4
DTOUT EXIT+6!, T+5~, OK2+5
DUOUT EXIT+6!, T+5~
I EXIT+6!
IO DQ+6
IO("Q" DEV+6, DEV+7!
IOF OPTN+1, EXIT+9, HDR+1
IOM PRINTV+3, HDR+3, HDR+7
IOP DEV+3!
IOSL PRINTV+8
IOST EXIT+9, PRINT+2, PRINT2+3, PRINT2+15, PRINTV+8, HDR+1
JJ EXIT+6!
>> LN PRINTV+6*, PRINTV+8, PRINTV+27*
NEWCLN EXIT+7!, PRINT2+8*, PRINTV+6, PRINTV+12*
>> NEWLN PRINTV+10*, HDR+8*
>> POP DEV+4
SS EXIT+6!
U PRINTV+17
VADM EXIT+7!
VADM(1 PRINTV+17
VADM(2 PRINTV+17
X EXIT+6!, HDR+7*, V3DATE+1~, V3DATE+13*, V3DATE+14
X1 V3DATE+1~, V3DATE+13*
X2 V3DATE+1~, V3DATE+13*
Y EXIT+6!, PRINTV+8*, PRINTV+20*, V3DATE+1~, V3DATE+10*, V3DATE+11, V3DATE+12*, V3DATE+14, T+1, OK2+3
, OK2+4*, OK2+5*, OK2+6
ZTDESC DEV+8*, EXIT+6!
ZTIO EXIT+6!
>> ZTQUEUED EXIT+9
>> ZTREQ EXIT+9*
ZTRTN DEV+8*, EXIT+6!
ZTSAVE EXIT+7!
ZTSAVE("ACK*" DEV+9*
ZTSK DEV+9!, EXIT+7!
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