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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: QACUTL0

Package: Patient Representative

Routine: QACUTL0


Information

QACUTL0 ;WCIOFO/ERC/VAD - Utility for Patient Rep reports ;29 Dec 98

Source Information

Source file <QACUTL0.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIC  EN^DIQ1  ^DIR  
Kernel 1 ^%ZTLOAD  
Quality Assurance Integration 1 ^QAQDATE  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Patient Representative 20 QACARCH  QACBYLOC  QACCSSTD  QACDAILY  QACDISC  QACDISPC  QACDISPS  QACEDIT  
QACEMPC  QACEMPE  QACGEN  QACMAIL0  QACNOPTS  QACOPEN  QACRESP  QACSPRD  
QACSPRD1  QACSPRD2  QACSPRD3  QACSRV  

Entry Points

Name Comments DBIA/ICR reference
DATDIV ;
DATE ;select date range for Patient Rep
DIV ;select Patient Rep division
TASK ;set variables for call to ^%ZTLOAD
INST(QACIEN,QACDV) ;uses FileMan for name of a division from the Institution file (#4)
SITE(QACIEN,QACSIT) ;uses FM for node 99 of Inst file (#4)

External References

Name Field # of Occurrence
^%ZTLOAD TASK+5
^DIC DIV+19, INST+6
EN^DIQ1 SITE+7
^DIR DIV+9
^QAQDATE DATE+3
$$SITE^VASITE DIV+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Select the date range you want to print."
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !,"*** Beginning date must be today or earlier! ***",$C(7)
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !,"Task Number: ",ZTSK
  • Line Location: TASK+6
Routine Call
  • DIC
  • Line Location:
    • DIV+19
    • INST+6
Routine Call
  • DIR
  • Line Location:
    • DIV+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls

Label References

Name Line Occurrences
DATE DATDIV+1, DATE+4
DIV DATDIV+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA SITE+1~, SITE+4*
DIC DIV+11~, DIV+12*, DIV+19!, INST+1~, INST+3*, INST+6!, SITE+1~, SITE+3*
DIC("A" DIV+14*
DIC("B" DIV+18*
DIC("S" DIV+15*
DIC(0 DIV+13*, INST+4*
DIQ SITE+1~, SITE+6*
DIR DIV+5~, DIV+9!
DIR("A" DIV+7*
DIR("B" DIV+8*
DIR(0 DIV+6*
DIRUT DIV+5~, DIV+9
DR SITE+1~, SITE+5*
DT DATE+4
DTOUT DIV+5~
DUOUT DIV+5~
QAC1DIV DIV+1!, DIV+10*, DIV+20*
QACDV DIV+1!, DIV+3*, INST~, INST+2!, INST+7*, INST+8*
QACDVSN DIV+1!, DIV+17*, DIV+18
QACIEN INST~, INST+5, SITE~, SITE+4, SITE+8
QACSIT SITE~, SITE+2!, SITE+8*
QACSITE SITE+2!
QACSITE(4 SITE+8
QACX DIV+11~, DIV+16*, DIV+17
>> QAQNBEG DATE+4
>> QAQPOP DATDIV+1, DATDIV+2, DATE+1*, DATE+3*, DIV+2*, DIV+9*
>> QAQQUIT DATE+3
U DIV+17
X INST+1~, INST+5*
Y DIV+10, DIV+20, INST+1~, INST+7
Y(0 INST+8
>> ZTSAVE("QAC1DIV" TASK+3*
>> ZTSAVE("QACDESC" TASK+4*
>> ZTSAVE("QACDIV" TASK+3*
>> ZTSAVE("QACTEXT" TASK+4*
>> ZTSAVE("QAQ2HED" TASK+2*
>> ZTSAVE("QAQNBEG" TASK+1*
>> ZTSAVE("QAQNEND" TASK+1*
>> ZTSK TASK+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All