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

Package: PCC Medical Query

Routine: AMQQRMD


Information

AMQQRMD ; IHS/CMI/THL - DATE BUCKETS ;

Source Information

Source file <AMQQRMD.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
PCC Medical Query 2 EXIT2^AMQQKILL  PRINT^AMQQSEC  
VA Fileman 1 H^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PCC Medical Query 1 AMQQCMPL  

Entry Points

Name Comments DBIA/ICR reference
COUNT
PRE
SET
WORKTASK
PEXIT
HEADER
PRINT
WORK ; ENTRY POINT FROM AMQQCMPL
DEV
START
PAUSE
EXIT
B1
FAIL
AVE
WORKRUN

External References

Name Field # of Occurrence
H^%DTC COUNT+9, SET+11
^%ZIS DEV+2
^%ZISC PRINT+10, PRINT+11, WORKTASK+6, WORK+4, WORK+5
^%ZTLOAD WORKTASK+5
EXIT2^AMQQKILL WORKRUN+4
PRINT^AMQQSEC DEV+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(13),AMQQDZ
  • Line Location: START+2
Function Call: WRITE
  • Prompt: " (",AMQQDX,")"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!!!,"CRUNCH, CRUNCH....",!!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: $C(13),AMQQDZ," (",AMQQDX,")"
  • Line Location: FAIL+1
Function Call: WRITE
  • Prompt: !!,"TOTAL"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?J,@AMQQDGR@("C",I)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?(J+8),AMQQDTOT
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,"DAYS"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?J,$P(AMQQDD,U,I)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?J,$P(AMQQDD,U,I)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"AVERAGE"
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?(J+8)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?(J+8)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?J,%
  • Line Location: AVE+4
Function Call: WRITE
  • Prompt: !,X,"-",Y
  • Line Location: B1+7
Function Call: WRITE
  • Prompt: ?J,$S($D(@AMQQDGR@("A",AMQQDLIN,I)):^(I),1:".")
  • Line Location: B1+8
Function Call: WRITE
  • Prompt: ?(J+8),@AMQQDGR@("B",AMQQDLIN)
  • Line Location: B1+8
Function Call: READ
  • Prompt: "<>"
  • Formatting: !
  • Timeout: DTIME
  • Variable: AMQQRQ
  • Line Location: PAUSE+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: !,"WORKLOAD DISTRIBUTION REPORT: ",AMQQDDS," to ",AMQQDDF,!
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: "VISIT TIME"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: ?J,$P("SUN^MON^TUE^WED^THU^FRI^SAT",U,I)
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?(J+8),"TOT"
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,AMQQDY
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request queued!",1:"Request cancelled!"),!!!
  • Line Location: WORKTASK+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WORK+4
