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

Package: CMOP

Routine: PSXSMRY


Information

PSXSMRY ;BIR/BAB-CMOP Summary by Date ;04/08/97 2:06 PM

Source Information

Source file <PSXSMRY.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$IEN^XUMF  
VA Fileman 4 ^%DT  ^DIC  $$GET1^DIQ  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
OUT1 ;
EN ;
HDR ;S Y=START X ^DD("DD") S START=Y S Y=END X ^DD("DD") S END=Y,LCNT=0
TRN ;
QUE
DEV
TOTALS ;
PRT ;
GT ;
EXIT
EX1
EX2
PGBK
STRT
OUT ;

External References

Name Field # of Occurrence
^%DT STRT+1, STRT+3
^%ZIS DEV
^%ZISC EX1+4
^%ZTLOAD QUE+2
^DIC STRT+7
$$GET1^DIQ STRT+9, STRT+10, TRN+6
^DIR PRT+11, PGBK
$$IEN^XUMF TRN+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Ending date must follow starting date!"
  • Line Location: STRT+5
Function Call: WRITE
  • Prompt: !,"No Device Selected!"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"No data for the report!"
  • Line Location: TOTALS+4
Function Call: WRITE
  • Prompt: @IOF,!!,?13,"CONSOLIDATED MAIL OUTPATIENT PHARMACY ACTIVITY SUMMARY"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?SP1,HDATE
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?SP,$G(SNAME),!!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?66,$J("NOT",6)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"TRANS #",?18,"DIVISION",?36,$J("PROC",4),?42,$J("ORDERS",6),?50,$J("RXS",6),?58,$J("REL",6)
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?66,$J("DISP",6),?74,$J("UNREL",6)
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,$J((F_"-"_B),15),?18,$E($P(NODE,"^",7),1,16),?36,$J($S($P(NODE,U,3)=0:"NO",1:"YES"),4)
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: ?42,$J($P(NODE,U),6),?50,$J($P(NODE,U,2),6),?58,$J($P(NODE,U,4),6),?66,$J($P(NODE,U,5),6),?74,$J($P(NODE,U,6),6)
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: GT+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: GT+2
Function Call: WRITE
  • Prompt: !!,"TOTAL",?42,$J(TOR,6),?50,$J(TRX,6),?58,$J(TCO,6),?66,$J(TCA,6),?74,$J(TUN,6)
  • Line Location: GT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PGBK+2
Function Call: WRITE
  • Prompt: !!,"GRAND TOTAL",?42,$J(GORD,6),?50,$J(GRX,6),?58,$J(GCOM,6),?66,$J(GND,6),?74,$J(GUNREL,6)
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EX1+2
Function Call: WRITE
  • Prompt: !,"Job cancelled!"
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !,"REPORT Queued!"
  • Line Location: QUE+3
Routine Call
  • DIC
  • Line Location:
    • STRT+7
Routine Call
  • DIR
  • Line Location:
    • PRT+11
    • PGBK
