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

Package: Controlled Substances

Routine: PSDCOSH


Information

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

Source Information

Source file <PSDCOSH.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
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+9
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] PSDCOSH+3, HEADER+6, HEADER+8
^PSD(58.81 - [#58.81] PSDCOSH+3, PSDCOSH+4, PSDCOSH+5, PSDCOSH+8, PSDCOSH+9, PSDCOSH+14, PSDCOSH+18, PSDCOSH+20, PSDCOSH+24
^PSDRUG - [#50] PSDCOSH+7, PSDCOSH+31
^TMP("PSD" PSDCOSH+27, PSDCOSH+29*, PSDCOSH+31*, START+2, START+3*, START+4, START+5, START+10, QUIT!
^VA(200 - [#200] HEADER+2

Label References

Name Line Occurrences
END START+4
HEADER START, START+4
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+4
IOST PSDCOSH+3, END, END+1, HEADER+1
LN PSDCOSH+2~, HEADER+3*, HEADER+10
>> LOC( PSDCOSH+10, HEADER+6, HEADER+7, HEADER+8
>> LOC(0 HEADER+5, HEADER+6
PG PSDCOSH+2~, START*, HEADER+1, HEADER+3*, HEADER+4
>> PSD START+2, START+6
>> PSD(1 START+1, START+4, START+6
>> PSD(2 HEADER+5*, HEADER+6, HEADER+7, HEADER+8*
>> PSDATE HEADER+4
>> PSDCHO(1 HEADER+3
>> PSDED PSDCOSH+3, PSDCOSH+25
>> PSDIO PRTQUE+1
PSDN PSDCOSH+2~, PSDCOSH+3*, PSDCOSH+4, PSDCOSH+5, PSDCOSH+8, PSDCOSH+10, PSDCOSH+12, PSDCOSH+32!, START*, START+2*
, START+3, START+4*, START+5, START+7
PSDN(1 PSDCOSH+4*, PSDCOSH+5, PSDCOSH+7, PSDCOSH+8, PSDCOSH+31, START+2*, START+3, START+5*, START+6, START+7
, START+8, START+9
PSDN(2 PSDCOSH+5*, PSDCOSH+6, PSDCOSH+8, PSDCOSH+10, PSDCOSH+12, PSDCOSH+18, PSDCOSH+20, PSDCOSH+22*, PSDCOSH+26*
PSDN(3 PSDCOSH+7*, PSDCOSH+27, PSDCOSH+29, PSDCOSH+31
PSDN(4 PSDCOSH+8*, PSDCOSH+9, PSDCOSH+14, PSDCOSH+18, PSDCOSH+20, PSDCOSH+24
PSDN(5 PSDCOSH+14*, PSDCOSH+16*, PSDCOSH+18*, PSDCOSH+20*, PSDCOSH+26*, PSDCOSH+29, PSDCOSH+31
PSDN(6 PSDCOSH+24*, PSDCOSH+25, PSDCOSH+26
PSDN(7 PSDCOSH+27*, PSDCOSH+29
PSDN(8 PSDCOSH+9*, PSDCOSH+10, PSDCOSH+12, PSDCOSH+16
PSDN(9 PSDCOSH+12*
>> PSDOUT START+4, END+1, HEADER+1*, HEADER+2*
>> PSDSD PSDCOSH+2, PSDCOSH+3*, PSDCOSH+4, PSDCOSH+5, PSDCOSH+8
>> PSDSD(1 PSDCOSH+2*, PSDCOSH+25
>> PSDSITE PSDCOSH+3
>> PSDT(1 HEADER+9
U PSDCOSH+3, PSDCOSH+7, PSDCOSH+10, PSDCOSH+12, PSDCOSH+14, PSDCOSH+16, PSDCOSH+18, PSDCOSH+20, PSDCOSH+25, PSDCOSH+26
, PSDCOSH+29, PSDCOSH+31, START+2, START+3, START+6, START+7, START+8, START+9, HEADER+2, HEADER+4
, HEADER+6, HEADER+8
>> X START+9*
X2 PSDCOSH+2~, START+9*
>> Y HEADER+1
>> ZTDESC PRTQUE+1*, HEADER+2
>> ZTDTH PRTQUE+1*
>> ZTIO PRTQUE+1*
>> ZTQUEUED PSDCOSH+2, PRTQUE+1, END+2
>> ZTREQ PSDCOSH+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