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

Package: PCC Medical Query

Routine: AMQQDOW


Information

AMQQDOW ; IHS/CMI/THL - GS&CS/OHPRD&ANMC/IHS DAY OF WEEK ;

Source Information

Source file <AMQQDOW.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 H^%DTC  ^DIC  EN1^DIP  ^DIR  
Kernel 2 ^%ZIS  ^%ZTLOAD  

Entry Points

Name Comments DBIA/ICR reference
COUNT
PRE
SET
DIP
PRINT
EXITINFO
INFO ; GET TIME FRAME AND CLINIC TYPE
HEADER
BLIST
EXIT
B1
FAIL
AVE
BLVAR
PAUSE

External References

Name Field # of Occurrence
H^%DTC COUNT, SET+8
^%ZIS PRINT+1
^%ZTLOAD PRINT+10
^DIC INFO+21
EN1^DIP PRINT+4
^DIR INFO+4, INFO+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *13,AMQRZZZ
  • Line Location: AMQQDOW+6
Function Call: WRITE
  • Prompt: " (",AMQRDXXX,")"
  • Line Location: AMQQDOW+6
Function Call: WRITE
  • Prompt: !!!!,"CRUNCH, CRUNCH....",!!
  • Line Location: AMQQDOW+8
Function Call: WRITE
  • Prompt: *13,AMQRZZZ," (",AMQRDXXX,")"
  • Line Location: FAIL+1
Function Call: WRITE
  • Prompt: !!,"TOTAL"
  • Line Location: BLVAR+2
Function Call: WRITE
  • Prompt: ?J,@G@("C",I)
  • Line Location: BLVAR+4
Function Call: WRITE
  • Prompt: ?(J+8),AMQRDTOT
  • Line Location: BLVAR+4
Function Call: WRITE
  • Prompt: !,"DAYS"
  • Line Location: BLVAR+5
Function Call: WRITE
  • Prompt: ?J,$P(AMQRDD,U,I)
  • Line Location: BLVAR+5
Function Call: WRITE
  • Prompt: ?J,$P(AMQRDD,U,I)
  • Line Location: BLVAR+5
Function Call: WRITE
  • Prompt: !,"AVERAGE"
  • Line Location: BLVAR+6
Function Call: WRITE
  • Prompt: ?(J+8)
  • Line Location: BLVAR+6
Function Call: WRITE
  • Prompt: ?(J+8)
  • Line Location: BLVAR+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BLVAR+7
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(@G@("A",AMQRLINE,I)):^(I),1:".")
  • Line Location: B1+8
Function Call: WRITE
  • Prompt: ?(J+8),@G@("B",AMQRLINE)
  • Line Location: B1+8
Function Call: READ
  • Prompt: "<>"
  • Formatting: !
  • Timeout: DTIME
  • Variable: AMQRQ
  • Line Location: PAUSE+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: !,"WORKLOAD REPORT FOR ",$P(AMQRINFO,U),?54,$P(AMQRINFO,U,2)," to ",$P(AMQRINFO,U,3),!
  • 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: !,AMQRX
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !!,"You can not queue a job to a slave printer..Try again",!!,*7
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request queued!",1:"Request cancelled!"),!!!
  • Line Location: PRINT+11
Routine Call
  • DIC
  • Line Location:
    • INFO+21
