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

Package: Patient Representative

Routine: QACBYLOC


Information

QACBYLOC ;WCIOFO/ERC - Report by Location ;03/23/99

Source Information

Source file <QACBYLOC.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Patient Representative 3 SETUP^QACEMPE  LOOP1^QACSPRD  (DATDIV,INST,TASK)^QACUTL0  
Kernel 2 ^%ZIS  ^%ZISC  
VA FileMan 2 GETS^DIQ  ^DIR  
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 LOCATION  QACCSSTD  

Entry Points

Name Comments DBIA/ICR reference
SET ;set array variables for each ROC in date range
HEADER ;
SETMP ;set ^TMP global for report
START ;
ISSLOOP ;loop through issue codes for the ROC
EXIT ;
REPORT ;

External References

Name Field # of Occurrence
^%ZIS QACBYLOC+11
^%ZISC EXIT+1
GETS^DIQ SET+4, SETMP+4
^DIR HEADER+4
SETUP^QACEMPE START+1
LOOP1^QACSPRD START+4
DATDIV^QACUTL0 QACBYLOC+5
INST^QACUTL0 QACBYLOC+8
TASK^QACUTL0 QACBYLOC+17
K^QAQDATE EXIT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: QACBYLOC+11
Function Call: WRITE
  • Prompt: !?15,"Total Issues for Division: "_QACAA_" "_^TMP(QACRTN,$J,"COUNT",QACAA)
  • Line Location: REPORT+8
Function Call: WRITE
  • Prompt: !?10,"Total Issues for Location: "_QACBB_" "_^TMP(QACRTN,$J,"COUNT",QACAA,QACBB)
  • Line Location: REPORT+9
Function Call: WRITE
  • Prompt: !?5,QACCC_" "_$P(^QA(745.2,$O(^QA(745.2,"B",QACCC,0)),0),U,3)
  • Line Location: REPORT+13
Function Call: WRITE
  • Prompt: ?72,^TMP(QACRTN,$J,"COUNT",QACAA,QACBB,QACCC)
  • Line Location: REPORT+14
Function Call: WRITE
  • Prompt: !,^TMP(QACRTN,$J,"ISS",QACDD),?72,^TMP(QACRTN,$J,"ROC",QACAA,QACBB,QACCC,QACDD)
  • Line Location: REPORT+18
Function Call: WRITE
  • Prompt: !!!?25,"No data to report."
  • Line Location: REPORT+21
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,QACDESC,?48,QACTODAY,?70,"PAGE ",QACPAGE
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !?(80-$L(QACHDR2))/2,QACHDR2
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"Issue Code",?25,"Issue Code Name",?70,"Total"
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,QACUNDL,!
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Routine Call
  • DIR
  • Line Location:
    • HEADER+4
