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

Package: Patient Representative

Routine: QACSPRD3


Information

QACSPRD3 ;HINES/CEW - Spreadsheet report selections ;7/17/95 11:22

Source Information

Source file <QACSPRD3.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Patient Representative 6 PAUSE^QACGEN  (LOOP1,ZIS1)^QACSPRD  (SET1,TALL,WRIT)^QACSPRD1  (ICLOOP,TSK)^QACSPRD2  $$EN8^QACUTIL  INST^QACUTL0  
Kernel 1 ^%ZISC  
VA FileMan 1 DD^%DT  

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 QACSPRD  

Entry Points

Name Comments DBIA/ICR reference
HEADTSK1 ;
HEAD ;
DIVITSK ;
SEXTSK ;
DIVI ;
; Sub-routine to count total issues by Division
DIVCTSK ;
DIVC ; Sub-routine counts total number of contacts by Division
HEADTSK ;
SEXTSK1 ;
DIVI1 ;for each entry in 745.1 loop through Issue code and count by code/div
SVDSTSK1 ;
EXIT ;
SRVDS ;Sub-routine gives total issues by Service/Discipline
WRITEDIV ;display or print the final tally
SVDSTSK ; Tasked entry point for Service/Discipline
NEW2 ;
SEX ;
DIVC1 ;for each entry from #745.1 in the date range, check for the division
NEWHEAD ;combine some of the new and old headers
DVTSK(QACROU) ;

External References

Name Field # of Occurrence
DD^%DT WRITEDIV+2, WRITEDIV+3
^%ZISC EXIT+1
PAUSE^QACGEN WRITEDIV+10
LOOP1^QACSPRD SEXTSK+8, HEADTSK+34, DVTSK+3
ZIS1^QACSPRD SEX+3, HEAD+4, DIVC+2, DIVI+3, SRVDS+4
SET1^QACSPRD1 SEXTSK+7, HEADTSK+33
TALL^QACSPRD1 SEXTSK1+6, HEADTSK1+6
WRIT^QACSPRD1 SEXTSK+9, HEADTSK+36, WRITEDIV+10
ICLOOP^QACSPRD2 SEXTSK1+2, HEADTSK1+2, SVDSTSK1+1
TSK^QACSPRD2 SVDSTSK+2
$$EN8^QACUTIL SVDSTSK1+6
INST^QACUTL0 WRITEDIV+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRITEDIV+1
Function Call: WRITE
  • Prompt: !!?12,"Patient Rep "_QACTITLE_"by Division Spreadsheet Report"
  • Line Location: WRITEDIV+4
Function Call: WRITE
  • Prompt: !?20,"Date Range: "_QACBEG_" to "_QACEND
  • Line Location: WRITEDIV+5
Function Call: WRITE
  • Prompt: !,$S(QACEE=0:"Unknown",1:QACDV),", ",COUNT(QACEE)
  • Line Location: WRITEDIV+9
Function Call: WRITE
  • Prompt: !!,"Site is not multi-divisional for Patient Representative - no report created."
  • Line Location: DVTSK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SEXTSK1+4
