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

Package: CMOP

Routine: PSXSUDCN


Information

PSXSUDCN ;BIR/HTW-Routine to Provide Report of Rx's Suspended for CMOP ; 31 Oct 2000 1:20 PM

Source Information

Source file <PSXSUDCN.m>

Call Graph

Call Graph Total: 5

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
CMOP 1 PSXR SUSPENSE COUNT  

Entry Points

Name Comments DBIA/ICR reference
Q1
ONEDIV ;
END
BEGDATE ;GET BEGIN DATE
SELECT ;
END1
EN1 ;
EN0
525
QUE
SEL ;Select divisions
; returns arrays
; DIVNM("names of divisions")=selection number
; DIVDA("iens of divisions")=name of division
; for testing
HDR1
BODY ;
DIVISION ;
ENDDATE ;GET ENDING DATE
HEADER
DEVICE
ALL
H1
EXIT ;
B1
GRNDSUM ;
PAGE

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Rx's Suspended for CMOP",!
  • Line Location: BEGDATE+2
Function Call: WRITE
  • Prompt: !,"Ending date must follow beginning date!"
  • Line Location: ENDDATE+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: !,?20,"COUNT OF SUSPENDED CMOP RX's BY DAY"
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !,DIVDA(DIV)
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,"FROM: "_PSXBE," TO: "_$P(PSXEE,"@")," PRINTED: ",PSXNOW
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,"DATE",?14,"QUEUED",?29,"TRANSMITTED",?47,"PRINTED",?62,"TOTAL"
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BODY+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BODY+3
Function Call: WRITE
  • Prompt: !,XDATE,?A,$J($G(PSXQ),5),?B,$J($G(PSXAX),5),?C,$J($G(PSXP),5),?D,$J($G(PSXTOT),5)
  • Line Location: B1+1
Function Call: WRITE
  • Prompt: !,"Division Total",?A,$J($G(PSXQGD),5),?B,$J($G(PSXAXGD),5),?C,$J($G(PSXPGD),5),?D,$J($G(PSXTOTGD),5)
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+4
Function Call: WRITE
  • Prompt: !!,"SELECTION OF DIVISION(S)",!
  • Line Location: SEL+5
Function Call: WRITE
  • Prompt: !,DIV,?5,DIVNM(DIV)
  • Line Location: ALL+0
Function Call: WRITE
  • Prompt: !,DIVDA(DIV)
  • Line Location: GRNDSUM+6
Function Call: WRITE
  • Prompt: !,?A,$J($G(PSXQGD),5),?B,$J($G(PSXAXGD),5),?C,$J($G(PSXPGD),5),?D,$J($G(PSXTOTGD),5)
  • Line Location: GRNDSUM+8
Function Call: WRITE
  • Prompt: !,"Grand Total",?A,$J($G(PSXQGD),5),?B,$J($G(PSXAXGD),5),?C,$J($G(PSXPGD),5),?D,$J($G(PSXTOTGD),5)
  • Line Location: GRNDSUM+11
Routine Call
  • DIR
  • Line Location:
    • BEGDATE+3
    • ENDDATE+3
    • PAGE+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+2, ONEDIV+2, ONEDIV+3, HEADER, B1
