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

Package: Patient Representative

Routine: QACDISC


Information

QACDISC ;WCIOFO/ERC - Report of Discipline Contacts ;8/15/97

Source Information

Source file <QACDISC.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 3 DD^%DT  ^DIC  ^DIR  
Kernel 2 ^%ZIS  ^%ZISC  
Patient Representative 2 ($$EN5,$$EN6,$$EN7,$$EN8)^QACUTIL  (DATDIV,INST,TASK)^QACUTL0  
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: 2

Package Total Caller Graph
Patient Representative 2 QAC DISC ISSUE TOT  QACSRV  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;
PRT1 ;print report for all disciplines by division
TSK ;
PRT4 ;print report for each discipline by division
EXIT2
PRINT ;
PAUSE ;
EXIT ;
DATE ;
SET ;Counts the records.
DIR(QACTEXT,DIC,Y) ;
TSK1(QACPIECE,QACSUB) ;

External References

Name Field # of Occurrence
DD^%DT HEAD+2
^%ZIS DATE+14
^%ZISC PRINT+9, EXIT+1
^DIC DIR+9
^DIR PAUSE+1, DIR+6
$$EN5^QACUTIL PRT4+14
$$EN6^QACUTIL PRT4+9
$$EN7^QACUTIL TSK1+22
$$EN8^QACUTIL TSK1+23
DATDIV^QACUTL0 DATE+2
INST^QACUTL0 PRT4+4
TASK^QACUTL0 DATE+23
K^QAQDATE EXIT2+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No Discipline selected.",!!
  • Line Location: DATE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+14
Function Call: WRITE
  • Prompt: !!,"No data found for the date range selected!"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!,"No data found for the date range selected!"
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !!?25,"Issues for Division: ",QACDV
  • Line Location: PRT4+5
Function Call: WRITE
  • Prompt: !?15,"Total Issues for ",QACDSC," = ",QACSTOT
  • Line Location: PRT4+6
Function Call: WRITE
  • Prompt: !!?5,QACHDNM,?77,QACHDTOT
  • Line Location: PRT4+11
Function Call: WRITE
  • Prompt: !,QACCNM,?77,QACCTOT
  • Line Location: PRT4+16
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT4+20
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !,QACTEXT_"Issue Report for ",QACDSC
  • 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
  • DIC
  • Line Location:
    • DIR+9
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1
    • DIR+6
