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

Package: Patient Representative

Routine: QACGEN


Information

QACGEN ;HISC/CEW,DAD - Issue Totals for All or by Gender ;5/30/95 15:32

Source Information

Source file <QACGEN.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZISC  
Patient Representative 2 ($$EN5,$$EN6)^QACUTIL  (DATE,DIV,INST,TASK)^QACUTL0  
VA FileMan 2 DD^%DT  ^DIR  
Quality Assurance Integration 1 K^QAQDATE  

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

Package Total Caller Graph
Patient Representative 4 QAC ISSUE TOT  QACSPRD1  QACSPRD2  QACSPRD3  

Entry Points

Name Comments DBIA/ICR reference
DATE ;
GENTSK ; Gets the data to build the TMP global
INIT ;initialize ^TMP("QACGEN",$J nodes to zero if no count, yet
PRINT ;
BYHEAD ;prints those records for each header. If by division this is called
EXIT ;
HEAD ;
PAUSE ;
SET ;Counts the records.
BYDIV ;for multi-div sites, need to loop through each div
YESDIV ;set counts for sites that have integrated

External References

Name Field # of Occurrence
DD^%DT HEAD+2
^%ZIS DATE+13
^%ZISC EXIT+1
^DIR DATE+10, PAUSE+1
$$EN5^QACUTIL BYHEAD+11
$$EN6^QACUTIL BYHEAD+5
DATE^QACUTL0 DATE+4
DIV^QACUTL0 DATE+12
INST^QACUTL0 BYDIV+5
TASK^QACUTL0 DATE+20
K^QAQDATE EXIT+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+13
Function Call: WRITE
  • Prompt: !!,"No data found for the date range selected!"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!?15,"Total Issues for ",$G(QACGENX)," = ",QACTOT,!
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!?5,QACHDNM,?77,QACHDTOT
  • Line Location: BYHEAD+7
Function Call: WRITE
  • Prompt: !,QACCNM
  • Line Location: BYHEAD+13
Function Call: WRITE
  • Prompt: ?77,QACCTOT
  • Line Location: BYHEAD+14
Function Call: WRITE
  • Prompt: !
  • Line Location: BYHEAD+19
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !,"Issue Report for ",$G(QACGENX)
  • 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
Function Call: WRITE
  • Prompt: !!,"Total Issues by Division: ",QACDV
  • Line Location: BYDIV+7
Function Call: WRITE
  • Prompt: !,?5,"Total Issues for ",$G(QACGENX)," ",$G(^TMP("QACGEN",$J,QACEE))
  • Line Location: BYDIV+8
Routine Call
  • DIR
  • Line Location:
    • DATE+10
    • PAUSE+1
Routine Call
  • %ZIS
  • Line Location:
    • DATE+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] GENTSK+16, GENTSK+17