Function Call: WRITE
  • Prompt: !!!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: " <= Not a secure device!!",*7
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !!,"You can not queue a job to a slave printer..Try again",!!,*7
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WORKRUN+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WORKRUN+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] SET
^DD("DD" COUNT+3, COUNT+6
^UTILITY("AMQQ" AMQQRMD+5, PRE!

Label References

Name Line Occurrences
AVE PRINT+9
B1 PRINT+4
COUNT PRINT+1
DEV WORK+1, DEV+4, DEV+5
FAIL SET+1
HEADER PRINT+2, PAUSE+2
PAUSE PRINT+4
PEXIT PRINT, PRINT+4, PRINT+10
PRE START+5
PRINT WORKRUN+2
SET START+3, START+6
START AMQQRMD+3
WORKRUN WORK+5
WORKTASK WORK+4

Naked Globals

Name Field # of Occurrence
^( SET+13*, SET+14*, SET+15*, B1+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% AMQQRMD+5*, AMQQRMD+6, AMQQRMD+7, EXIT!, COUNT+14*, COUNT+16, SET*, SET+1, SET+2, SET+3
, SET+4, SET+5, SET+6*, SET+7*, SET+8*, SET+9, SET+13*, SET+14*, SET+15*, PRINT+9*
, AVE+1*, AVE+2*, AVE+3*, AVE+4, B1*, B1+1*, B1+2, B1+3, B1+5, WORKTASK+4*
%H EXIT!, COUNT+9, PEXIT!
%T EXIT!, PEXIT!
%Y EXIT!, COUNT+10, COUNT+14, SET+12, PEXIT!
>> %ZIS DEV+1*
A EXIT!, PEXIT!
>> AMQP(1 AMQQRMD+3, AMQQRMD+7*, SET
>> AMQQCCLS AMQQRMD+3
AMQQDAY SET*, SET+10, SET+12*, SET+13, SET+15, PEXIT!
AMQQDD COUNT+17*, PRINT+8, PRINT+9, PEXIT!, AVE+1, AVE+2
AMQQDDF COUNT+1*, COUNT+5, COUNT+7*, SET+3*, SET+5*, PEXIT!, HEADER+1
AMQQDDS COUNT*, COUNT+2, COUNT+4*, SET+2*, SET+4*, PRINT, PEXIT!, HEADER+1
AMQQDGR PRE+1*, PRE+2, PRE+3, SET+13, SET+14, SET+15, PRINT+3*, PRINT+7, PEXIT!, AVE+2
, B1+8
AMQQDLIN PRINT+4*, PEXIT!, B1, B1+8, PAUSE*, PAUSE+1
AMQQDTIM SET+9*, SET+13, SET+14, PEXIT!
AMQQDTOT PRE+4*, SET+16*, PRINT+7, PRINT+9, PEXIT!
AMQQDX START*, START+2, FAIL*, FAIL+1, PEXIT!
AMQQDY PRINT+12*, PEXIT!, HEADER+5*, HEADER+6*, HEADER+7, HEADER+8!
AMQQDZ START*, START+1*, START+2, START+3, FAIL+1, PEXIT!
>> AMQQHOLD AMQQRMD+4, AMQQRMD+5
>> AMQQQUIT WORK+2, DEV+3*
AMQQRI HEADER+8!
AMQQRJ HEADER+8!
AMQQRMFL PEXIT!, WORK+3*
AMQQRQ PAUSE*!
>> AMQQUATN AMQQRMD+4, AMQQRMD+5
>> AMQV(0 WORKRUN+1
D1 COUNT*, COUNT+8!, COUNT+17!
D2 COUNT+1*, COUNT+8!, COUNT+17!
DTIME PRINT+12, PAUSE
DTOUT DEV+3!
DUOUT DEV+3!
G EXIT!, PEXIT!
I EXIT!, COUNT+16*, PRE+2*, PRE+3*, PRINT+6*, PRINT+7*, PRINT+8*, PRINT+9*, AVE*, AVE+1
, AVE+2, B1+4*, B1+8*, HEADER+3*, HEADER+4*, WORKTASK+4*
IO WORK+5, DEV+5
IO("Q" WORK+4, DEV+5
IO(0 DEV+5
IOF PRINT+10, HEADER, WORK+4, WORKRUN, WORKRUN+3
ION WORKTASK+1
IOSL PRINT+4
IOST START+2, START+4, PRINT+10, PAUSE, WORKRUN+3
J EXIT!, PRINT+7*, PRINT+8*, PRINT+9*, AVE+4, B1+8*, HEADER+4*
N EXIT!, PRINT+8*, PRINT+9, PEXIT!
POP DEV+3!
U AMQQRMD+5, COUNT+16, PRINT+8, AVE+1, AVE+2, PAUSE, HEADER+4
X COUNT+9*, COUNT+11*, COUNT+12, COUNT+13, COUNT+15*, COUNT+16*, COUNT+17, SET+10*, PEXIT!, B1+2*
, B1+5*, B1+6*, B1+7
X( COUNT+9*
X(0 COUNT+10*
X(1 COUNT+11
X(2 COUNT+11
Y COUNT+2*, COUNT+4, COUNT+5*, COUNT+7, COUNT+9*, COUNT+12*, COUNT+16, PEXIT!, B1+3*, B1+5*
, B1+6*, B1+7
Z EXIT!, COUNT+13*, COUNT+14, PEXIT!
>> ZTDESC WORKTASK+3*
>> ZTDTH WORKTASK+2*
>> ZTIO WORKTASK+1*
>> ZTQUEUED WORKRUN+4
>> ZTREQ WORKRUN+4*
>> ZTRTN WORKTASK*
>> ZTSAVE( WORKTASK+4*
>> ZTSK WORKTASK+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All