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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSDREPD

Package: Controlled Substances

Routine: PSDREPD


Information

PSDREPD ;BIR/BJW-Invoice Review by Date Range ; 12 Feb 98

Source Information

Source file <PSDREPD.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 5 ^%DT  NOW^%DTC  ^DIC  (D,Y)^DIQ  ^DIR  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  $$FMTE^XLFDT  
Controlled Substances 1 ^PSDSET  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDREPV  

Entry Points

Name Comments DBIA/ICR reference
END
HDR
HEADER ;prints header info
SUM ;if summary only
DEV ;asks device and queueing information
START
DATE ;ask date range

External References

Name Field # of Occurrence
^%DT DATE+1, DATE+2
NOW^%DTC SUM+4
^%ZIS DEV+3
HOME^%ZIS DEV+8
^%ZISC END+6
^%ZTLOAD DEV+8
$$S^%ZTLOAD HEADER+2
^DIC PSDREPD+13
D^DIQ DATE+2, DATE+4
Y^DIQ DEV+2
^DIR SUM+3, END+3, HEADER+1
^PSDSET PSDREPD+4
$$FMTE^XLFDT START+13, START+28

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to print",!,?12,"the Invoice Review Report. PSJ RPHARM security key required.",!
  • Line Location: PSDREPD+5
Function Call: WRITE
  • Prompt: !!,"Sorry, no Master Vaults set up for this site.",!!
  • Line Location: PSDREPD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PSDREPD+9
Function Call: WRITE
  • Prompt: !,"Select Invoice Date Range",!
  • Line Location: PSDREPD+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !!,"The ending date of the range must be later than the starting date."
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !!,"This report is designed for a 80 column format.",!,"You may queue this report to print at a later time.",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !!,"Invoice Number ==> ",PSDINV," Order Number ==> ",PSDORD
  • Line Location: START+22
Function Call: WRITE
  • Prompt: !!,"Invoice Number ==> ",PSDINV," Order Number ==> ",PSDORD
  • Line Location: START+23
Function Call: WRITE
  • Prompt: " (Continued)"
  • Line Location: START+23
Function Call: WRITE
  • Prompt: !
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),"^"),"."
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?2,$E($S($P($G(^VA(200,+$G(DUZ),.1)),"^",4)]"":$P($G(^(.1)),"^",4),1:$P($P($G(^VA(200,+$G(DUZ),0)),"^"),",",2)),1,20),"'s Invoice Review From "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $P(PSDATE,"^")," To ",$P(PSDATE,"^",2),?72,"Page ",PSDPG,!?2,$P($G(^PSD(58.8,PSDS,0)),"^"),!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?45,"Report Date: ",PSDT(1)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"Date",?26,"Invoice#",?38,"Order#",?50,"Received By",!,PSDSLN
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!?5,"Drug",?34,"Quantity Received By Date",!,PSDSLN
  • Line Location: HDR+5
Routine Call
  • %ZIS
  • Line Location:
    • DEV+8
Routine Call
  • DIC
  • Line Location:
    • PSDREPD+13
Routine Call
  • DIR
  • Line Location:
    • SUM+3
    • END+3
    • HEADER+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.8 - [#58.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SUM+4
^DD(58.8 DEV+2
^PRC(442 START+3, START+10, START+19
^PSD(58.8 - [#58.8] PSDREPD+6, PSDREPD+11, DEV+2, HDR+2
^PSD(58.81 - [#58.81] START+1, START+2, START+3, START+9, START+10, START+11, START+18, START+19, START+20
^PSDRUG - [#50] START+24, START+26
^TMP("PSD" START+4*, START+7, START+8, START+16, START+17, END+5!
^VA(200 - [#200] START+14, START+27, HEADER+2, HDR+1
^XUSEC("PSJ RPHARM" PSDREPD+5

Label References

Name Line Occurrences
DATE DATE+3
END PSDREPD+7, PSDREPD+9, DATE+1, DATE+2, SUM+3, DEV+4, DEV+5, START, START+6
HDR START
HEADER START+12, START+21

Naked Globals

Name Field # of Occurrence
^( HDR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SUM+4, END+4!
%DT DATE+1!*, END+4!
%DT("A" DATE+1*, DATE+2*
%H END+4!
%I END+4!
%ZIS DEV+3!*, END+4!
%ZIS("B" DEV+3*
C DEV+2*, END+4!
DA SUM+1!, END+4!
DIC PSDREPD+10*, PSDREPD+13!
DIC("A" PSDREPD+10*
DIC("B" PSDREPD+11*
DIC("S" PSDREPD+12*
DIC(0 PSDREPD+10*
DIR SUM+1!, SUM+3!, END+3!, END+4!, HEADER+1!
DIR("?" SUM+2*
DIR("A" SUM+1*, END+3*
DIR("B" SUM+1*
DIR(0 SUM+1*, END+3*, HEADER+1*
DIRUT SUM+1!, SUM+3, END+3, END+4!
DT PSDREPD+6
DTOUT END+4!
DUOUT END+4!
DUZ PSDREPD+5, HEADER+2, HDR+1
IO DEV+9
IO("Q" DEV+3!, DEV+5, DEV+6!, END+4!
IOF END, END+3, HDR
ION DEV+6
IOP DEV+3!
IOSL START+12, START+21
IOST END, END+1, HEADER+1
POP DEV+4, END+4!
PSD0 START+2*, START+3, START+9*, START+10, START+12, START+14, START+18*, START+19, START+24, START+25
, START+26, START+27, START+28, END+4!
PSDATE DATE+2*, DATE+4*, END+4!, HDR+2
PSDC PSDREPD+6*, PSDREPD+7, PSDREPD+8, PSDREPD+9, END+4!
PSDDT START+12*, START+13, END+4!
PSDED DATE+4*, START+1, START+9, START+18, END+4!
PSDEV DEV+2*, DEV+3, END+4!
PSDFIRST START+18*, START+22*, START+23*, END+4!, HDR+6*
PSDFND START+7*, START+9, START+14*, END+4!
PSDINV START+2*, START+4, START+6*, START+7*, START+8, START+9, START+13, START+16*, START+17, START+18
, START+22, START+23, END+5!
PSDKK END+2*, END+5!
PSDLOC END+5!
PSDONE PSDREPD+6*, PSDREPD+8, END+5!
PSDORD START+3*, START+4, START+7*, START+8*, START+10, START+13, START+16*, START+17*, START+19, START+22
, START+23, END+5!
PSDOUT DATE+1*, DATE+2*, DEV+4*, DEV+8*, START*, START+1, START+7, START+8, START+9, START+12
, START+16, START+17, START+18, START+21, END+1, END+3*, END+5!, HEADER+1*, HEADER+2*
PSDPG START*, END+5!, HEADER+1, HDR*, HDR+2, HDR+6
PSDS PSDREPD+6*, PSDREPD+8*, PSDREPD+9*, START+1, END+5!, HDR+2
PSDSD DATE+2*, DATE+3, DATE+4*, START, START+1*, END+5!
PSDSD(1 START*, START+9, START+18
>> PSDSITE PSDREPD+4, PSDREPD+6, PSDREPD+11, PSDREPD+13*, DEV+2
PSDSLN START*, END+5!, HDR+4, HDR+5
PSDSS END+2*, END+5!
PSDSUM SUM+3*, START+6, END+5!, HDR+4
PSDT SUM+4*, END+5!
PSDT(1 SUM+4*, HDR+3
PSDTR START+1*, START+2, START+3, START+9*, START+10, START+11, START+18*, START+19, START+20, END+5!
X SUM+4, END+5!
Y PSDREPD+9, PSDREPD+13, DATE+1, DATE+2, DATE+3, DATE+4, SUM+3, SUM+4*, DEV+2*, END+5!
, HEADER+1
ZTDESC DEV+6*, END+5!, HEADER+2
ZTIO DEV+6*, END+5!
>> ZTQUEUED END+6
>> ZTREQ END+6*
ZTRTN DEV+6*, END+5!
ZTSAVE END+5!
ZTSAVE("PSD*" DEV+7*
ZTSAVE("PSDSITE" DEV+7*
ZTSAVE("PSDSUM" DEV+7*
ZTSK DEV+8!, HEADER+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All