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

Package: Controlled Substances

Routine: PSDCOSV


Information

PSDCOSV ;BIR/LTL-Cost Report by High Volume, PSDCOST (cont'd) ; 2 Aug 94

Source Information

Source file <PSDCOSV.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 HOME^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA Fileman 2 COMMA^%DTC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
START
HEADER ;prints header info
PRTQUE ;queues print after data is compiled
END
QUIT

External References

Name Field # of Occurrence
COMMA^%DTC START+7
HOME^%ZIS PRTQUE+1
^%ZISC END+2
^%ZTLOAD PRTQUE+1
$$S^%ZTLOAD HEADER+2
^DIR END+1, HEADER+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: X,!!
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"."
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !?2,PSDCHO(1)," From "
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: $P(PSDATE,U)," To ",$P(PSDATE,U,2),?72,"Page ",PG,!!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: "For "
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: "ALL NAOU(s)"
  • Condition for execution: $G(ALL)
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: "The Following NAOU(s): "
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: $P($G(^PSD(58.8,+PSD(2),0)),U),!?28
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: ?45,"Report Date: ",PSDT(1),!!?40,"Quantity",!,"Drug",?40,"Dispensed"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: ?70,"Cost",!,LN,!!
  • Line Location: HEADER+10
Routine Call
  • %ZIS
  • Line Location:
    • PRTQUE+1
Routine Call
  • DIR
  • Line Location:
    • END+1
    • HEADER+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] PSDCOSV+3, HEADER+6, HEADER+8
^PSD(58.81 - [#58.81] PSDCOSV+3, PSDCOSV+4, PSDCOSV+5, PSDCOSV+8, PSDCOSV+9, PSDCOSV+14, PSDCOSV+18, PSDCOSV+20, PSDCOSV+24
^PSDRUG - [#50] PSDCOSV+7, PSDCOSV+31
^TMP("PSD" PSDCOSV+27, PSDCOSV+29*, PSDCOSV+31*, START+1, START+2*, START+3, START+4, START+8, QUIT!
^VA(200 - [#200] HEADER+2

Label References

Name Line Occurrences
END START+3
HEADER START, START+3
QUIT PRTQUE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ALL HEADER+5, HEADER+6, HEADER+7
DIR HEADER+1!
DIR("A" END+1*
DIR(0 END+1*, HEADER+1*
DUZ HEADER+2
IO("Q" QUIT!
IOF END, HEADER+3
IOSL START+3
IOST PSDCOSV+3, END, END+1, HEADER+1
LN PSDCOSV+2~, HEADER+3*, HEADER+10
>> LOC( PSDCOSV+10, HEADER+6, HEADER+7, HEADER+8
>> LOC(0 HEADER+5, HEADER+6
PG PSDCOSV+2~, START*, HEADER+1, HEADER+3*, HEADER+4
>> PSD START+1
>> PSD(2 HEADER+5*, HEADER+6, HEADER+7, HEADER+8*
>> PSDATE HEADER+4
>> PSDCHO(1 HEADER+3
>> PSDED PSDCOSV+3, PSDCOSV+25
>> PSDIO PRTQUE+1
PSDN PSDCOSV+2~, PSDCOSV+3*, PSDCOSV+4, PSDCOSV+5, PSDCOSV+8, PSDCOSV+10, PSDCOSV+12, PSDCOSV+32!, START*, START+1*
, START+2, START+3*, START+4
PSDN(1 PSDCOSV+4*, PSDCOSV+5, PSDCOSV+7, PSDCOSV+8, PSDCOSV+31, START+1*, START+2, START+3*, START+4, START+5
PSDN(2 PSDCOSV+5*, PSDCOSV+6, PSDCOSV+8, PSDCOSV+10, PSDCOSV+12, PSDCOSV+18, PSDCOSV+20, PSDCOSV+22*, PSDCOSV+26*, START+4*
, START+6, START+7
PSDN(3 PSDCOSV+7*, PSDCOSV+27, PSDCOSV+29, PSDCOSV+31
PSDN(4 PSDCOSV+8*, PSDCOSV+9, PSDCOSV+14, PSDCOSV+18, PSDCOSV+20, PSDCOSV+24
PSDN(5 PSDCOSV+14*, PSDCOSV+16*, PSDCOSV+18*, PSDCOSV+20*, PSDCOSV+26*, PSDCOSV+29, PSDCOSV+31
PSDN(6 PSDCOSV+24*, PSDCOSV+25, PSDCOSV+26
PSDN(7 PSDCOSV+27*, PSDCOSV+29
PSDN(8 PSDCOSV+9*, PSDCOSV+10, PSDCOSV+12, PSDCOSV+16
PSDN(9 PSDCOSV+12*
>> PSDOUT START+3, END+1, HEADER+1*, HEADER+2*
>> PSDSD PSDCOSV+2, PSDCOSV+3*, PSDCOSV+4, PSDCOSV+5, PSDCOSV+8
>> PSDSD(1 PSDCOSV+2*, PSDCOSV+25
>> PSDSITE PSDCOSV+3
>> PSDT(1 HEADER+9
U PSDCOSV+3, PSDCOSV+7, PSDCOSV+10, PSDCOSV+12, PSDCOSV+14, PSDCOSV+16, PSDCOSV+18, PSDCOSV+20, PSDCOSV+25, PSDCOSV+26
, PSDCOSV+29, PSDCOSV+31, START+1, START+2, START+6, START+7, HEADER+2, HEADER+4, HEADER+6, HEADER+8
>> X START+7*
X2 PSDCOSV+2~, START+7*
>> Y HEADER+1
>> ZTDESC PRTQUE+1*, HEADER+2
>> ZTIO PRTQUE+1*
>> ZTQUEUED PSDCOSV+2, PRTQUE+1, END+2
>> ZTREQ PSDCOSV+2*, END+2*
>> ZTRTN PRTQUE+1*
ZTSAVE PRTQUE+1!
ZTSAVE("ALL" PRTQUE+1*
ZTSAVE("LOC(" PRTQUE+1*
ZTSAVE("PSD*" PRTQUE+1*
ZTSAVE("^TMP(""PSD"",$J," PRTQUE+1*
ZTSK PRTQUE+1!, HEADER+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All