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

Package: Patient Representative

Routine: QACSPRD


Information

QACSPRD ;HISC/CEW - Spreadsheet reports ;7/17/95 11:04

Source Information

Source file <QACSPRD.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Patient Representative 4 (CONTACT,SOURCE,TREATC,TREATI)^QACSPRD1  (CODE,DISC,LOC,SERVICE)^QACSPRD2  (DIVC,DIVI,HEAD,SEX,SRVDS)^QACSPRD3  DATDIV^QACUTL0  
Kernel 2 ^%ZIS  ^%ZTLOAD  
Quality Assurance Integration 1 K^QAQDATE  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Patient Representative 6 QAC SPREADSHEET RPT  QACBYLOC  QACCSSTD  QACSPRD1  QACSPRD2  QACSPRD3  

Entry Points

Name Comments DBIA/ICR reference
DATE ;
BEGIN ;
EXIT ;
LOOP1(ROU,NBEG,NEND,QACD0) ;loop through #745.1 within the date range
ZIS1(ZTRTN,DESC,XFLG) ;subroutine sets up and calls ^%ZIS and ^%ZTLOAD
CHKDIV ;

External References

Name Field # of Occurrence
^%ZIS ZIS1+2
^%ZTLOAD ZIS1+10
^DIR BEGIN+14, BEGIN+30
CONTACT^QACSPRD1 BEGIN+17
SOURCE^QACSPRD1 BEGIN+24
TREATC^QACSPRD1 BEGIN+25
TREATI^QACSPRD1 BEGIN+26
CODE^QACSPRD2 BEGIN+19
DISC^QACSPRD2 BEGIN+27
LOC^QACSPRD2 BEGIN+20
SERVICE^QACSPRD2 BEGIN+21
DIVC^QACSPRD3 BEGIN+28
DIVI^QACSPRD3 BEGIN+29
HEAD^QACSPRD3 BEGIN+18
SEX^QACSPRD3 BEGIN+23
SRVDS^QACSPRD3 BEGIN+22
DATDIV^QACUTL0 DATE+3
K^QAQDATE EXIT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"1 Contact made by (#C)",!?5,"2 Issue Headers (#I)",!?5,"3 Issues"
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !?5,"4 Location (#I)"
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: !?5,"5 Service (Old field - Service field de-activated 10/97 - #I)"
  • Line Location: BEGIN+5
Function Call: WRITE
  • Prompt: !?5,"6 Service/Discipline (#I)",!?5,"7 Sex (#I)"
  • Line Location: BEGIN+6
Function Call: WRITE
  • Prompt: !?5,"8 Contact Source (#C)",!?5,"9 Treatment Status (#C)"
  • Line Location: BEGIN+7
Function Call: WRITE
  • Prompt: !?5,"10 Treatment Status (#I)",!?5,"11 Discipline (#I)"
  • Line Location: BEGIN+8
Function Call: WRITE
  • Prompt: !?5,"12 Division (#C)",!?5,"13 Division (#I)",!!
  • Line Location: BEGIN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ZIS1+2
Routine Call
  • %ZIS
  • Line Location:
    • ZIS1+2
Routine Call
  • DIR
  • Line Location:
    • BEGIN+14
    • BEGIN+30

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(745.1 - [#745.1] LOOP1+1, LOOP1+2, LOOP1+3
^TMP("QACSPRD2" ZIS1+7!

Label References

Name Line Occurrences
@( LOOP1+8, LOOP1+9
CHKDIV LOOP1+7
DATE BEGIN+30
EXIT DATE+3, BEGIN+14, BEGIN+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ZIS1+2!*
COUNT BEGIN+15!
DESC ZIS1~, ZIS1+9
DIR BEGIN+1!, BEGIN+14!, BEGIN+30!, EXIT+1!
DIR("?" BEGIN+11*, BEGIN+12*, BEGIN+13*
DIR("A" BEGIN+10*
DIR(0 BEGIN+2*, BEGIN+30*
DIROUT BEGIN+14, EXIT+1!
DIRUT BEGIN+14, BEGIN+30, EXIT+1!
IO("Q" ZIS1+3
IOP ZIS1+2!
NBEG LOOP1~, LOOP1+1
NEND LOOP1~, LOOP1+1
POP EXIT+1!, ZIS1+2
QAC1DIV EXIT+2!, LOOP1+8, LOOP1+9, CHKDIV+5
QACD CHKDIV+1~, CHKDIV+2*, CHKDIV+3*, CHKDIV+4
QACD0 LOOP1~, LOOP1+2*, LOOP1+3
QACDIV BEGIN+15!, LOOP1+3*, LOOP1+6*, LOOP1+8, CHKDIV+4, CHKDIV+5*
QACDIV( CHKDIV+3
QACDIV(0 LOOP1+7
QACDT EXIT+2!, LOOP1+1*, LOOP1+2
QACIFLG DATE+1~, ZIS1+7, ZIS1+8
QACITEM BEGIN+14*, BEGIN+17, BEGIN+18, BEGIN+19, BEGIN+20, BEGIN+21, BEGIN+22, BEGIN+23, BEGIN+24, BEGIN+25
, BEGIN+26, BEGIN+27, BEGIN+28, BEGIN+29, EXIT+2!
QACLABEL BEGIN+15!
QACNUM EXIT+2!
QACPCE BEGIN+15!
QACPOP EXIT+2!, ZIS1+2*
QACQ CHKDIV+1~, CHKDIV+4*, CHKDIV+5
QACRTN BEGIN+16~
QACWW EXIT+2!
QACXFLG DATE+1~, ZIS1+1!, ZIS1+10*
QAQPOP DATE+2*, DATE+3, EXIT+2!
ROU LOOP1~, LOOP1+8, LOOP1+9
U LOOP1+3
XFLG ZIS1~
Y BEGIN+14, EXIT+1!
ZTDESC EXIT+3!, ZIS1+9*
ZTRTN EXIT+3!, ZIS1~
ZTSAVE EXIT+3!
ZTSAVE("QAC1DIV" ZIS1+5*
ZTSAVE("QACDIV" ZIS1+5*
ZTSAVE("QACIFLG" ZIS1+6*
ZTSAVE("QACODE" ZIS1+8*
ZTSAVE("QACTITLE" ZIS1+6*
ZTSAVE("QAQNBEG" ZIS1+4*
ZTSAVE("QAQNEND" ZIS1+4*
ZTSAVE("QAQPOP" ZIS1+5*
ZTSAVE("^TMP(""QACSPRD2"",$J," ZIS1+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All