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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: QACEMPE

Package: Patient Representative

Routine: QACEMPE


Information

QACEMPE ;WCIOFO/VAD-Report By Employee ;02/10/1999

Source Information

Source file <QACEMPE.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 FIND^DIC  GETS^DIQ  EN^DIQ1  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  $$HTE^XLFDT  
Patient Representative 1 (DATDIV,INST,TASK)^QACUTL0  
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: 3

Package Total Caller Graph
Patient Representative 3 QAC EMPLOYEE  QACBYLOC  QACCSSTD  

Entry Points

Name Comments DBIA/ICR reference
MAIN ;
INIT ;
GTEMP ; Get the Employee Selection.
GTEMP1 ;
GTEMP2 ;
PROCESS ;
SETUP ;
SORT ; Sort thru the data to accumulate results based upon selection criteria
STORIT ; Store sorted ROC data in the ^TMP global for reporting purposes.
RPT ; Print the report
HEADER ;
TRANS(X) ; Module to transform lower-case into uppercase.
EXIT ;

External References

Name Field # of Occurrence
^%ZIS MAIN+7
^%ZISC EXIT+1
FIND^DIC GTEMP+10
GETS^DIQ SORT+9, SORT+43
EN^DIQ1 RPT+19
^DIR HEADER+4
DATDIV^QACUTL0 MAIN+2
INST^QACUTL0 MAIN+3
TASK^QACUTL0 MAIN+16
K^QAQDATE EXIT+2
$$HTE^XLFDT SETUP+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+7
Function Call: WRITE
  • Prompt: !!,"Enter an Employee Name or <CR> for ALL: "
  • Line Location: GTEMP+2
Function Call: WRITE
  • Prompt: !,$C(7),"INVALID NAME...RE-ENTER NAME!"
  • Line Location: GTEMP+5
Function Call: WRITE
  • Prompt: !!,$C(7),"EMPLOYEE SELECTION NOT FOUND...<CR> to Continue"
  • Line Location: GTEMP+13
Function Call: WRITE
  • Prompt: !!?5,QACREC
  • Line Location: GTEMP1+2
Function Call: WRITE
  • Prompt: !!?5,"Is the above Employee the correct one? <Y> "
  • Line Location: GTEMP1+3
Function Call: WRITE
  • Prompt: !!,"PLEASE ENTER 'Y' or 'N'...<CR> to Continue"
  • Line Location: GTEMP1+8
Function Call: WRITE
  • Prompt: !?5,I,".) ",QACREC
  • Line Location: GTEMP2+3
Function Call: WRITE
  • Prompt: !!?5,"Select one of the above: "
  • Line Location: GTEMP2+5
Function Call: WRITE
  • Prompt: !!,"MUST SELECT A NUMBER FROM 1-",QACFOUND,"...<CR> to Continue"
  • Line Location: GTEMP2+8
Function Call: WRITE
  • Prompt: !!?26,"* * * NO DATA TO PRINT * * *",!!
  • Line Location: PROCESS+2
Function Call: WRITE
  • Prompt: !!,QACROCNO,?25,QACROCDT,?45,QACPTNAM
  • Line Location: RPT+23
Function Call: WRITE
  • Prompt: !?3,QACITXT(745.1,QACD0,DR,QACD1)
  • Line Location: RPT+30
Function Call: WRITE
  • Prompt: !?6,QACSVDP
  • Line Location: RPT+36
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,QACDESC,?48,QACTODAY,?70,"PAGE ",QACPAGE
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !?(80-$L(QACHDR2))/2,QACHDR2
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"Contact #",?25,"Date of Contact",?45,"Patient Name"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !?3,"Issue Text",!?6,"Serv/Sect or Discipline"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,QACUNDL
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !?(80-$L(QACDVTXT))/2,QACDVTXT
  • Line Location: HEADER+15
Function Call: WRITE
  • Prompt: !?(80-$L(QACEMTXT))/2,QACEMTXT,!
  • Line Location: HEADER+18
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Routine Call
  • %ZIS
  • Line Location:
    • MAIN+7
Routine Call
  • DIC
  • Line Location:
    • GTEMP+10