^DPT - [#2] GENTSK+20
^QA(745.1 - [#745.1] GENTSK+7, GENTSK+8, GENTSK+10, GENTSK+24, GENTSK+25
^QA(745.2 - [#745.2] GENTSK+26, GENTSK+28, GENTSK+31, INIT+2, INIT+3, INIT+5, INIT+8, INIT+9
^TMP("QACGEN" GENTSK+1!, GENTSK+2*, INIT+11, INIT+12*, INIT+13*, PRINT+2, PRINT+4, BYHEAD+3, BYHEAD+6, BYHEAD+8
, BYHEAD+12, EXIT+9!, SET+1*, BYDIV+3, BYDIV+8, YESDIV+1*, YESDIV+2*, YESDIV+3*

Label References

Name Line Occurrences
BYDIV PRINT+6
BYHEAD BYDIV+9
EXIT DATE+10, DATE+13, DATE+14, PRINT+6
HEAD PRINT+2, PRINT+4, BYHEAD+15, BYDIV+4
PAUSE BYHEAD+15, BYHEAD+19
SET GENTSK+31
YESDIV SET+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DATE+13!*, EXIT+2!
DIR DATE+5!, DATE+10!, EXIT+7!, PAUSE+1!
DIR("?" DATE+7*
DIR("??" DATE+8*
DIR("A" DATE+6*
DIR(0 DATE+5*, PAUSE+1*
DIROUT DATE+10, EXIT+7!
DIRUT DATE+10, EXIT+7!
DT HEAD+2
IO GENTSK+3
IO("Q" DATE+14
IOF HEAD+1
IOP DATE+13!, EXIT+2!
IOSL BYHEAD+15
IOST BYHEAD+15, HEAD+1, PAUSE+1
POP DATE+13, EXIT+2!
QAC1DIV GENTSK+18, EXIT+3!
QAC74510 GENTSK+10*, GENTSK+11, GENTSK+12, EXIT+3!
QACC INIT+11*, INIT+12, INIT+13, EXIT+3!
QACCIEN GENTSK+4~, GENTSK+25*, GENTSK+26, GENTSK+28, INIT+1*, INIT+2*, INIT+3, INIT+5, INIT+10, PRINT+3!
, BYHEAD+10*, BYHEAD+11, EXIT+3!, YESDIV+2
QACCN GENTSK+4~, GENTSK+24*, GENTSK+25, EXIT+3!
QACCNM GENTSK+4~, BYHEAD+11*, BYHEAD+13, EXIT+3!
QACCOUNT BYDIV+1~, BYDIV+2*, BYDIV+4, BYDIV+10*
QACCSS EXIT+3!
QACCTOT BYHEAD+12*, BYHEAD+14, EXIT+3!
QACD EXIT+4!
QACD0 GENTSK+4~, GENTSK+8*, GENTSK+10, GENTSK+24, GENTSK+25
QACDIV GENTSK+5~, GENTSK+12*, GENTSK+13*, GENTSK+16*, GENTSK+17*, GENTSK+18, GENTSK+19*, EXIT+4!, YESDIV+1, YESDIV+2
, YESDIV+3
QACDT GENTSK+4~, GENTSK+7*, GENTSK+8, EXIT+4!
QACDV EXIT+4!, BYDIV+5, BYDIV+6*, BYDIV+7
QACDVFLG DATE+1~, DATE+11*, DATE+12, PRINT+6, BYHEAD+3, BYHEAD+6, BYHEAD+8, BYHEAD+12, BYHEAD+18
QACEE GENTSK+14*, BYHEAD+3, BYHEAD+6, BYHEAD+8, BYHEAD+12, EXIT+4!, EXIT+5!, BYDIV+3*, BYDIV+5, BYDIV+6
, BYDIV+8
QACGEN DATE+10*, GENTSK+21, EXIT+4!
QACGENDR GENTSK+5~, GENTSK+20*, GENTSK+21, EXIT+4!
QACGENX DATE+10*, PRINT+2*, PRINT+5, EXIT+4!, HEAD+2, BYDIV+8
QACHD GENTSK+5~, GENTSK+29*, GENTSK+30*, GENTSK+31, INIT+6*, INIT+8, INIT+9, INIT+10, PRINT+3!, BYHEAD+3*
, BYHEAD+4, BYHEAD+6, BYHEAD+8, BYHEAD+12, EXIT+5!, YESDIV+1, YESDIV+2
QACHDIEN GENTSK+4~, GENTSK+31*, INIT+7*, INIT+8*, INIT+9, INIT+10, PRINT+3!, BYHEAD+4*, BYHEAD+5, EXIT+5!
, YESDIV+1, YESDIV+2
QACHDNM GENTSK+4~, BYHEAD+5*, BYHEAD+7, EXIT+5!
QACHDTOT BYHEAD+6*, BYHEAD+7, EXIT+5!
QACICODE GENTSK+5~, GENTSK+28*, GENTSK+29, GENTSK+30, INIT+5*, INIT+6, INIT+10, PRINT+3!, BYHEAD+8*, BYHEAD+9
, BYHEAD+10, BYHEAD+12, EXIT+6!, YESDIV+2
QACINDT GENTSK+26*, GENTSK+27, INIT+3*, INIT+4, EXIT+6!
QACPG PRINT+1*, EXIT+6!, HEAD+1, HEAD+3, HEAD+4*
QACPIEN GENTSK+4~, GENTSK+11*, GENTSK+20, EXIT+6!
QACQUIT PRINT+1*, BYHEAD+3, BYHEAD+6, BYHEAD+8, BYHEAD+12, BYHEAD+15, EXIT+6!, PAUSE+1*, BYDIV+3
QACTOT PRINT+4*, PRINT+5, EXIT+6!
QACUNDL PRINT+1!*, EXIT+6!, HEAD+4
QAQ2HED EXIT+8!, HEAD+3
QAQNBEG GENTSK+7, GENTSK+27, INIT+4, EXIT+8!
QAQNEND GENTSK+7, EXIT+8!
QAQPOP DATE+3*, DATE+4, DATE+12, EXIT+8!
QAQQUIT EXIT+8!
U GENTSK+11, GENTSK+12, GENTSK+20, GENTSK+25, GENTSK+26, GENTSK+28, INIT+3, INIT+5, INIT+9, INIT+10
, PRINT+4, BYHEAD+6, BYHEAD+9, BYHEAD+12
X DATE+2~, INIT+10*, INIT+12, INIT+13, EXIT+9!
Y DATE+2~, DATE+10, INIT+10*, INIT+13, EXIT+9!, HEAD+2*, PAUSE+1
Y(0 DATE+10
ZTDESC DATE+15*, EXIT+2!
ZTQUEUED EXIT+1, EXIT+2!
ZTREQ EXIT+1*, EXIT+2!
ZTRTN DATE+19*, EXIT+2!
ZTSAVE EXIT+2!
ZTSAVE("QACDVFLG" DATE+17*, DATE+18*
ZTSAVE("QACGEN" DATE+17*
ZTSAVE("QACGENX" DATE+17*
ZTSAVE("Y" DATE+16*
ZTSK EXIT+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All