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

Package: Outpatient Pharmacy

Routine: PSOATRD


Information

PSOATRD ;BIR/SJA - INTERNET REFILL BY DATE ;05/29/07 12:36pm

Source Information

Source file <PSOATRD.m>

Entry Points

Name Comments DBIA/ICR reference
START
END
HD ;PRINT PAGE HEADING
PRT ;PRINT REPORT
PRTD
FO
T1
FO1 ;
SET
SET1
SUMM ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO DATA FOUND TO PRINT FOR THIS RANGE.",!
  • Line Location: START+15
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST)="P"
  • Line Location: START+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !,"INTERNET REFILL BY DATE - "_$S(PSODS="D":" Detail",1:"Summary")
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: ?41,$P(RDATE,":",1,2)
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: ?$S($G(PSORMZ):120,1:68),"PAGE: "_PAGE
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,$S(PSODS="D":"Not Filled - ",1:"")_"For date range "_$G(PSOSDX)_" through "_$G(PSOEDX)_" for "_$P(^PS(59,DIV,0),"^")
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !!,"Date Processed",?35,"Filled",?48,"Not Filled",?63,"Total"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: ?$S($G(PSORMZ):56,1:20),"Reason"
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: ?35,PSO(1),?48,PSO(2),?63,(PSO(1)+PSO(2))
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: ?$S($G(PSORMZ):56,1:20),$P(PNODE,"^",10)
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: PRTD+0
Function Call: WRITE
  • Prompt: !!,"COUNT: ",?35,PSOT(1),?48,PSOT(2),?63,(PSOT(1)+PSOT(2))
  • Line Location: FO+0
Function Call: WRITE
  • Prompt: !
  • Line Location: T1+0
Function Call: WRITE
  • Prompt: !,"Count: ",PSOT(2),!
  • Line Location: FO1+2
Function Call: WRITE
  • Prompt: !!,"NO DATA FOUND TO PRINT FOR THIS RANGE.",!
  • Line Location: SUMM+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SUMM+4
Info |  Source |  Entry Points |  Interaction Calls