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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSOATRR

Package: Outpatient Pharmacy

Routine: PSOATRR


Information

PSOATRR ;BIR/SJA - INTERNET REFILL REPORT SORTED BY RESULT ;05/29/07 12:36pm

Source Information

Source file <PSOATRR.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Outpatient Pharmacy 1 $$DIV^PSOATRP  
Registration 1 DEM^VADPT  
VA Fileman 1 ^DIR  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS PSOATRR+3
^%ZISC END
^%ZTLOAD PSOATRR+8
^DIR START+16, END+2, PRT+2, T1, SUMM+3
$$DIV^PSOATRP START+11
DEM^VADPT SET+1

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: !,"INTERNET REFILL REPORT BY RESULT"_" - "_$S(PSODS="D":"Detail",1:"Summary")
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: ?45,$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: !!,"Result",?30,"Count"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: ?$S($G(PSORMZ):58,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: ?$S($G(PSORMZ):58,1:20),$P(PNODE,"^",10)
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: !!!,"Total: ",?30,(PSOT(1)+PSOT(2))
  • Line Location: FO+0
Function Call: WRITE
  • Prompt: !,"Filled = "_PSO(1)," Not Filled = ",PSO(2)
  • Line Location: FO+3
Function Call: WRITE
  • Prompt: !
  • Line Location: T1+0
Function Call: WRITE
  • Prompt: !!,"NO DATA FOUND TO PRINT FOR THIS RANGE.",!
  • Line Location: SUMM+2
Routine Call
  • DIR
  • Line Location:
    • START+16
    • END+2
    • PRT+2
    • T1
    • SUMM+3
Routine Call
  • %ZIS
  • Line Location:
    • PSOATRR+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.43 - [#52.43] START+8, START+9, PRT+4, SUMM+6
^PS(59 - [#59] HD+3
^PSRX - [#52] START+10
^TMP($J START+3!, START+5*, START+7*, START+13, START+15, START+17, START+18, END!, FO, FO+1
, SET+2*, SUMM+1, SUMM+2, SUMM+4, SUMM+5, SUMM+6, PRTS+1

Label References

Name Line Occurrences
END PSOATRR+3, PSOATRR+4, START+12
FO START+13, SUMM+1
HD START+15, PRT+2, PRT+3, SUMM+2
PRT START+19
PRTS SUMM+1
SET START+11
SUMM START+12
T1 FO

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS PSOATRR+3!*
DFN START+1~, SET+1*
DIR START+16!, END+2!, PRT+2!, T1!, SUMM+3!
DIR("A" START+16*, END+2*, PRT+2*, T1*, SUMM+3*
DIR(0 START+16*, END+2*, PRT+2*, T1*, SUMM+3*
DIV START+1~, START+13*, START+15, START+17, START+18, HD+3, FO, FO+1, SUMM+1*, SUMM+2
, SUMM+4, SUMM+5, SUMM+6, PRTS+1
EOFLAG START+1~, PRT+1*, PRT+2*, PRT+3*
IO START
IO("Q" PSOATRR+4, PSOATRR+5!
IOF START+13, START+15, END, HD+1, T1+1, SUMM+1
ION PSOATRR+3
IOP PSOATRR+3!*
IOSL PRT+1
IOST START+13, START+15, END, HD+1, PRT+2, PRT+3, T1, T1+1, SUMM+1, SUMM+2
LINE START+1~, START+3*, HD+6
PAGE START+1~, START+3*, START+15*, HD+1, HD+2, HD+6*, SUMM+2*
PNODE START+1~, PRT+4*, PRT+5, PRT+6, SUMM+6*, SUMM+7
POP PSOATRR+3!
PSA START+1~, START+6*, START+9*, SET+2
PSAB START+1~, START+9*, START+10, SET
PSO START+1~
PSO( PRT+5*, SUMM+7*
PSO("TOT" START+14*, START+19*, FO+2
PSO(1 START+14*, FO+3, SUMM+1*, PRTS+1
PSO(2 START+14*, FO+3, SUMM+1*, PRTS+1
PSOAB START+1~, START+18*, PRT+4, PRT+6, SUMM+6*
PSOAFLAG START+1~, START+4*
>> PSOD START+5*, START+6*, START+7
PSODFN START+1~, START+10*, START+17*, START+18, SET+1, SET+2, SUMM+4*, SUMM+5, SUMM+6
>> PSODIV START+6, START+11
>> PSODIV( START+5, START+6
>> PSODS START+12, HD+1, HD+3, HD+4, FO, FO+1, SET
>> PSOED START+8
>> PSOEDX HD+3, FO+2
PSOERR START+1~, START+4*, START+15*, END, SUMM+2*
PSOION PSOATRR+3*!, PSOATRR+4!
PSON START+1~, START+18*, START+19*, PRT+6
PSOP5 START+1~, PRT+5*, PRT+6
PSOP6 START+1~, PRT+5*, SUMM+7*
PSOPAT START+1~, START+17*, START+19*
PSOQUIT PSOATRR+3*, PSOATRR+4*, START+2~, START+3*, START+13, START+17, START+18, END, PRT+1, PRT+2*
, SUMM+1, SUMM+4, SUMM+5
>> PSORMZ START+3, HD+2, HD+5, PRT+6
>> PSORST FO+3
PSORXDV START+2~, START+10*, START+11, SET+2
PSORXIN START+2~, START+10*, START+11, START+18*, SET+2, SUMM+5*, SUMM+6
>> PSOSD START+8
PSOSD1 START+2~, START+8*, START+9
>> PSOSDX HD+3, FO+2
PSOT START+2~
PSOT( SUMM+7*
PSOT(1 FO, SUMM+1*
PSOT(2 FO, SUMM+1*
>> RDATE HD+2
>> VA("BID" SET+2
>> VADM(1 SET+2
VAR PSOATRR+5~, PSOATRR+6*
X START+2~
Y START+2~, PRT+2, PRT+5*
>> ZTDESC PSOATRR+5*
ZTDTH PSOATRR+5!
ZTIO PSOATRR+5!
>> ZTQUEUED END
>> ZTREQ END*
>> ZTRTN PSOATRR+5*
ZTSAVE PSOATRR+5!
ZTSAVE( PSOATRR+6*
ZTSAVE("PSODIV*" PSOATRR+7*
ZTSK PSOATRR+4!, PSOATRR+5!, PSOATRR+8
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All