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

Package: Patient Representative

Routine: QACCSSTD


Information

QACCSSTD ;WCIOFO/ERC - Routine for CSS totals ;8/16/97

Source Information

Source file <QACCSSTD.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Patient Representative 4 ISSLOOP^QACBYLOC  SETUP^QACEMPE  LOOP1^QACSPRD  (DATDIV,INST,TASK)^QACUTL0  
Kernel 2 ^%ZIS  ^%ZISC  
Quality Assurance Integration 1 K^QAQDATE  
VA FileMan 1 ^DIR  

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 QAC CSS  

Entry Points

Name Comments DBIA/ICR reference
COUNT
SERV ; Select one Service/Discipline for this report
HEAD ;
SET ;
TSK ; Get data for totaling
COUNTSUM ;counts for summary report
PRINTSUM ;print routine for summary report
PRINT ;print routine for detailed report
INIT ; set up counters for each CSS, discipline and for the total count
TASK ;
EXIT ;
DATE ; Establish date range
DISC ; Select one discipline for this report

External References

Name Field # of Occurrence
^%ZIS TASK+1
^%ZISC EXIT+1
^DIR DATE+10, DATE+20, DATE+25, HEAD+4, DISC+4, SERV+4
ISSLOOP^QACBYLOC SET+9
SETUP^QACEMPE INIT+1
LOOP1^QACSPRD INIT+8
DATDIV^QACUTL0 DATE+13
INST^QACUTL0 SET+2
TASK^QACUTL0 TASK+15
K^QAQDATE EXIT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: TASK+1
Function Call: WRITE
  • Prompt: !?5,"Total for Division: "_QACEE_" "_QACDVTOT(QACEE)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !?5,"Total for Service/Discipline: "_QACFF_" "_^TMP(QACRTN,$J,"COUNT",QACEE,QACFF)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !?5,"Total for Discipline: "_QACGG_" "_^TMP(QACRTN,$J,"COUNT",QACEE,QACFF,QACGG),!
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !?5,"Division: ",QACEE
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !?10,QACSTD(QACHH),?50,$G(^TMP(QACRTN,$J,QACEE,QACFF,QACGG,QACSTD(QACHH)),0)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !!!?25,"No data to report."
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,QACDESC,?48,QACTODAY,?70,"PAGE ",QACPAGE
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,"Date "_QAQRANG
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,$S($G(QACSUM)=1:"SUMMARY",1:"DETAILED")," Report"
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !?51,"NUMBER OF"
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !?10,"CUSTOMER SERVICE STANDARD",?50,"OCCURRENCES"
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !,QACUNDL,!
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !!,"Not a valid Discipline, choose from:"
  • Line Location: DISC+7
Function Call: WRITE
  • Prompt: !?5,$P(^QA(745.5,QACEE,0),U)," (",$P(^QA(745.5,QACEE,0),U,2),")"
  • Line Location: DISC+10
Function Call: WRITE
  • Prompt: !!,"Not a valid service/discipline. Try again."
  • Line Location: SERV+7
Function Call: WRITE
  • Prompt: !!!?25,"No data to report."
  • Line Location: PRINTSUM+4
Function Call: WRITE
  • Prompt: !?5,"For all Divisions"
  • Line Location: PRINTSUM+8
Function Call: WRITE
  • Prompt: !?5,"Division: ",QACEE
  • Line Location: PRINTSUM+9
Function Call: WRITE
  • Prompt: !?5,"Division: ",QACEE
  • Line Location: PRINTSUM+12
Function Call: WRITE
  • Prompt: !?10,QACSTD(QACGG),?55,$G(^TMP(QACRTN,$J,"SUM",QACEE,QACSTD(QACGG)),0)
  • Line Location: PRINTSUM+13
Function Call: WRITE
  • Prompt: !?53,"-----"
  • Line Location: PRINTSUM+14
Function Call: WRITE
  • Prompt: !?45,"TOTAL:",?55,^TMP(QACRTN,$J,"TOT",QACEE)
  • Line Location: PRINTSUM+15
Function Call: WRITE
  • Prompt: !?5,"Division: ",QACEE
  • Line Location: PRINTSUM+17
Function Call: WRITE
  • Prompt: !!!?5,"Totals for all Divisions:"
  • Line Location: PRINTSUM+18
Function Call: WRITE
  • Prompt: !?10,QACSTD(QACFF),?55,$G(^TMP(QACRTN,$J,"SUMCSS",QACSTD(QACFF)),0)
  • Line Location: PRINTSUM+22