Routine Call
  • %ZIS
  • Line Location:
    • QACBYLOC+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^QA(745.1 - [#745.1] GETS^DIQ
^QA(745.2 - [#745.2] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(745.1 - [#745.1] ISSLOOP+2, ISSLOOP+3
^QA(745.2 - [#745.2] REPORT+13
^TMP( SETMP+10*, SETMP+11*, SETMP+12*, SETMP+13*, SETMP+16*, SETMP+17*, REPORT+3, REPORT+5, REPORT+8, REPORT+9
, REPORT+11, REPORT+14, REPORT+16, REPORT+18, REPORT+19, EXIT+3!

Label References

Name Line Occurrences
EXIT QACBYLOC+5, QACBYLOC+11, START+6
HEADER REPORT+6, REPORT+12, REPORT+17, REPORT+20
ISSLOOP SET+2
REPORT START+5
SETMP SET+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS QACBYLOC+11!*
DIQ EXIT+4!
DIR HEADER+4!, EXIT+4!
DIR(0 HEADER+4*
IO REPORT+1
IO("Q" QACBYLOC+12
IOF HEADER+5
IOP QACBYLOC+11!
IOSL REPORT+12, REPORT+17, EXIT+4!
IOST HEADER+4, HEADER+5
POP QACBYLOC+11, EXIT+4!
QAC1DIV QACBYLOC+3~, QACBYLOC+8, EXIT+5!
QACAA REPORT+2*, REPORT+3*, REPORT+5, REPORT+8, REPORT+9, REPORT+11, REPORT+14, REPORT+16, REPORT+18, EXIT+5!
QACBB REPORT+4*, REPORT+5*, REPORT+9, REPORT+11, REPORT+14, REPORT+16, REPORT+18, EXIT+5!
QACCC REPORT+10*, REPORT+11*, REPORT+13, REPORT+14, REPORT+16, REPORT+18, EXIT+5!
QACD0 START+4, SET+4, SET+5, ISSLOOP+2, ISSLOOP+3, EXIT+5!
QACD0X SET+5*, SET+7, SET+8, EXIT+5!
QACDATA SET+1!, EXIT+5!
QACDATA( SET+7, SET+8
QACDD REPORT+15*, REPORT+16*, REPORT+18, EXIT+5!
QACDESC QACBYLOC+10*, QACBYLOC+13, HEADER+6, EXIT+5!
QACDIV QACBYLOC+3~, SET+1!, SET+7*, SETMP+10, SETMP+12, SETMP+13, SETMP+17, EXIT+5!
QACDV QACBYLOC+3~, QACBYLOC+6, EXIT+6!
QACDVFLG QACBYLOC+3~, QACBYLOC+6*, SET+7, EXIT+6!
QACDVNAM QACBYLOC+8, EXIT+6!
QACEE ISSLOOP+1*, ISSLOOP+2*, ISSLOOP+3, SETMP+1*, SETMP+2*, SETMP+3, EXIT+7!
QACHDR2 HEADER+7, EXIT+6!
QACIC SET+1!, SET+3, EXIT+6!
QACIC( ISSLOOP+3*, SETMP+2, SETMP+3
QACICEXT EXIT+6!
QACICEXT( SETMP+6, SETMP+8, SETMP+9, SETMP+14, SETMP+15
QACICHDR SETMP+8*, SETMP+10, SETMP+14*, SETMP+17, EXIT+6!
QACISS SET+1!, SETMP+3*, SETMP+4, SETMP+5, SETMP+10, SETMP+16, EXIT+7!
QACISSC SETMP+6*, SETMP+7, SETMP+16, EXIT+7!
QACISSX SETMP+5*, SETMP+6, SETMP+8, SETMP+9, SETMP+14, SETMP+15, EXIT+7!
QACLOC SET+1!, SET+8*, SETMP+10, SETMP+13, SETMP+17, EXIT+7!
QACNAME SETMP+9*, SETMP+15*, SETMP+16, EXIT+7!
QACPAGE HEADER+1*, HEADER+2, HEADER+5, HEADER+6, EXIT+8!
QACQUIT REPORT+3, REPORT+5, REPORT+6, REPORT+11, REPORT+12, REPORT+16, REPORT+17, HEADER+2, HEADER+4*, EXIT+8!
QACROU START+2*, START+4, EXIT+8!
QACRTN QACBYLOC+4*, SETMP+10, SETMP+11, SETMP+12, SETMP+13, SETMP+16, SETMP+17, REPORT+3, REPORT+5, REPORT+8
, REPORT+9, REPORT+11, REPORT+14, REPORT+16, REPORT+18, REPORT+19, EXIT+3, EXIT+8!
QACTIME EXIT+8!
QACTODAY HEADER+6, EXIT+8!
QACUNDL HEADER+9, EXIT+8!
QAQNBEG START+4, EXIT+9!
QAQNEND START+4, EXIT+9!
QAQPOP QACBYLOC+5, EXIT+9!
QAQRANG EXIT+9!
U REPORT+13
X EXIT+10!
Y HEADER+4, EXIT+10!
ZTDESC QACBYLOC+13*, EXIT+10!
>> ZTQUEUED EXIT+1
>> ZTREQ EXIT+1*
ZTRTN QACBYLOC+14*, EXIT+10!
ZTSAVE EXIT+10!
ZTSAVE("QACRTN" QACBYLOC+16*
ZTSAVE("QAQRANG" QACBYLOC+15*
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