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

Package: PCC Medical Query

Routine: AMQQCMPP


Information

AMQQCMPP ;IHS/CMI/THL - MANAGES PRINTED REPORTS ;

Source Information

Source file <AMQQCMPP.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
PCC Medical Query 3 ELT^AMQQCMP0  EXIT2^AMQQKILL  PRINT^AMQQSEC  
VA Fileman 2 YN^DICN  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
PCC Medical Query 2 AMQQCMPL  AMQQRMA1  

Entry Points

Name Comments DBIA/ICR reference
COUNT ; ENTRY POINT FROM AMQQCMPL
TASK
RUN
COVER ; - EP -
DEV
CV1
QUEUE ;F I=1:1 S %=$P("AMQV(;AMQQ200(;AMQQRV;AMQQSUPF;AMQQNV;AMQQFFF;AMQQXV;AMQQUSR;^UTILITY(""AMQQ"",$J,;^UTILITY(""AMQQ RAND"",$J,;^UTILITY(""AMQQ TAX"",$J,",";",I) Q:%="" S ZTSAVE(%)=""
TASKC
EXIT
SUP

External References

Name Field # of Occurrence
^%ZIS DEV+3
^%ZISC RUN+7, QUEUE+3, COUNT+6
^%ZTLOAD QUEUE+2
ELT^AMQQCMP0 TASKC+8
EXIT2^AMQQKILL TASK+5, TASKC+13
PRINT^AMQQSEC DEV+6
YN^DICN SUP+2
^DIR RUN+4, TASK+3, CV1+13, TASKC+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request queued!",1:"Request cancelled!"),!!!
  • Line Location: QUEUE+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: " <= Not a secure device!!",*7
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: !!,"You can not queue a job to a slave printer..Try again",!!,*7
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: !,"Total: ",+$G(AMQQTOT)
  • Line Location: TASK+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TASK+4
Function Call: WRITE
  • Prompt: !!!!,%,!
  • Line Location: COVER+3
Function Call: WRITE
  • Prompt: "** WARNING...The following report may contain CONFIDENTIAL PATIENT DATA. **"
  • Line Location: COVER+4
Function Call: WRITE
  • Prompt: !,"** You are accountable for keeping the report in a SECURE AREA at all times.**"
  • Line Location: COVER+5
Function Call: WRITE
  • Prompt: !,"** SHRED the report as soon as it is no longer needed. **"
  • Line Location: COVER+6
Function Call: WRITE
  • Prompt: !,"** PRIVACY ACT violators are subject to a $5000 fine! **"
  • Line Location: COVER+7
Function Call: WRITE
  • Prompt: !,%
  • Line Location: COVER+8
Function Call: WRITE
  • Prompt: !,"Date of report: "
  • Line Location: CV1+7
Function Call: WRITE
  • Prompt: Y
  • Line Location: CV1+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: CV1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: CV1+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: CV1+13
Function Call: WRITE
  • Prompt: !!!!,"COUNTING....",!
  • Line Location: TASKC+1
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: TASKC+2
Function Call: WRITE
  • Prompt: !!!
  • Line Location: TASKC+2
Function Call: WRITE
  • Prompt: $C(13),?9,$C(13)
  • Line Location: TASKC+4
Function Call: WRITE
  • Prompt: "Total: ",+$G(AMQQTOT)
  • Line Location: TASKC+5
Function Call: WRITE
  • Prompt: !,"Search time: ",X
  • Line Location: TASKC+9
Function Call: WRITE
  • Prompt: !!!
  • Line Location: TASKC+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TASKC+12
Function Call: WRITE
  • Prompt: !!,"Want to suppress patient names and only print the chart no."
  • Line Location: SUP+0
Routine Call
  • DIR
  • Line Location:
    • RUN+4
    • TASK+3
    • CV1+13
    • TASKC+10
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" CV1+9
^UTILITY("AMQQ" CV1+12
^XUSEC("AMQQZRPT" RUN+4

Label References

Name Line Occurrences
COVER TASK
CV1 TASKC+2
DEV RUN+5, DEV+6, DEV+7, COUNT+4
EXIT RUN+7
QUEUE COUNT+11
SUP RUN+3
TASK RUN+7
TASKC COUNT+6

Naked Globals

Name Field # of Occurrence
^( CV1+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUEUE+1*, EXIT!, COVER+1*, COVER+2*, COVER+3, COVER+8, CV1*, CV1+1*, CV1+2, CV1+4*
, CV1+5*, CV1+6, CV1+12*, SUP+1*
%Y SUP+3!, SUP+5!, SUP+7!
>> %ZIS DEV+1*
>> %ZIS("B" DEV+2*
>> AMQQ200(3 RUN+4, CV1, CV1+4
>> AMQQFFF RUN+3, TASK, TASK+2
AMQQH1 TASKC*, TASKC+6, TASKC+11!
>> AMQQIOP DEV+4*
AMQQNV RUN~, RUN+1*, COUNT+1~, COUNT+2*
AMQQQUIT RUN+3, RUN+4*, RUN+6, DEV+5*, TASK, COVER+3!, CV1+13*, COUNT+5, SUP+3*, SUP+4*
AMQQRV RUN~, RUN+1*, COUNT+1~, COUNT+2*
AMQQSUPF EXIT!, SUP+6*
>> AMQQTOT TASK+2, TASKC+5
AMQQUSR RUN+4*, EXIT!, CV1+2, CV1+3, CV1+4
AMQQXV RUN~, RUN+2*, COUNT+1~, COUNT+3*
>> AMQV(0 TASK+1, TASKC+3
DIR RUN+4!, TASK+3!, CV1+13!, TASKC+10!
DIR("A" RUN+4*
DIR("B" RUN+4*
DIR(0 RUN+4*, TASK+3*, CV1+13*, TASKC+10*
DIRUT RUN+4!, TASK+3!, CV1+13!, TASKC+10!
DT CV1+8
DTOUT RUN+4!, TASK+3!, CV1+13!, TASKC+10!, SUP+4!
DUOUT RUN+4!, TASK+3!, CV1+13!, TASKC+10!, SUP+4!
DUZ RUN+4, CV1, CV1+2, CV1+3
I QUEUE+1*, EXIT!
IO RUN+7, DEV+4, DEV+7, COUNT+6
IO("Q" RUN+7, DEV+7, COUNT+6
IO(0 DEV+7
IOF EXIT+1, TASK+4, TASKC+12
ION RUN+9, COUNT+8
IOST TASK+3, CV1+13, TASKC+1, TASKC+4, TASKC+10
>> POP DEV+5
U RUN+4, CV1, CV1+4, SUP+3
X EXIT!, TASKC+9
X1 TASKC+6*, TASKC+11!
X2 TASKC+7*, TASKC+11!
Y RUN+4!, EXIT!, CV1+8*, CV1+10
>> ZTDESC RUN+11*, COUNT+10*
>> ZTDTH RUN+10*, COUNT+9*
>> ZTIO RUN+9*, COUNT+8*
>> ZTQUEUED TASK+5, TASKC+13
>> ZTREQ TASK+5*, TASKC+13*
>> ZTRTN RUN+8*, COUNT+7*
>> ZTSAVE( QUEUE+1*
>> ZTSK QUEUE+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All