Routine Call
  • DIR
  • Line Location:
    • HEADER+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(745.1 - [#745.1] SORT+5, SORT+7, SORT+27, SORT+28, SORT+30, SORT+33, SORT+39, SORT+40, RPT+17
^QA(745.55 - [#745.55] SORT+31
^TMP( GTEMP+11, GTEMP1+1, GTEMP2+2, GTEMP2+9, SETUP+1!, STORIT+2, STORIT+3*, STORIT+8*, RPT+5, RPT+6
RPT+10, RPT+11, RPT+15, RPT+32, EXIT+3!

Label References

Name Line Occurrences
$$TRANS GTEMP+6, GTEMP1+4
EXIT MAIN+2, MAIN+5, MAIN+7, PROCESS+3
GTEMP MAIN+5, GTEMP+5, GTEMP+12, GTEMP+16, GTEMP+17
GTEMP1 GTEMP+16, GTEMP1+7
GTEMP2 GTEMP+17, GTEMP2+7
HEADER PROCESS+2, RPT+9, RPT+22, RPT+29, RPT+35
INIT MAIN+1
PROCESS MAIN+18
RPT PROCESS+1
SETUP PROCESS+1
SORT PROCESS+1
STORIT SORT+46

Naked Globals

Name Field # of Occurrence
^("E" SORT+44*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS MAIN+7!*
DA RPT+18*, EXIT+4!
DIC RPT+18*, EXIT+4!
DIQ RPT+18*, EXIT+4!
DIR HEADER+4!, EXIT+4!
DIR(0 HEADER+4*
DR RPT+18*, RPT+28, RPT+30, EXIT+4!
DTIME GTEMP+2, GTEMP+13, GTEMP1+3, GTEMP1+8, GTEMP2+5, GTEMP2+8
I GTEMP2+1*, GTEMP2+2, GTEMP2+3, EXIT+12!
IO RPT+1
IO("Q" MAIN+9
IOF HEADER+6
IOP MAIN+7!
IOSL RPT+22, RPT+29, RPT+35
IOST HEADER+4, HEADER+6
POP MAIN+7, EXIT+12!
QAC1DIV MAIN+3, SORT+2, SORT+18, SORT+20, HEADER+13, EXIT+5!
QAC3ARAY SORT+25!, EXIT+5!
QAC3ARAY( SORT+34, SORT+35*, STORIT+6, STORIT+7
QAC4ARAY EXIT+5!
QACALL GTEMP+1*, GTEMP+4*, STORIT+1, EXIT+5!
QACCONT EXIT+5!
QACCREC0 EXIT+5!
QACD0 SORT+6*, SORT+7*, SORT+9, SORT+10, SORT+27, SORT+28, SORT+30, SORT+33, SORT+39, SORT+40
STORIT+3, RPT+16*, RPT+17, RPT+18, RPT+28, RPT+30, EXIT+5!
QACD0X SORT+10*, SORT+11, SORT+12, SORT+13, SORT+14, SORT+19, SORT+21, EXIT+5!
QACD1 SORT+26*, SORT+27*, SORT+28, SORT+30, SORT+33, SORT+38*, SORT+39*, SORT+40, RPT+27*, RPT+28*
RPT+30, EXIT+6!
QACD2 SORT+29*, SORT+30*, SORT+31, SORT+33, EXIT+6!
QACD3 SORT+32*, SORT+33*, EXIT+6!
QACDATA GTEMP+9*, GTEMP+10, EXIT+6!
QACDATE1 SORT+1*, SORT+5*, SORT+7, EXIT+6!
QACDESC MAIN+10, INIT+3*, HEADER+7, EXIT+6!
QACDOK SORT+15*, SORT+18, SORT+20*, EXIT+6!
QACDTIM SETUP+6*, SETUP+7, SETUP+8, EXIT+6!
QACDV EXIT+6!
QACDVNAM MAIN+3, INIT+1*, SORT+2*, SORT+21*, SORT+22*, STORIT+8, RPT+4*, RPT+5*, RPT+6, RPT+10
RPT+11, RPT+32, HEADER+14, HEADER+15, EXIT+7!
QACDVNO SORT+19*, SORT+20, EXIT+7!
QACDVTXT HEADER+14*, HEADER+15, EXIT+7!
QACEMPNM SETUP+2!, RPT+4*, RPT+6*, RPT+10, RPT+11, RPT+32, HEADER+17, HEADER+18, EXIT+7!
QACEMPNM(200 SORT+42, SORT+44, SORT+45
QACEMTXT HEADER+17*, HEADER+18, EXIT+7!
QACENAM SORT+45*, STORIT+1, STORIT+8, EXIT+7!
QACENO SORT+40*, SORT+41, SORT+43, EXIT+7!
QACENOX SORT+41*, SORT+42, SORT+44, SORT+45, EXIT+7!
QACERR GTEMP+9*, GTEMP+10, EXIT+8!
QACESEL GTEMP+1*, GTEMP+2*, GTEMP+3, GTEMP+4, GTEMP+5, GTEMP+6*, GTEMP+10, GTEMP1+6*, GTEMP2+9*, STORIT+1
EXIT+8!
QACFIL GTEMP+9*, GTEMP+10, EXIT+8!
QACFLDS GTEMP+9*, GTEMP+10, EXIT+8!
QACFLGS GTEMP+9*, GTEMP+10, EXIT+8!
QACFOUND GTEMP+11*, GTEMP+12, GTEMP+16, GTEMP2+1, GTEMP2+7, GTEMP2+8, EXIT+8!
QACHDR2 SETUP+4*, HEADER+8, EXIT+8!
QACINFO INIT+1*, PROCESS+2, HEADER+15*, HEADER+18*, EXIT+8!
QACITXT RPT+14!, RPT+26, EXIT+8!
QACITXT( RPT+28, RPT+30
QACNUM GTEMP2+5*, GTEMP2+6, GTEMP2+7, GTEMP2+9, EXIT+9!
QACOK GTEMP+15*, GTEMP+16, GTEMP+17, GTEMP1+6*, GTEMP2+10*, EXIT+9!
QACOUT SORT+8!, EXIT+9!
QACOUT( SORT+11, SORT+12, SORT+13, SORT+14, SORT+19, SORT+21
QACPAGE SETUP+3*, HEADER+1*, HEADER+2, HEADER+6, HEADER+7, EXIT+9!
QACPTNAM SORT+14*, STORIT+3, RPT+16*, RPT+23, EXIT+9!
QACPTNO SORT+13*, EXIT+9!
QACQUIT SETUP+3*, RPT+5, RPT+6, RPT+9, RPT+10, RPT+11, RPT+22, RPT+26, RPT+28, RPT+29
RPT+32, RPT+35, HEADER+2, HEADER+4*, EXIT+9!
QACREC GTEMP1+1*, GTEMP1+2, GTEMP1+6, GTEMP2+2*, GTEMP2+3, RPT+15*, RPT+16, EXIT+9!
QACROCDT SORT+12*, STORIT+3, RPT+16*, RPT+23, EXIT+10!
QACROCNO SORT+11*, STORIT+2, STORIT+3, STORIT+8, RPT+4*, RPT+11*, RPT+15, RPT+23, RPT+32, EXIT+10!
QACRTN INIT+2*, GTEMP+11, GTEMP1+1, GTEMP2+2, GTEMP2+9, SETUP+1, STORIT+2, STORIT+3, STORIT+8, RPT+5
RPT+6, RPT+10, RPT+11, RPT+15, RPT+32, EXIT+3, EXIT+10!
QACSEQ SORT+34*, SORT+35, STORIT+5*, STORIT+7*, STORIT+8, RPT+4*, RPT+32*, EXIT+10!
QACSNO EXIT+10!
QACSVDP SORT+31*, SORT+34, SORT+35, STORIT+5*, STORIT+6*, STORIT+7, STORIT+8, RPT+4*, RPT+10*, RPT+11
RPT+32, RPT+36, EXIT+10!
QACTIME SETUP+7*, SETUP+8, EXIT+10!
QACTODAY SETUP+8*, HEADER+7, EXIT+10!
QACUNDL SETUP+5*, HEADER+11, EXIT+11!
QAQDTOUT EXIT+11!
QAQNBEG SORT+1, EXIT+11!
QAQNEND SORT+5, EXIT+11!
QAQPOP MAIN+2, MAIN+5, INIT+1*, GTEMP+3*, EXIT+11!
QAQRANG SETUP+4, EXIT+11!
R GTEMP+13*, GTEMP1+3*, GTEMP1+4*, GTEMP1+5*, GTEMP1+6, GTEMP1+7, GTEMP1+8*, GTEMP2+8*, EXIT+12!
U SORT+31, STORIT+3, RPT+16
X TRANS~, TRANS+1*, TRANS+2, EXIT+12!
Y HEADER+4, EXIT+12!
ZTDESC MAIN+10*, EXIT+12!
>> ZTQUEUED EXIT+1
>> ZTREQ EXIT+1*
ZTRTN MAIN+11*, EXIT+12!
ZTSAVE EXIT+12!
ZTSAVE("QAC1DIV" MAIN+13*
ZTSAVE("QACALL" MAIN+12*
ZTSAVE("QACDESC" MAIN+12*
ZTSAVE("QACDVNAM" MAIN+13*
ZTSAVE("QACESEL" MAIN+14*
ZTSAVE("QACINFO" MAIN+14*
ZTSAVE("QACRTN" MAIN+14*
ZTSAVE("QAQRANG" MAIN+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 |  Naked Globals |  Local Variables  | All