Routine Call
  • %ZIS
  • Line Location:
    • DEV

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TOTALS+2
^PSX(552 TRN+5
^PSX(552.1 EN+2, EN+3, EN+4, TRN+1, TRN+2, TRN+7, TRN+8
^PSX(552.4 TRN+9, TRN+10
^TMP($J STRT!, TOTALS+4, TOTALS+5, TOTALS+6!, OUT+4, OUT1+3, TRN+11*

Label References

Name Line Occurrences
DEV STRT+8
EX1 STRT+1, STRT+3, STRT+7, DEV, TOTALS+7
EX2 TOTALS+4, QUE+4
EXIT TOTALS+7
GT OUT1+4
HDR OUT1+2, PRT+12, PRT+13
OUT TOTALS+5
OUT1 TOTALS+5
PGBK TOTALS+4, TOTALS+5, EXIT, EX2
PRT OUT1+3
QUE DEV+1
STRT STRT+5
TRN EN+4

Naked Globals

Name Field # of Occurrence
^( OUT+4
^(0 TRN+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT STRT+1*, STRT+3!, EX1!
%DT("A" STRT+1*!, STRT+3*
%DT("B" STRT+1*, STRT+3*
%DT(0 STRT+1*, STRT+3*
%ZIS DEV*, EX1!
>> AGNCY TRN+4*, TRN+5*, TRN+6
ALL STRT+8*, EXIT, EX2, EX1+1!
B OUT+4*, OUT1+3*, PRT+6, EX1!
BAT TRN+5*, TRN+11, EX1!
BF EN+2*, EN+3*, EN+4, TRN+5, EX1!
CA TRN+10*, TRN+11, TRN+12!
CO TRN+10*, TRN+11, TRN+12!
DIC STRT+6*, STRT+7!, STRT+14!
DIC("A" STRT+6*
DIC(0 STRT+6*
DIR PRT+11!, PGBK!, EX1!
DIR(0 PRT+11*, PGBK*
DIROUT EX1!
DIRUT EX1!
>> DIV TRN+8*, TRN+11
DTOUT STRT+1, STRT+3, STRT+7, STRT+14!, EX1!
DUOUT STRT+7, STRT+14!, EX1!
END STRT+4*, STRT+5, TOTALS+2*, TOTALS+3, EX1!
F OUT+4*, OUT1+3*, PRT+6, EX1!
FAC TRN+5*, TRN+11, EX1!
FAC1 STRT+8*, STRT+9*, STRT+10*, EN+2, TRN+2, EX1+1!
GCOM PRT+8*, EXIT, EX1+1!
GND PRT+8*, EXIT, EX1+1!
GORD PRT+8*, EXIT, EX1+1!
GRX PRT+8*, EXIT, EX1+1!
GUNREL PRT+8*, EXIT, EX1+1!
HDATE TOTALS+3*, HDR+4, EX1+1!
I GT+2*, EX1!
IO EN+1
IO("Q" DEV+1, EX1+4!, QUE, QUE+2!
IOF HDR+2, PGBK+2, EX1+2
IOSL DEV
IOST PRT+10, PRT+13, PGBK
LAST STRT+4*, EN+2, EX1!
LCNT HDR+1*, HDR+11*, PRT+8*, PRT+11, PRT+12, PRT+13, EX1!
MST TRN+9*, TRN+10, TRN+12!
NODE OUT1+3*, PRT+1, PRT+6, PRT+7, PRT+8, PRT+9!, EX1!
ORD TRN+7*, TRN+11, TRN+12!
>> PGL DEV*, PRT+11, PRT+12, PRT+13
>> POP DEV
PROC TRN+8*, TRN+11, TRN+12!
REC EN+4*, TRN+1, TRN+2, TRN+7, TRN+8, TRN+9, EX1!
RST TRN+10*, TRN+12!
RX TRN+10*, TRN+12!
RXS TRN+7*, TRN+11, TRN+12!
S TOTALS+5*, OUT+2, OUT+4, OUT1+3, EX1!
SITE TRN+6*, TRN+11, EX1!
SNAME OUT+2*, HDR+5, EX1+1!
SNO TRN+6*, EX1!
SP OUT+2*, HDR+5, EX1+1!
SP1 TOTALS+3*, HDR+4, EX1+1!
ST STRT+2*, EN+2*, EN+3, EN+4, EX1!
START STRT+2*, STRT+5, TOTALS+2*, TOTALS+3, EX1!
STOP TOTALS+1, TOTALS+5, TOTALS+7, OUT+1, OUT1+1, OUT1+3, PRT+1, PRT+2*, PRT+11*, GT+1
, PGBK*, EX1+1!
TCA OUT+3*, OUT+4*, GT+4, EX1!
TCO OUT+3*, OUT+4*, GT+4, EX1!
TOR OUT+3*, OUT+4*, GT+4, EX1!
TRX OUT+3*, OUT+4*, GT+4, EX1!
TUN OUT+3*, OUT+4*, GT+4, EX1!
U STRT+10, OUT+4, PRT+6, PRT+7, PRT+8, TRN+1, TRN+7, TRN+8, TRN+10, TRN+11
UN TRN+10*, TRN+11, TRN+12!
X STRT+7, STRT+14!, HDR+10*, TRN+5*, TRN+6, EX1!
XC EX1+1!
XX STRT+10*, EX1+1!
XXC EN+1*, TOTALS+5, PRT+2*, EX1+1!
Y STRT+1, STRT+2, STRT+3, STRT+4, STRT+8, STRT+9, STRT+10, STRT+14!, TOTALS+2*, PRT+11
, TRN+6*, PGBK, EX1!
ZTDESC EX1!, QUE*
ZTDTH EX1!, QUE*
>> ZTQUEUED EX1+3
>> ZTREQ EX1+3*
ZTRTN EX1!, QUE*
ZTSAVE EX1!
ZTSAVE("ALL" QUE+1*
ZTSAVE("END" QUE*
ZTSAVE("FAC1" QUE*
ZTSAVE("GCOM" QUE+1*
ZTSAVE("GND" QUE+1*
ZTSAVE("GORD" QUE+1*
ZTSAVE("GRX" QUE+1*
ZTSAVE("GUNREL" QUE+1*
ZTSAVE("LAST" QUE*
ZTSAVE("PGL" QUE*
ZTSAVE("ST" QUE*
ZTSAVE("START" QUE*
ZTSK EX1!, QUE+2
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