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

Package: Controlled Substances

Routine: PSDCOSN


Information

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

Source Information

Source file <PSDCOSN.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
QUIT
GETDTA ;
END
HEADER ;prints header info
START
PRTQUE ;queues print after data is compiled

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?8,"NAOU ==> ",$P($G(^PSD(58.8,+PSDN,0)),U)," (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",!,"Drug",?40,"Dispensed"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?70,"Cost",!,LN,!!
  • Line Location: HEADER+6
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] PSDCOSN+3, START+2, START+4
^PSD(58.81 - [#58.81] PSDCOSN+3, PSDCOSN+4, PSDCOSN+5, PSDCOSN+8, PSDCOSN+9, PSDCOSN+14, PSDCOSN+20, PSDCOSN+22, PSDCOSN+26
^PSDRUG - [#50] PSDCOSN+7, PSDCOSN+15, START+8
^TMP("PSD" PSDCOSN+29, PSDCOSN+31*, PSDCOSN+33*, PSDCOSN+35*, PSDCOSN+37*, PSDCOSN+39*, PSDCOSN+41*, START+1, START+3, START+6
, START+22, QUIT!
^TMP("PSDM" START+21, QUIT!, GETDTA+4*
^VA(200 - [#200] HEADER+2

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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