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

Call Graph

Call Graph

Call Graph Total: 7

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

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT PRTD
^%ZIS PSOATRD+3
^%ZISC END
^%ZTLOAD PSOATRD+8
^DIR START+16, END+2, PRT+2, T1SUMM+4
$$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: @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
Routine Call
  • DIR
  • Line Location:
    • START+16
    • END+2
    • PRT+2
    • T1
    • SUMM+4
Routine Call
  • %ZIS
  • Line Location:
    • PSOATRD+3

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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