Routine Call
  • %ZIS
  • Line Location:
    • DATE+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^QA(745.5 - [#745.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(745.1 - [#745.1] TSK1+13, TSK1+14, TSK1+15, TSK1+18, TSK1+19, TSK1+20, TSK1+24
^QA(745.2 - [#745.2] TSK1+25, TSK1+28
^QA(745.5 - [#745.5] DATE+13
^TMP("QACSRPT0" TSK1+1!, TSK1+3*, PRINT+4, PRINT+6, PRT1+2, PRT1+4, PRT4+1, EXIT2+7!, SET+2*, SET+7*
, SET+8*
^TMP("QACSRPT1" TSK1+1!, TSK1+3*, PRT4+7, PRT4+10, EXIT2+7!, SET+3*, SET+9*
^TMP("QACSRPT2" TSK1+1!, TSK1+3*, PRT4+12, PRT4+15, EXIT2+7!, SET+4*, SET+10*

Label References

Name Line Occurrences
DIR DATE+5, DATE+11
EXIT DATE+2, DATE+14, DATE+15, PRINT+10
EXIT2 DATE+6, DATE+12
HEAD PRINT+5, PRINT+6, PRT4+2, PRT4+17
PAUSE PRT4+17, PRT4+20
PRT1 PRINT+8
PRT4 PRT1+4
SET TSK1+28
TSK1 TSK+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DATE+14!*, EXIT2+1!
DIC DATE+4*, DATE+5, DATE+10*, DATE+11, DIR~, DIR+9!
DIC(0 DIR+9*
DIR EXIT2!, PAUSE+1!, DIR+7!
DIR("?" DIR+5*
DIR("A" DIR+3*
DIR("B" DIR+4*
DIR(0 PAUSE+1*, DIR+2*
DIROUT EXIT2!
DIRUT EXIT2!
DT HEAD+2
DTOUT EXIT2!, DIR+7!
DUOUT DIR+7!
IO TSK1+11
IO("Q" DATE+15
IOF HEAD+1
IOP DATE+14!, EXIT2+1!
IOSL PRT4+17
IOST PRT4+17, HEAD+1, PAUSE+1
POP DATE+14, EXIT2+1!
QAC1DIV TSK1+3, TSK1+17, PRINT+8, EXIT2+2!, SET+1, SET+6
QACCC PRINT+2~, PRINT+4*, PRINT+5, PRINT+6
QACCIEN TSK1+12!, TSK1+24*, TSK1+25, PRINT+7!, PRT4+13*, PRT4+14, EXIT2+2!, SET+4, SET+10
QACCN TSK1+12!, TSK1+18*, TSK1+19, TSK1+20, TSK1+24, EXIT2+2!
QACCNM PRT4+14*, PRT4+16, EXIT2+4!
QACCTOT PRINT+7!, PRT4+15*, PRT4+16, EXIT2+2!
QACD0 TSK1+12!, TSK1+14*, TSK1+15, TSK1+18, TSK1+19, TSK1+20, TSK1+24, EXIT2+2!
QACDD PRT1+1*, PRT1+2*, PRT1+4, PRT4+1, PRT4+3, PRT4+4, PRT4+7, PRT4+10, PRT4+12, PRT4+15
, EXIT2+8!
QACDIEN TSK1+12!, TSK1+20*, TSK1+21, TSK1+22, TSK1+23, EXIT2+2!
QACDIS TSK1+22*, TSK1+23*, PRINT+7!, EXIT2+2!, SET+2, SET+3, SET+4, SET+8, SET+9, SET+10
QACDIV TSK1+15*, TSK1+16*, TSK1+17, EXIT2+3!, SET+7, SET+8, SET+9, SET+10
QACDN TSK1+19*, TSK1+20, EXIT2+4!
QACDSC DATE+13*, PRINT+5*, PRINT+6*, PRT1+3*, PRT1+4*, PRT4+1, PRT4+6, PRT4+7, PRT4+10, PRT4+12
, PRT4+15, EXIT2+3!, HEAD+2
QACDSP DATE+13*, TSK1+21, EXIT2+3!
QACDT TSK1+12!, TSK1+13*, TSK1+14, EXIT2+2!
QACDV PRT4+3*, PRT4+4, PRT4+5, EXIT2+3!
QACE PRINT+2~
QACEE EXIT2+8!
QACF PRINT+2~
QACFLG DATE+1~, DATE+13, TSK1+21, DIR+1*, DIR+8*, DIR+9
QACGDREC EXIT2+3!
QACHD TSK1+26*, TSK1+27*, TSK1+28, PRINT+7!, PRT4+7*, PRT4+8, PRT4+10, PRT4+12, PRT4+15, EXIT2+3!
, SET+3, SET+4, SET+9, SET+10
QACHDIEN TSK1+12!, TSK1+28*, PRINT+7!, PRT4+8*, PRT4+9, EXIT2+4!, SET+3, SET+4, SET+9, SET+10
QACHDNM TSK1+12!, PRT4+9*, PRT4+11, EXIT2+4!
QACHDTOT PRINT+7!, PRT4+10*, PRT4+11, EXIT2+4!
QACHEAD EXIT2+4!
QACHTOT EXIT2+5!
QACICODE TSK1+25*, TSK1+26, TSK1+27, PRINT+7!, PRT4+12*, PRT4+13, PRT4+15, EXIT2+2!, SET+4, SET+10
QACINAME EXIT2+4!
QACINM TSK1+12!
QACPG PRINT+3*, EXIT2+5!, HEAD+1, HEAD+3, HEAD+4*
QACPIECE TSK+1*, TSK+3, TSK1~, TSK1+20
QACQUIT DATE+6, DATE+12, PRINT+3*, PRT1+2, PRT1+4, PRT4+7, PRT4+10, PRT4+12, PRT4+15, PRT4+17
, EXIT2+5!, PAUSE+1*, DIR+7*
QACRED EXIT2+5!
QACSTOT PRINT+7!, PRT4+1*, PRT4+6
QACSUB TSK+2*, TSK+3, TSK1~, TSK1+22, TSK1+23
QACTEXT DATE+3*, DATE+5, DATE+9*, DATE+11, DATE+16, HEAD+2, DIR~, DIR+3, DIR+5
QACTOT EXIT2+5!
QACTTL PRINT+2~
QACUNDL PRINT+3!*, EXIT2+5!, HEAD+4
QAQ2HED EXIT2+9!, HEAD+3
QAQNBEG TSK1+13, EXIT2+6!, EXIT2+9!
QAQNEND TSK1+13, EXIT2+6!, EXIT2+9!
QAQPOP DATE+2, EXIT2+6!, EXIT2+9!
QAQQUIT EXIT2+6!
U DATE+13, TSK1+15, TSK1+20, TSK1+24, TSK1+25, PRT4+15
Y DATE+5, DATE+7, DATE+11, DATE+13, HEAD+2*, PAUSE+1, DIR~, DIR+8, DIR+9
ZTDESC DATE+16*, EXIT2+1!
ZTQUEUED EXIT+1, EXIT2+1!
ZTREQ EXIT+1*, EXIT2+1!
ZTRTN DATE+22*, EXIT2+1!
ZTSAVE EXIT2+1!
ZTSAVE("QAC1DIV" DATE+21*
ZTSAVE("QACDIV" DATE+21*
ZTSAVE("QACDSC" DATE+17*
ZTSAVE("QACDSP" DATE+17*
ZTSAVE("QACDV" DATE+21*
ZTSAVE("QACFLG" DATE+20*
ZTSAVE("QACSRPT0" DATE+18*
ZTSAVE("QACSRPT1" DATE+18*
ZTSAVE("QACSRPT2" DATE+18*
ZTSAVE("QACTEXT" DATE+20*
ZTSAVE("QAQNBEG" DATE+19*
ZTSAVE("QAQNEND" DATE+19*
ZTSAVE("QASDIS" DATE+17*
ZTSK EXIT2+1!
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