Function Call: WRITE
  • Prompt: !?53,"-----"
  • Line Location: PRINTSUM+23
Function Call: WRITE
  • Prompt: !?38,"GRAND TOTAL:",?55,^TMP(QACRTN,$J,"TOT")
  • Line Location: PRINTSUM+24
Routine Call
  • DIR
  • Line Location:
    • DATE+10
    • DATE+20
    • DATE+25
    • HEAD+4
    • DISC+4
    • SERV+4
Routine Call
  • %ZIS
  • Line Location:
    • TASK+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(745.1 - [#745.1] SET+1, SET+18, SET+21, COUNTSUM+2
^QA(745.2 - [#745.2] SET+13, SET+14
^QA(745.5 - [#745.5] SET+24, SET+29, DISC+5, DISC+9, DISC+10
^QA(745.55 - [#745.55] SET+22, SERV+5
^QA(745.6 - [#745.6] INIT+4, INIT+5, SET+15
^TMP( COUNT+3*, COUNT+4*, COUNT+5*, PRINT+3, PRINT+6, PRINT+9, PRINT+11, PRINT+12, PRINT+16, PRINT+18
, EXIT+2!, COUNTSUM+3*, COUNTSUM+4*, COUNTSUM+5*, COUNTSUM+6*, PRINTSUM+3, PRINTSUM+6, PRINTSUM+13, PRINTSUM+15, PRINTSUM+22
, PRINTSUM+24

Label References

Name Line Occurrences
COUNT SET+20
COUNTSUM SET+16
DISC DATE+20, DISC+6
EXIT TASK+1, TASK+2, INIT+9, INIT+11
HEAD PRINT+7, PRINT+15, PRINT+19, PRINTSUM+2, PRINTSUM+12, PRINTSUM+17, PRINTSUM+21
PRINT INIT+10
PRINTSUM INIT+9
SERV DATE+26, SERV+6
TASK DATE+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS TASK+1!*
DIR DATE+11!, HEAD+4!, EXIT+8!, DISC+1!, DISC+4!, SERV+1!, SERV+4!
DIR("?" DATE+9*, DATE+19*, DATE+24*
DIR("A" DATE+7*, DATE+8*, DATE+17*, DATE+22*, DISC+3*, SERV+3*
DIR("B" DATE+18*, DATE+23*
DIR(0 DATE+6*, DATE+16*, HEAD+4*, DISC+2*, SERV+2*
>> DIROUT DISC+4, SERV+4
DIRUT DATE+10, DATE+20, DATE+25, DATE+27, EXIT+8!, DISC+4, SERV+4
IO TSK+1, PRINT+1, PRINTSUM+1
IO("Q" TASK+2
IOF HEAD+5
IOP TASK+1!
IOSL PRINT+15, PRINTSUM+12, PRINTSUM+17, PRINTSUM+21
IOST HEAD+4, HEAD+5
POP TASK+1, EXIT+8!
QAC1DIV SET+3, EXIT+3!, PRINTSUM+8
QACAA INIT+3*, INIT+4*, INIT+5, SET+11*, SET+12*, SET+13, SET+14, SET+18, SET+21, EXIT+6!
, COUNTSUM+2
QACBB SET+17*, SET+18*, SET+19, SET+20, SET+21, EXIT+6!, COUNTSUM+1*, COUNTSUM+2*
QACCSS DATE+2~, SET+14*, SET+15*, COUNT+3, EXIT+3!, COUNTSUM+5, COUNTSUM+6
QACD0 INIT+8, SET+1, SET+18, SET+21, EXIT+3!, COUNTSUM+2
QACDC DATE+2~
>> QACDCN PRINTSUM+5*
QACDCNT EXIT+3!, PRINTSUM+7*, PRINTSUM+16
QACDD EXIT+6!
QACDDD SET+2, SET+4, EXIT+3!
QACDDV SET+1*, SET+2, SET+3, SET+4*, SET+6*, COUNT+2, COUNT+3, COUNT+4, COUNT+5, EXIT+3!
, COUNTSUM+4, COUNTSUM+5
QACDESC DATE+4*, TASK+7, HEAD+6, EXIT+3!
QACDFLG DATE+2~, SET+19, SET+29, EXIT+3!, DISC+5*
QACDIS SET+20*, SET+24*, SET+25*, COUNT+3, COUNT+5, EXIT+4!
QACDISC SET+26, SET+29, EXIT+4!, DISC+5*
QACDV DATE+14, EXIT+3!
QACDVTOT DATE+1!, EXIT+4!
QACDVTOT( COUNT+2*, PRINT+8
QACEE PRINT+2*, PRINT+3*, PRINT+4, PRINT+6, PRINT+8, PRINT+9, PRINT+11, PRINT+12, PRINT+15, PRINT+16
, EXIT+6!, DISC+8*, DISC+9*, DISC+10, PRINTSUM+5*, PRINTSUM+6*, PRINTSUM+8, PRINTSUM+9, PRINTSUM+12, PRINTSUM+13
, PRINTSUM+15, PRINTSUM+17
QACFF PRINT+5*, PRINT+6*, PRINT+9, PRINT+11, PRINT+12, PRINT+16, EXIT+6!, PRINTSUM+19*, PRINTSUM+20*, PRINTSUM+22
QACGG PRINT+10*, PRINT+11*, PRINT+12, PRINT+16, EXIT+6!, PRINTSUM+10*, PRINTSUM+11*, PRINTSUM+13
QACHH PRINT+13*, PRINT+14*, PRINT+16, EXIT+6!
QACIC SET+8!, SET+10, EXIT+4!
QACIC( SET+12, SET+13, SET+14
QACISS DATE+2~
QACNODE SET+21*, SET+22, SET+23, SET+24, SET+25, SET+26, SET+29, EXIT+4!
QACNODIV DATE+2~, DATE+14*, SET+6
QACPAGE HEAD+1*, HEAD+2, HEAD+5, HEAD+6, EXIT+4!
QACQUIT PRINT+3, PRINT+6, PRINT+11, PRINT+14, PRINT+15, HEAD+2, HEAD+4*, EXIT+4!, PRINTSUM+6, PRINTSUM+12
, PRINTSUM+17, PRINTSUM+21
QACQUT SET+17*, SET+18, SET+19*, SET+20*, EXIT+4!
QACROU INIT+6*, INIT+8, EXIT+5!
QACRTN DATE+3*, COUNT+3, COUNT+4, COUNT+5, PRINT+3, PRINT+6, PRINT+9, PRINT+11, PRINT+12, PRINT+16
, PRINT+18, EXIT+2, EXIT+5!, COUNTSUM+3, COUNTSUM+4, COUNTSUM+5, COUNTSUM+6, PRINTSUM+3, PRINTSUM+6, PRINTSUM+13
, PRINTSUM+15, PRINTSUM+22, PRINTSUM+24
QACSFLG DATE+2~, SET+19, SET+23, EXIT+5!, SERV+5*
QACSRV DATE+2~, SET+23, SERV+5*
QACSTD EXIT+5!
QACSTD( INIT+5*, PRINT+14, PRINT+16, PRINTSUM+11, PRINTSUM+13, PRINTSUM+20, PRINTSUM+22
QACSUM DATE+5*, DATE+12*, DATE+15, INIT+9, SET+16, HEAD+8, EXIT+5!
QACSV DATE+2~
QACSVD SET+20*, SET+22*, COUNT+3, COUNT+4, COUNT+5, EXIT+5!
QACTODAY HEAD+6, EXIT+5!
QACTOT COUNT+1*, PRINT+17, EXIT+5!
QACUNDL HEAD+11, EXIT+5!
QACYES DATE+2~, DATE+5*, DATE+21, DISC+5*
QAQNBEG INIT+8, EXIT+7!
QAQNEND INIT+8, EXIT+7!
QAQPOP DATE+13, EXIT+7!
QAQRANG HEAD+7, EXIT+7!
U INIT+5, SET+1, SET+14, SET+15, SET+22, SET+23, SET+24, SET+25, SET+26, SET+29
, DISC+10
>> Y DATE+12, DATE+20, DATE+26, HEAD+4, DISC+5, SERV+5
ZTDESC TASK+7*, EXIT+8!
>> ZTQUEUED EXIT+1
>> ZTREQ EXIT+1*
ZTRTN TASK+14*, EXIT+8!
ZTSAVE EXIT+8!
ZTSAVE("QACCSS" TASK+8*
ZTSAVE("QACD0" TASK+3*
ZTSAVE("QACDFLG" TASK+5*
ZTSAVE("QACDIS" TASK+6*
ZTSAVE("QACEE" TASK+13*
ZTSAVE("QACISSC" TASK+3*
ZTSAVE("QACRTN" TASK+9*
ZTSAVE("QACSFLG" TASK+5*
ZTSAVE("QACSTD" TASK+4*, TASK+10*
ZTSAVE("QACSUM" TASK+12*
ZTSAVE("QACSVD" TASK+6*
ZTSAVE("QAISS" TASK+3*
ZTSAVE("QAQRANG" TASK+11*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All