Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls