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

Package: CMOP

Routine: PSXRACT


Information

PSXRACT ;BIR/HW-ACTIVITY REPORT [ 05/10/97 2:28 PM ] ; 31 Oct 2000 2:28 PM

Source Information

Source file <PSXRACT.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 NOW^%DTC  ^DIR  

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

Package Total Caller Graph
CMOP 1 PSXR ACTIVITY  

Entry Points

Name Comments DBIA/ICR reference
BEGDATE
ENDDATE
DEVICE
QUE
Q1
ST0
START
DIVISION ;
ONEDIV ;
BATCH
GRNDSUM ;
END
EXIT ;
RX ; COUNT RX DATA
TITLE
AHEAD
PRINT
SEL ;Select divisions
; returns arrays
; DIVNM("names of divisions")=selection number
; DIVDA("iens of divisions")=name of division
; for testing
SELECT ;
ALL

External References

Name Field # of Occurrence
NOW^%DTC TITLE+3
^%ZIS DEVICE+1
^%ZISC DEVICE+4, EXIT+3
^%ZTLOAD QUE+3
^DIR BEGDATE, ENDDATE+3, PRINT+1, SEL+10, SELECT+3, ALL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Future dates are not allowed.",!
  • Line Location: BEGDATE+3
Function Call: WRITE
  • Prompt: !,"Ending date must follow beginning date!"
  • Line Location: ENDDATE+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !,?9,DIV,?35,$J($G(TORDS(DIV)),7),?43,$J($G(TRXS(DIV)),6),?53,$J($G(PSXCRT(DIV)),7),?63,$J($G(PSXNDT(DIV)),7),?73,$J($G(PSXCUT(DIV)),5)
  • Line Location: BATCH+16
Function Call: WRITE
  • Prompt: !!,"TOTAL",?35,$J($G(TORDS),7),?43,$J($G(TRXS),6),?53,$J($G(PSXCRT),7),?63,$J($G(PSXNDT),7),?73,$J($G(PSXCUT),5)
  • Line Location: GRNDSUM+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+0
Function Call: WRITE
  • Prompt: !,?30,"CMOP ACTIVITY REPORT"_$S($G(ZZTOT)=1:" SUMMARY",1:"")
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !,DIVDA(DIVDA)
  • Line Location: TITLE+5
Function Call: WRITE
  • Prompt: !,"For ",PSXBP," thru ",$P(PSXEP,"@"),?40,"Printed: ",PSXNOW
  • Line Location: TITLE+6
Function Call: WRITE
  • Prompt: !,"TRANS #",?9,"DIVISION",?37,"ORDERS",?45,"RXS",?53,"RELEASED",?63,"NOT DISP",?73,"UNREL"
  • Line Location: AHEAD+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,"SELECTION OF DIVISION(S)",!
  • Line Location: SEL+5
Function Call: WRITE
  • Prompt: !,DIV,?5,DIVNM(DIV)
  • Line Location: ALL+0