^PS(52.5 - [#52.5] ONEDIV+7, 525+1, 525+2, 525+3
^PS(59 - [#59] SEL+7

Label References

Name Line Occurrences
525 ONEDIV+7
ALL SEL+11
B1 BODY+2
BEGDATE ENDDATE+4, ENDDATE+5
BODY ONEDIV+7
EN0 DEVICE+3
EN1 DEVICE+2
END ONEDIV+8
END1 BEGDATE+4, ENDDATE+10, DEVICE+1, EXIT+2
ENDDATE ENDDATE+7
EXIT ENDDATE+10, Q1+2, DIVISION+3
GRNDSUM DIVISION+2
HDR1 BODY+2
HEADER ONEDIV+6, BODY+3, GRNDSUM+3
ONEDIV DIVISION+1
PAGE BODY+2, END+3
SEL ENDDATE+9, ALL+6
SELECT SEL+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HEADER, END1!
>> %ZIS DEVICE*
>> %ZIS("A" DEVICE*
>> %ZIS("B" DEVICE*
A H1+1*, B1+1, END+1, END1+3!, GRNDSUM+8, GRNDSUM+11
ANS ONEDIV+7, BODY+2, PAGE+1*, END1+4!
B H1+1*, B1+1, END+1, END1+3!, GRNDSUM+8, GRNDSUM+11
C H1+1*, B1+1, END+1, END1+4!, SELECT+1*, GRNDSUM+8, GRNDSUM+11
CT ONEDIV+1*, ONEDIV+6*, BODY+2*, BODY+3*, B1*, END1+4!
D H1+1*, B1+1, END+1, END1+3!, GRNDSUM+8, GRNDSUM+11
>> DA ALL+5*
DIR BEGDATE+1!, BEGDATE+3!, ENDDATE+1!, ENDDATE+3!, Q1+1!, PAGE+1!, END1!, SEL+9!, SEL+10!, SELECT+7!
, ALL+2!
DIR("A" BEGDATE+3*, ENDDATE+3*, PAGE+1*, SELECT+1*, SELECT+2*, ALL+1*
DIR("B" ENDDATE+2*, ALL+1*
DIR(0 BEGDATE+3*, ENDDATE+3*, PAGE+1*, SEL+9*, SELECT+2*, ALL+1*
DIROUT END1+4!
DIRUT BEGDATE+4, END1+4!
DIV DIVISION+1*, 525+2, HDR1+2, END+2, EXIT+2!, SEL+6*, SEL+7*, ALL*, ALL+5*, GRNDSUM+2*
, GRNDSUM+5*, GRNDSUM+6, GRNDSUM+7
DIVDA EXIT+2!, SEL+6!, SEL+7*, ALL+4!
DIVDA( DIVISION+1, HDR1+2, ALL+5*, GRNDSUM+5, GRNDSUM+6
DIVDA(0 GRNDSUM+2*
DIVNM ENDDATE+10, EXIT+2!, SEL+6!, SELECT+4!, SELECT+5!, SELECT+6*
DIVNM( SEL+7*, SELECT+1, SELECT+6*, ALL, ALL+5!
DIVRX 525+2*, EXIT+2!
DIVTOT EXIT+2!
DIVTOT( END+2*, GRNDSUM+7
DIVTOT(0 GRNDSUM+4!, GRNDSUM+7*, GRNDSUM+9
DIVX SEL+6!, SELECT+5*, SELECT+7!
DIVX( SELECT+6
DT ENDDATE+2
DTOUT ENDDATE+5, PAGE+1, END1+4!
DUOUT ENDDATE+5, PAGE+1, END1+4!
E END1+3!
FILL END1+1!
I END1+1!, SEL+7*, SEL+8*, SELECT+1, SELECT+2, SELECT+6*
IO EN0
IO("Q" DEVICE+3
IOF HDR1, BODY+2, BODY+3, END+4
ION DEVICE+1
IOST DEVICE+2, HDR1, BODY+2, END+3, END+4
J END1+4!
LINE ONEDIV+1*, HDR1+4, H1+2, END+1, EXIT+2!, GRNDSUM+10
N 525+3*, 525+4, 525+5, 525+6, END1+4!
NODE END1+1!
POP DEVICE+1, END1+1!
PSX525 525+1*, 525+2, 525+3, END1+4!
PSXAD END1+1!
PSXAX ONEDIV+4*, 525+5*, H1+1, B1+1, B1+2, B1+3*, END1!
PSXAXGD B1+2*, END+1, END1+4!, GRNDSUM+8, GRNDSUM+11
PSXB BEGDATE+5*, ENDDATE+7, Q1+1!, ONEDIV+2, ONEDIV+5, EXIT+2!
PSXBE ONEDIV+2*, HDR1+3, EXIT+2!
PSXCR END1+3!
PSXCU END1+3!
PSXD ONEDIV+5*, ONEDIV+7*, 525+1, B1, END1!
PSXE ENDDATE+6*, ENDDATE+7, Q1+1!, ONEDIV+3, ONEDIV+5, EXIT+2!
PSXEE ONEDIV+3*, HDR1+3, EXIT+2!
PSXF END1!
PSXFILL END1+3!
PSXFLAG DIVISION+1, ONEDIV+7, 525, 525+1, BODY+1, PAGE, PAGE+1*, END, EXIT+2!, GRNDSUM+1
PSXGO END1+1!
PSXL ONEDIV+4*, END1!
PSXLAP DEVICE+1*, QUE, END1+2!
PSXM END1+2!
PSXMT END1+4!
PSXMW END1+2!
PSXNOW HEADER*, HDR1+3, END1+2!
PSXOT END1+1!
PSXP ONEDIV+4*, 525+6*, H1+1, B1+1, B1+2, B1+3*, END1!
PSXPGD B1+2*, END+1, END1+4!, GRNDSUM+8, GRNDSUM+11
PSXQ ONEDIV+4*, 525+4*, H1+1, B1+1, B1+2, B1+3*, END1!
PSXQGD B1+2*, END+1, END1+4!, GRNDSUM+8, GRNDSUM+11
PSXR END1+1!
PSXSUSDT END1+3!
PSXTE ONEDIV+5*, ONEDIV+7, EXIT+2!
PSXTOT ONEDIV+4*, 525+7*, H1+1, B1+1, B1+2, B1+3*, END1!
PSXTOTGD B1+2*, END+1, END1+4!, GRNDSUM+8, GRNDSUM+11
PSXUNREL END1!
PSXW END1+2!
PSXWT END1+4!
PSXX END1+3!
PSXYES END1+2!
PSXZ END1+1!
STAT END1+1!
U 525+2
X ENDDATE+1!, END+2*, END1!, SELECT+6*, GRNDSUM+7*, GRNDSUM+9*
XDATE B1*, B1+1, B1+3!
Y BEGDATE+4, BEGDATE+5, ENDDATE+1!, ENDDATE+2*, ENDDATE+4, ENDDATE+6, Q1+1!, ONEDIV+2*, ONEDIV+3*, HEADER*
, B1*, END1!, SEL+11, SEL+12, SELECT+4, SELECT+6, ALL+3
ZTDESC QUE+2*, END1+2!
ZTIO QUE*, END1+2!
>> ZTQUEUED EN1+1
>> ZTREQ EN1+1*
ZTRTN QUE+1*, END1+2!
ZTSAVE END1+2!
ZTSAVE("DIVDA(" QUE*
ZTSAVE("DIVNM(" QUE*
ZTSAVE("PSXB" QUE*
ZTSAVE("PSXE" QUE*
ZTSK Q1, END1+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All