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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSDCOSD

Package: Controlled Substances

Routine: PSDCOSD


Information

PSDCOSD ;BIR/LTL-Cost Report by Drugs, PSDCOST (cont'd) ; 2 Aug 94

Source Information

Source file <PSDCOSD.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+9, START+17, START+19
HOME^%ZIS PRTQUE+1, START+20
^%ZISC END+2
^%ZTLOAD PRTQUE+1, START+20
$$S^%ZTLOAD HEADER+2
^DIR END+1, HEADER+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?8,"DRUG ==> ",PSDN," (continued)",!!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: LN,!?28,"Total: ",$J($G(PSDN(3)),10),?62
  • Line Location: START+16
Function Call: WRITE
  • Prompt: X,!!
  • Line Location: START+17
Function Call: WRITE
  • Prompt: LN,!?14,"Total for all NAOUs: ",$J($G(PSDN(6)),10)
  • Line Location: START+19
Function Call: WRITE
  • Prompt: ?62,X,!!
  • Line Location: START+19
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: ?45,"Report Date: ",PSDT(1),!!?40,"Quantity",!,"NAOU",?40,"Dispensed"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?70,"Cost",!,LN,!!
  • Line Location: HEADER+6
Routine Call
  • %ZIS
  • Line Location:
    • PRTQUE+1
    • START+20
Routine Call
  • DIR
  • Line Location:
    • END+1
    • HEADER+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] PSDCOSD+3, PSDCOSD+13, START+5
^PSD(58.81 - [#58.81] PSDCOSD+3, PSDCOSD+4, PSDCOSD+6, PSDCOSD+9, PSDCOSD+10, PSDCOSD+15, PSDCOSD+19, PSDCOSD+21, PSDCOSD+25
^PSDRUG - [#50] PSDCOSD+8, START+8
^TMP("PSD" PSDCOSD+28, PSDCOSD+30*, PSDCOSD+32*, PSDCOSD+34*, PSDCOSD+36*, PSDCOSD+38*, PSDCOSD+40*, START+1, START+3, START+6
, START+21, QUIT!
^TMP("PSDM" START+15*, START+20, QUIT!
^VA(200 - [#200] HEADER+2

Label References

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

Naked Globals

Name Field # of Occurrence
^(0 PSDCOSD+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ALL PSDCOSD+5
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+1, START+3
IOST PSDCOSD+3, END, END+1, HEADER+1
LN PSDCOSD+2~, START+16, START+19, HEADER+3*, HEADER+6
>> LOC( PSDCOSD+5
PG PSDCOSD+2~, START*, HEADER+1, HEADER+3*, HEADER+4
PG( START+1!, START+4!, HEADER+3*
>> PSDATE HEADER+4
>> PSDCHO(1 HEADER+3
>> PSDED PSDCOSD+3, PSDCOSD+26
>> PSDIO PRTQUE+1
PSDN PSDCOSD+2~, PSDCOSD+3*, PSDCOSD+4, PSDCOSD+6, PSDCOSD+9, PSDCOSD+12, PSDCOSD+41!, START*, START+1*, START+2
, START+3, START+4, START+6, START+15, HEADER+3
PSDN(1 PSDCOSD+4*, PSDCOSD+5, PSDCOSD+6, PSDCOSD+8, PSDCOSD+9, PSDCOSD+32, START+2*, START+3*, START+5, START+6
PSDN(10 START+10*, START+11, START+12, START+13
PSDN(11 START+8*, START+9, START+15
PSDN(2 PSDCOSD+6*, PSDCOSD+7, PSDCOSD+9, PSDCOSD+12, PSDCOSD+19, PSDCOSD+21, PSDCOSD+23*, PSDCOSD+27*, PSDCOSD+34, PSDCOSD+36
, PSDCOSD+38, PSDCOSD+40, START+6*, START+7, START+8, START+9, START+11, START+12, START+13, START+14
PSDN(3 PSDCOSD+8*, PSDCOSD+28, PSDCOSD+30, PSDCOSD+32, PSDCOSD+34, PSDCOSD+36, PSDCOSD+38, PSDCOSD+40, START+6*, START+16
, START+17, START+18!
PSDN(4 PSDCOSD+9*, PSDCOSD+10, PSDCOSD+15, PSDCOSD+19, PSDCOSD+21, PSDCOSD+25, START+9*
PSDN(5 PSDCOSD+15*, PSDCOSD+17*, PSDCOSD+19*, PSDCOSD+21*, PSDCOSD+27*, PSDCOSD+30, PSDCOSD+34, PSDCOSD+36, PSDCOSD+40, START+9*
, START+17, START+18!
PSDN(6 PSDCOSD+25*, PSDCOSD+26, PSDCOSD+27, PSDCOSD+38, START+17*, START+19
PSDN(7 PSDCOSD+28*, PSDCOSD+30, PSDCOSD+32, PSDCOSD+34, PSDCOSD+36, PSDCOSD+38, PSDCOSD+40, START+18*, START+19
PSDN(8 PSDCOSD+10*, PSDCOSD+12, PSDCOSD+17, START+1*, START+19
PSDN(9 PSDCOSD+12*, PSDCOSD+13, PSDCOSD+28, PSDCOSD+30, PSDCOSD+32, PSDCOSD+34, PSDCOSD+36, PSDCOSD+38, PSDCOSD+40, START+3*
, START+18!
>> PSDOUT START+1, START+3, START+16, END+1, HEADER+1*, HEADER+2*
>> PSDSD PSDCOSD+2, PSDCOSD+3*, PSDCOSD+4, PSDCOSD+6, PSDCOSD+9
>> PSDSD(1 PSDCOSD+2*, PSDCOSD+26
>> PSDSITE PSDCOSD+3
>> PSDT(1 HEADER+5
>> SUM START+5, START+7, START+9, START+11, START+12, START+13, START+14
U PSDCOSD+3, PSDCOSD+8, PSDCOSD+12, PSDCOSD+13, PSDCOSD+15, PSDCOSD+17, PSDCOSD+19, PSDCOSD+21, PSDCOSD+26, PSDCOSD+27
, PSDCOSD+30, PSDCOSD+32, PSDCOSD+34, PSDCOSD+36, PSDCOSD+38, PSDCOSD+40, START+5, START+7, START+8, START+9
, START+11, START+12, START+13, START+14, HEADER+2, HEADER+4
>> X START+9*, START+17*, START+19*
X2 PSDCOSD+2~, START+9*
>> Y HEADER+1
>> ZTDESC PRTQUE+1*, START+20*, HEADER+2
>> ZTDTH PRTQUE+1*, START+20*
>> ZTIO PRTQUE+1*, START+20*
>> ZTQUEUED PSDCOSD+2, PRTQUE+1, END+2
>> ZTREQ PSDCOSD+2*, END+2*
>> ZTRTN PRTQUE+1*, START+20*
ZTSAVE PRTQUE+1!
ZTSAVE("PSD*" PRTQUE+1*, START+20*
ZTSAVE("SUM" PRTQUE+1*
ZTSAVE("^TMP(""PSD"",$J," PRTQUE+1*
ZTSAVE("^TMP(""PSDM"",$J," START+20*
ZTSK PRTQUE+1!, HEADER+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All