Routine Call
  • DIR
  • Line Location:
    • BEGDATE
    • ENDDATE+3
    • PRINT+1
    • SEL+10
    • SELECT+3
    • ALL+1
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ENDDATE, ONEDIV+2, ONEDIV+3, TITLE+1, TITLE+2, TITLE+3
^PS(59 - [#59] BATCH+3, SEL+7
^PSRX - [#52] RX+1, RX+2
^PSRX("AS" BATCH+11, BATCH+12
^PSX(550.2 - [#550.2] BATCH, BATCH+1, BATCH+2, BATCH+3, BATCH+6

Label References

Name Line Occurrences
ALL SEL+10
BEGDATE BEGDATE+3
END BEGDATE+1, ENDDATE+4, DEVICE+1, EXIT+1
ENDDATE ENDDATE+6
EXIT DIVISION+3
GRNDSUM DIVISION+2
ONEDIV DIVISION+1
PRINT BATCH+13
RX BATCH+12
SEL ENDDATE+8, ALL+6
SELECT SEL+11
ST0 DEVICE+3
START DEVICE+2
TITLE ONEDIV+5, GRNDSUM+2, PRINT+2, PRINT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+2!, TITLE+3
>> %ZIS DEVICE*
>> %ZIS("A" DEVICE*
>> %ZIS("B" DEVICE*
BATCH BATCH+2*, END!, RX+4, PRINT+5, PRINT+7!
C DEVICE+4!, SELECT+1*
COM RX+11*, RX+14, PRINT+5, PRINT+7!
COM1 PRINT+7!
CT ONEDIV+1*, EXIT+2!
>> DA ALL+5*
DIR BEGDATE!, ENDDATE+3!, Q1+1!, END!, PRINT+1!, SEL+9!, SEL+10!, SELECT+7!, ALL+2!
DIR("A" BEGDATE*, ENDDATE+2*, SELECT+1*, SELECT+2*, ALL+1*
DIR("B" ENDDATE+2*, ALL+1*
DIR(0 BEGDATE*, ENDDATE+2*, PRINT+1*, SEL+9*, SELECT+2*, ALL+1*
DIRUT BEGDATE+1, ENDDATE+4, END!
DIV BATCH+3*, BATCH+4, BATCH+5, BATCH+8, BATCH+10, BATCH+15*, BATCH+16, GRNDSUM+3*, GRNDSUM+4, END+1!
, RX+8, RX+10, RX+13, PRINT+5, PRINT+7!, SEL+6*, SEL+7*, ALL*, ALL+5*
DIVDA DIVISION+1*, BATCH+5, BATCH+15, GRNDSUM+1*, EXIT+2!, TITLE+5, SEL+6!, SEL+7*, ALL+4!
DIVDA( DIVISION+1, BATCH+5, BATCH+15, TITLE+5, ALL+5*
DIVDA(0 GRNDSUM+1*
DIVNM ENDDATE+8, EXIT+2!, SEL+6!, SELECT+4!, SELECT+5!, SELECT+6*
DIVNM( BATCH+4, SEL+7*, SELECT+1, SELECT+6*, ALL, ALL+5!
DIVX SEL+6!, SELECT+5*, SELECT+7!
DIVX( SELECT+6
DT BEGDATE+3, ENDDATE
GT END+1!
I EXIT+2!, SEL+7*, SEL+8*, SELECT+1, SELECT+2, SELECT+6*
IO ST0
IO("Q" DEVICE+3
IOF TITLE, PRINT+3
ION DEVICE+1
IOST DEVICE+2, TITLE, PRINT, PRINT+3
J DEVICE+4!
LINE START+1*, ONEDIV+1*, BATCH+14, GRNDSUM+5, EXIT+2!, TITLE+9, AHEAD+1
NODE BATCH+6*, BATCH+7, BATCH+9, END+1!
ORDS BATCH+7*, BATCH+8, PRINT+5, PRINT+7!
P5502 BATCH+1*, BATCH+2, BATCH+3, BATCH+6, END!
>> POP DEVICE+1
PSX END+2!, RX+1*, RX+2
PSX( RX+5*, RX+7, RX+9, RX+11
PSXB BEGDATE+2*, BEGDATE+3, ENDDATE+6, Q1+1!, ONEDIV+2, ONEDIV+4, END!, EXIT+2!, TITLE+1
PSXBE ONEDIV+2*, EXIT+2!
PSXBP TITLE+1*, TITLE+6, TITLE+8!
PSXCR END+1!, RX+7*, PRINT+5, PRINT+7!
PSXCRT GRNDSUM+6, END+2!, RX+7*
PSXCRT( BATCH+16, GRNDSUM+4, RX+8*
PSXCU RX+12*, RX+14*, PRINT+5, PRINT+7!
PSXCUT GRNDSUM+6, END+2!, RX+12*
PSXCUT( BATCH+16, GRNDSUM+4, RX+13*
PSXD ONEDIV+4*, BATCH*, BATCH+1, BATCH+11, BATCH+12, END!
PSXE ENDDATE+5*, ENDDATE+6, Q1+1!, ONEDIV+3, ONEDIV+4, END!, EXIT+2!, TITLE+2
PSXE1 ONEDIV+4*, BATCH, END!
PSXEE ONEDIV+3*, EXIT+2!
PSXEP TITLE+2*, TITLE+6, TITLE+8!
PSXF BATCH+12*, END+1!, RX+3, RX+7, RX+9, RX+11
PSXFLAG BATCH, BATCH+1, BATCH+13, END+1!, PRINT, PRINT+1*
PSXLAP DEVICE+1*, QUE, END!
PSXLINE END+2!, TITLE+7*, PRINT, PRINT+3, PRINT+6*
PSXND RX+9*, PRINT+5, PRINT+7!
PSXNDT GRNDSUM+6, END+2!, RX+9*
PSXNDT( BATCH+16, GRNDSUM+4, RX+10*
PSXNOW END+2!, TITLE+3*, TITLE+6
PSXOT END!
PSXR BATCH+11*, BATCH+12, END+1!, RX+1, RX+2
PSXRT RX+11*, PRINT+7!
PSXSTAT END+1!, RX+5*, RX+6!
RTRN BATCH+7*, END+2!, RX+11
RXS BATCH+9*, BATCH+10, PRINT+5, PRINT+7!
TORDS BATCH+7*, GRNDSUM+6, END+1!
TORDS( BATCH+8*, BATCH+16, GRNDSUM+3, GRNDSUM+4
TRXS BATCH+9*, GRNDSUM+6, END+1!
TRXS( BATCH+10*, BATCH+16, GRNDSUM+4
X BEGDATE+1, BEGDATE+2!, ENDDATE+1!, END+2!, SELECT+6*
Y BEGDATE+2!, ENDDATE*!, ENDDATE+1!, ENDDATE+5!, Q1+1!, ONEDIV+2*, ONEDIV+3*, END+2!, TITLE+1*, TITLE+2*
, TITLE+3*, PRINT+1!, SEL+10, SEL+11, SELECT+4, SELECT+6, ALL+3
ZFILL END+1!, RX+2*, RX+3!, RX+5, RX+6!
ZNODE END+1!, RX+2*, RX+4, RX+5, RX+6!
>> ZTDESC QUE+2*
>> ZTIO QUE*
>> ZTQUEUED START
>> ZTREQ START*
>> ZTRTN QUE+1*
>> ZTSAVE("DIVDA(" QUE*
>> ZTSAVE("DIVNM(" QUE*
>> ZTSAVE("PSXB" QUE*
>> ZTSAVE("PSXE" QUE*
ZTSK Q1, EXIT+2!
ZZTODAY ENDDATE*, ENDDATE+2, ENDDATE+7!, END!
ZZTOT EXIT+2!, TITLE+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All