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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: QACSRPT

Package: Patient Representative

Routine: QACSRPT


Information

QACSRPT ;HISC/CEW - Report of Service Contacts ;7/17/95 12:24

Source Information

Source file <QACSRPT.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 DD^%DT  ^DIR  
Patient Representative 1 ($$EN4,$$EN5,$$EN6)^QACUTIL  
Quality Assurance Integration 1 (,K)^QAQDATE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Representative 1 QAC OLD SERV ISSUE TOT  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;
PAUSE ;
SERTSK ;
PRINT ;
SET ;Counts the records.
EXIT ;
DATE ;

External References

Name Field # of Occurrence
DD^%DT HEAD+2
^%ZIS DATE+3
^%ZISC EXIT+1
^%ZTLOAD DATE+8
^DIR PAUSE+1
$$EN4^QACUTIL SERTSK+10
$$EN5^QACUTIL PRINT+16
$$EN6^QACUTIL PRINT+11
^QAQDATE DATE+2
K^QAQDATE EXIT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Select the date range you want to print."
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !,?5,"*** Beginning date must be today or earlier! ***",*7
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !,"Task Number: ",ZTSK
  • Line Location: DATE+9
Function Call: WRITE
  • Prompt: !!,"No data found for the date range selected!"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!?15,"Total Issues for ",QACSERV," = ",QACSTOT
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!?5,QACHDNM,?75,QACHDTOT
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,QACCNM,?75,QACCTOT
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !,"Issue Report for ",QACSERV
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: ?60,"Date: ",Y,!
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: QAQ2HED,?60,"Page: ",QACPG
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,QACUNDL,!
  • Line Location: HEAD+4
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1
Routine Call
  • %ZIS
  • Line Location:
    • DATE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(745.1 - [#745.1] SERTSK+5, SERTSK+6, SERTSK+7, SERTSK+8, SERTSK+9, SERTSK+11
^QA(745.2 - [#745.2] SERTSK+12, SERTSK+15
^TMP("J" EXIT+5!
^TMP($J SERTSK+1!, SERTSK+2*, PRINT+3, PRINT+5, PRINT+6, PRINT+9, PRINT+12, PRINT+14, PRINT+17, EXIT+5!
, SET+1*, SET+2*, SET+3*

Label References

Name Line Occurrences
DATE DATE+2
EXIT DATE+2, DATE+3, DATE+4
HEAD PRINT+3, PRINT+7, PRINT+19
PAUSE PRINT+19, PRINT+22
SET SERTSK+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EXIT+3!
%ZIS DATE+3!*, EXIT+2!
DIR EXIT+4!, PAUSE+1!
DIR(0 PAUSE+1*
DIROUT EXIT+6!
DIRUT EXIT+6!
DT DATE+2, HEAD+2
IO SERTSK+3
IO("Q" DATE+4
IOF HEAD+1
IOP DATE+3!, EXIT+2!
IOSL PRINT+19
IOST PRINT+19, HEAD+1, PAUSE+1
POP DATE+3, EXIT+4!
QACCIEN SERTSK+4!, SERTSK+11*, SERTSK+12, PRINT+4!, PRINT+15*, PRINT+16, EXIT+2!, SET+3
QACCN SERTSK+4!, SERTSK+7*, SERTSK+8, SERTSK+9, SERTSK+11, EXIT+2!
QACCNM PRINT+16*, PRINT+18, EXIT+4!
QACCTOT PRINT+4!, PRINT+17*, PRINT+18, EXIT+6!
QACD0 SERTSK+4!, SERTSK+6*, SERTSK+7, SERTSK+8, SERTSK+9, SERTSK+11, EXIT+2!
QACDIS EXIT+4!
QACDT SERTSK+4!, SERTSK+5*, SERTSK+6, EXIT+2!
QACHD SERTSK+13*, SERTSK+14*, SERTSK+15, PRINT+4!, PRINT+9*, PRINT+10, PRINT+12, PRINT+14, PRINT+17, EXIT+6!
, SET+2, SET+3
QACHDIEN SERTSK+4!, SERTSK+15*, PRINT+4!, PRINT+10*, PRINT+11, EXIT+3!, SET+2, SET+3
QACHDNM SERTSK+4!, PRINT+11*, PRINT+13, EXIT+3!
QACHDREC EXIT+4!
QACHDTOT PRINT+4!, PRINT+12*, PRINT+13, EXIT+4!
QACHEAD EXIT+3!
QACICODE SERTSK+12*, SERTSK+13, SERTSK+14, PRINT+4!, PRINT+14*, PRINT+15, PRINT+17, EXIT+2!, SET+3
QACINAME EXIT+3!
QACINM SERTSK+4!
QACPG PRINT+2*, EXIT+3!, HEAD+1, HEAD+3, HEAD+4*
QACQUIT PRINT+2*, PRINT+5, PRINT+9, PRINT+12, PRINT+14, PRINT+17, PRINT+19, EXIT+3!, PAUSE+1*
QACREC EXIT+4!
QACSERV SERTSK+10*, PRINT+3*, PRINT+4!, PRINT+5*, PRINT+6, PRINT+8, PRINT+9, PRINT+12, PRINT+14, PRINT+17
, EXIT+3!, HEAD+2, SET+1, SET+2, SET+3
QACSIEN SERTSK+4!, SERTSK+9*, SERTSK+10, EXIT+3!
QACSN SERTSK+8*, SERTSK+9, EXIT+4!
QACSTOT PRINT+4!, PRINT+6*, PRINT+8, EXIT+6!
QACTOT EXIT+4!
QACUNDL PRINT+2!*, EXIT+4!, HEAD+4
>> QAQ2HED HEAD+3
>> QAQNBEG DATE+2, SERTSK+5
>> QAQNEND SERTSK+5
>> QAQQUIT DATE+2
U SERTSK+9, SERTSK+11, SERTSK+12, PRINT+6, PRINT+12, PRINT+17
Y EXIT+3!, HEAD+2*, PAUSE+1
ZTDESC DATE+6*, EXIT+2!
>> ZTQUEUED EXIT+1
>> ZTREQ EXIT+1*
ZTRTN DATE+7*, EXIT+2!
ZTSAVE EXIT+2!
ZTSAVE("QAQ2HED" DATE+5*
ZTSAVE("QAQNBEG" DATE+5*
ZTSAVE("QAQNEND" DATE+5*
ZTSK DATE+9, EXIT+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All