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

Package: Outpatient Pharmacy

Routine: PSOATRPP


Information

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

Source Information

Source file <PSOATRPP.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
SET
END
FO1
PRT ;PRINT REPORT
T1
START
SUMM ;
HD ;PRINT PAGE HEADING
FO

External References

Name Field # of Occurrence
^%ZIS PSOATRPP+3
^%ZISC END
^%ZTLOAD PSOATRPP+8
^DIR START+16, END+2, PRT+3, 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: !,"INTERNET REFILL REPORT BY PATIENT - "_$S(PSODS="D":"Detail",1:"Summary")
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: ?45,$TR(RDATE,"@"," ")
  • 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: !!,"Patient",?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+3
Function Call: WRITE
  • Prompt: !,$P(PSOAB,"^",2)_" ("_$P(PSOAB,"^",3)_")",?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+8
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: !," Total transactions for patient = ",PSOPAT
  • Line Location: FO1+0
Function Call: WRITE
  • Prompt: !!,"NO DATA FOUND TO PRINT FOR THIS RANGE.",!
  • Line Location: SUMM+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SUMM+3
Routine Call
  • DIR
  • Line Location:
    • START+16
    • END+2
    • PRT+3
    • T1
    • SUMM+3
Routine Call
  • %ZIS
  • Line Location:
    • PSOATRPP+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.43 - [#52.43] START+8, START+9, PRT+6, SUMM+7
^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, START+19, END!, FO
, FO+1, FO1, SET+2*, SUMM+1, SUMM+2, SUMM+4, SUMM+5, SUMM+6

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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