^QA(740 - [#740] DVTSK+2
^QA(745.1 - [#745.1] SEXTSK1+1, SEXTSK1+3, SEXTSK1+5, HEADTSK1+1, DIVC1+1, DIVI1+1, DIVI1+5, DIVI1+6, SVDSTSK1+5
^TMP("QACSPRD2" SVDSTSK1+7*, EXIT+2!

Label References

Name Line Occurrences
DVTSK DIVCTSK+2, DIVITSK+2
EXIT SEX+3, SEX+4, SEXTSK+10, HEAD+4, HEAD+5, HEADTSK+37, DIVC+2, DIVC+3, DIVI+3, DIVI+4
, DVTSK+5, SRVDS+4, SRVDS+5
NEW2 NEWHEAD+4, NEWHEAD+5, NEWHEAD+6, NEWHEAD+7, NEWHEAD+8, NEWHEAD+9, NEWHEAD+10
NEWHEAD HEADTSK+35
WRITEDIV DVTSK+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EXIT+2!
COUNT EXIT+2!
COUNT( NEWHEAD+3, NEWHEAD+4, NEWHEAD+5, NEWHEAD+6, NEWHEAD+7, NEWHEAD+8, NEWHEAD+9, NEWHEAD+10, NEW2+1*, DIVC1+5*
, WRITEDIV+7, WRITEDIV+9, DIVI1+7*
IO SEXTSK+2, HEADTSK+2, DVTSK+1
IOF WRITEDIV+1
IOP EXIT+2!
IOSL WRITEDIV+10
IOST WRITEDIV+10
POP EXIT+2!
QAC1 NEWHEAD+1~, NEWHEAD+4*, NEWHEAD+5*, NEWHEAD+6*, NEWHEAD+7*, NEWHEAD+8*, NEWHEAD+9*, NEWHEAD+10*, NEW2+1
QAC1DIV EXIT+3!
QAC2 NEWHEAD+1~, NEWHEAD+4*, NEWHEAD+5*, NEWHEAD+6*, NEWHEAD+7*, NEWHEAD+8*, NEWHEAD+9*, NEWHEAD+10*, NEW2+1
QACBEG WRITEDIV+2*, WRITEDIV+5, EXIT+3!
QACCIEN EXIT+3!
QACCNT SEXTSK+5*, HEADTSK+32*, EXIT+3!
QACCODE EXIT+3!
QACCODE( SVDSTSK1+5
QACD0 SEXTSK+8, SEXTSK1+1, SEXTSK1+3, SEXTSK1+5, HEADTSK+34, HEADTSK1+1, DIVC1+1, DIVI1+1, DIVI1+5, DIVI1+6
, DVTSK+3, SVDSTSK1+5, SVDSTSK1+7, EXIT+3!
QACDISC SVDSTSK1+6*, SVDSTSK1+7, EXIT+3!
QACDIV DIVC1+1*, DIVC1+2*, DIVC1+5, DIVI1+1*, DIVI1+2*, DIVI1+7, SVDSTSK1+7, EXIT+3!
QACDT EXIT+3!
QACDV WRITEDIV+8, WRITEDIV+9, EXIT+4!
QACE NEWHEAD+1~, NEWHEAD+2*, NEWHEAD+3*, NEWHEAD+4, NEWHEAD+5, NEWHEAD+6, NEWHEAD+7, NEWHEAD+8, NEWHEAD+9, NEWHEAD+10
, NEW2+1
QACEE SEXTSK1+5*, HEADTSK1+3*, HEADTSK1+4*, HEADTSK1+5, DIVC1+3*, WRITEDIV+6*, WRITEDIV+7*, WRITEDIV+8, WRITEDIV+9, DIVI1+3*
, EXIT+4!
QACEND WRITEDIV+3*, WRITEDIV+5, EXIT+4!
QACHEAD HEADTSK1+5*, HEADTSK1+6, EXIT+4!
QACICODE EXIT+4!
QACIFLG SRVDS+1*, EXIT+4!
QACISS DIVI1+5*, DIVI1+6, EXIT+4!
QACISSUE EXIT+4!
QACLABEL EXIT+4!
QACLABEL( NEW2+2!
QACLABEL(1 SEXTSK+4*, HEADTSK+4*
QACLABEL(10 HEADTSK+13*
QACLABEL(11 HEADTSK+14*
QACLABEL(12 HEADTSK+15*
QACLABEL(13 HEADTSK+16*
QACLABEL(14 HEADTSK+17*
QACLABEL(15 HEADTSK+18*
QACLABEL(16 HEADTSK+19*
QACLABEL(17 HEADTSK+20*
QACLABEL(18 HEADTSK+21*
QACLABEL(2 SEXTSK+6*, HEADTSK+5*
QACLABEL(20 HEADTSK+23*
QACLABEL(21 HEADTSK+24*
QACLABEL(22 HEADTSK+25*
QACLABEL(23 HEADTSK+26*
QACLABEL(24 HEADTSK+27*
QACLABEL(25 HEADTSK+28*
QACLABEL(26 HEADTSK+29*
QACLABEL(27 HEADTSK+30*
QACLABEL(3 HEADTSK+6*
QACLABEL(4 HEADTSK+7*
QACLABEL(5 HEADTSK+8*
QACLABEL(6 HEADTSK+9*
QACLABEL(7 HEADTSK+10*
QACLABEL(8 HEADTSK+11*
QACLABEL(9 HEADTSK+12*
QACODE EXIT+5!
QACODE( HEADTSK1+4, HEADTSK1+5, SVDSTSK1+3, SVDSTSK1+7
QACPCE EXIT+5!
QACPCE(1 SEXTSK+4*, HEADTSK+4*
QACPCE(10 HEADTSK+13*
QACPCE(11 HEADTSK+14*
QACPCE(12 HEADTSK+15*
QACPCE(13 HEADTSK+16*
QACPCE(14 HEADTSK+17*
QACPCE(15 HEADTSK+18*
QACPCE(16 HEADTSK+19*
QACPCE(17 HEADTSK+20*
QACPCE(18 HEADTSK+21*
QACPCE(2 SEXTSK+6*, HEADTSK+5*
QACPCE(20 HEADTSK+23*
QACPCE(21 HEADTSK+24*
QACPCE(22 HEADTSK+25*
QACPCE(23 HEADTSK+26*
QACPCE(24 HEADTSK+27*
QACPCE(25 HEADTSK+28*
QACPCE(26 HEADTSK+29*
QACPCE(27 HEADTSK+30*
QACPCE(28 HEADTSK+31*
QACPCE(3 SEXTSK+5*, HEADTSK+6*
QACPCE(4 HEADTSK+7*
QACPCE(5 HEADTSK+8*
QACPCE(6 HEADTSK+9*
QACPCE(7 HEADTSK+10*
QACPCE(8 HEADTSK+11*
QACPCE(9 HEADTSK+12*
QACPFLG WRITEDIV+10*, WRITEDIV+11!
QACPN SEXTSK1+3*, SEXTSK1+4, EXIT+5!
QACPOP SEX+3, HEAD+4, DIVC+2, DIVI+3, SRVDS+4, EXIT+5!
QACROU SEXTSK+3*, SEXTSK+8, HEADTSK+3*, HEADTSK+34, DIVCTSK+1*, DIVCTSK+2, DIVITSK+1*, DIVITSK+2, DVTSK~, DVTSK+3
, SVDSTSK+1*
QACRR SVDSTSK1+2*, SVDSTSK1+3*, SVDSTSK1+5, SVDSTSK1+7, EXIT+5!
QACRTN SEX+2*, SEX+3, HEAD+3*, HEAD+4, DIVC+1*, DIVC+2, DIVI+2*, DIVI+3, SRVDS+3*, SRVDS+4
, EXIT+5!
QACSEX SEXTSK1+4*, SEXTSK1+6, EXIT+5!
QACTITLE SEX+2*, SEX+3, HEAD+2*, HEAD+4, DIVC+1*, DIVC+2, WRITEDIV+4, DIVI+2*, DIVI+3, SRVDS+2*
, SRVDS+4, EXIT+5!
QACWW SVDSTSK1+4*, SVDSTSK1+5*, SVDSTSK1+6, EXIT+5!
QACX NEWHEAD+1~, NEW2+2*
QACXFLG SEX+3, SEX+4, HEAD+4, HEAD+5, DIVC+2, DIVC+3, DIVI+3, DIVI+4, SRVDS+4, SRVDS+5
, EXIT+5!
QAQNBEG SEXTSK+8, HEADTSK+34, WRITEDIV+2, DVTSK+3, EXIT+6!
QAQNEND SEXTSK+8, HEADTSK+34, WRITEDIV+3, DVTSK+3, EXIT+6!
U SEXTSK1+3, SEXTSK1+4, DIVC1+1, DIVI1+1, DVTSK+2
>> Y WRITEDIV+2*, WRITEDIV+3*
ZTDESC EXIT+2!
>> ZTQUEUED EXIT+1
>> ZTREQ EXIT+1*
ZTRTN EXIT+2!
ZTSAVE EXIT+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All