Routine Call
  • DIR
  • Line Location:
    • INFO+4
    • INFO+12
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVSIT - [#9000010] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" BLVAR+7, BLVAR+8, PRINT+4
^AUPNVSIT - [#9000010] SET
^DD("DD" DIP+10, DIP+14
^UTILITY("AMQRD" PRE!, PRE+2*, PRE+3*, SET+10, SET+11, SET+12

Label References

Name Line Occurrences
AVE BLVAR+6
B1 BLVAR+1
COUNT INFO+17
DIP INFO+24
EXIT BLVAR+1, BLVAR+7
EXITINFO INFO+6, INFO+14, INFO+23, INFO+25, PRINT+2, PRINT+4
FAIL SET+2
HEADER BLIST+1, PAUSE+2
PAUSE BLVAR+1
PRE AMQQDOW+9
PRINT PRINT+3
SET AMQQDOW+7, AMQQDOW+10

Naked Globals

Name Field # of Occurrence
^( SET+10*, SET+11*, SET+12*, B1+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % COUNT+4*, COUNT+6, SET*, SET+1, SET+2, SET+3*, SET+4*, SET+5*, SET+6, SET+10*
, SET+11*, SET+12*, BLVAR+6*, AVE+1*, AVE+2*, AVE+3*, AVE+4, B1*, B1+1*, B1+2
, B1+3, B1+5, PRINT+9*
>> %DT DIP+9*, DIP+13*
%H COUNT, EXIT!
>> %IS PRINT*
%T EXIT!
%Y COUNT+1, COUNT+4, SET+9, EXIT!
A EXIT!
AMQRDAY SET+1*, SET+7, SET+9*, SET+10, SET+12, EXIT!
AMQRDD COUNT+7*, BLVAR+5, BLVAR+6, AVE+1, AVE+2, EXITINFO!
AMQRDTIM SET+6*, SET+10, SET+11, EXIT!
AMQRDTOT PRE+4*, SET+13*, BLVAR+4, BLVAR+6, EXIT!
AMQRDXXX AMQQDOW+4*, AMQQDOW+6, FAIL*, FAIL+1, EXIT!
AMQRI HEADER+8!
AMQRINFO HEADER+1, DIP+7*, DIP+11*, DIP+15*, EXITINFO!
AMQRJ HEADER+8!
AMQRLINE BLVAR+1*, EXIT!, B1, B1+8, PAUSE*, PAUSE+1
AMQRQ PAUSE*!
AMQRX BLIST*, BLVAR+9*, EXIT!, HEADER+5*, HEADER+6*, HEADER+7, HEADER+8!
AMQRZZZ AMQQDOW+4*, AMQQDOW+5*, AMQQDOW+6, AMQQDOW+7, FAIL+1, EXIT!
B EXITINFO!
>> BY DIP+4*
C EXITINFO!
>> D0 SET
>> D1 INFO+8*, DIP+2, DIP+8
>> D2 INFO+16*, DIP+3, DIP+12
>> DHD DIP+5*
DIC INFO+18*, INFO+22!, DIP*, EXITINFO!
DIC("A" INFO+20*
DIC(0 INFO+19*
DIJ EXITINFO!
>> DIOEND PRE+1*
DIR INFO+5!, INFO+13!
DIR("?" INFO+3*, INFO+11*
DIR("A" INFO+2*, INFO+10*
DIR(0 INFO+1*, INFO+9*
>> DIS(0 DIP+6*
DP EXITINFO!
DT INFO+15
DTIME BLIST, BLVAR+9, PAUSE
>> DTOUT INFO+6, INFO+14, INFO+23
>> DUOUT INFO+6, INFO+14, INFO+23
>> FLDS DIP+1*
>> FR DIP+2*
G BLVAR*, BLVAR+4, EXIT!, AVE+2, B1+8
>> I COUNT+6*, PRE+2*, PRE+3*, BLVAR+3*, BLVAR+4*, BLVAR+5*, BLVAR+6*, AVE*, AVE+1, AVE+2
, B1+4*, B1+8*, HEADER+3*, HEADER+4*, PRINT+9*
IO PRINT+3, PRINT+4
IO("Q" PRINT+3, PRINT+4
IO(0 PRINT+3
IOBS PRINT+4!
IOF BLVAR+7, HEADER, PRINT+4!
ION PRINT+4!, PRINT+6
>> IOP PRINT+4*
IOPAR PRINT+4!
IOSL BLVAR+1, PRINT+4!
IOST AMQQDOW+6, AMQQDOW+8, BLIST, BLVAR+7, PAUSE
IOT PRINT+4!
>> J BLVAR+4*, BLVAR+5*, BLVAR+6*, AVE+4, B1+8*, HEADER+4*
N BLVAR+5*, BLVAR+6, EXIT!
P EXITINFO!
POP PRINT+2, PRINT+4!
>> TO DIP+3*
U COUNT+6, BLVAR+5, AVE+1, AVE+2, PAUSE, HEADER+1, HEADER+4, DIP+7, DIP+11
X COUNT*, COUNT+2*, COUNT+3, COUNT+5*, COUNT+6*, COUNT+7, SET+7*, EXIT!, B1+2*, B1+5*
, B1+6*, B1+7, INFO+7, INFO+15, INFO+24
X( COUNT*
X(0 COUNT+1*
X(1 COUNT+2
X(2 COUNT+2
Y COUNT*, COUNT+3*, COUNT+6, EXIT!, B1+3*, B1+5*, B1+6*, B1+7, INFO+7*, INFO+8
, INFO+15*, INFO+16, INFO+24*, INFO+25, DIP+6, DIP+7, DIP+8*, DIP+11, DIP+12*, DIP+15
Z COUNT+3*, COUNT+4, EXIT!
>> ZTDESC PRINT+8*
>> ZTDTH PRINT+7*
>> ZTIO PRINT+6*
>> ZTRTN PRINT+5*
>> ZTSAVE( PRINT+9*
>> ZTSK PRINT+11
Info |  Source |  Call 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