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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGDCTP

Package: Inpatient Medications

Routine: PSGDCTP


Information

PSGDCTP ;BIR/DAV,MLM-SORT AND PRINT DRUG PROFILE DATA ;1 NOV 95 / 8:55 AM

Source Information

Source file <PSGDCTP.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Inpatient Medications 2 $$ENDTC^PSGMI  ENCV^PSGSETU  
VA Fileman 2 NOW^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSGDCT  

Entry Points

Name Comments DBIA/ICR reference
SETRST(X,ND) ; Set RSTx subscripts
SUM(AMT,CST,TYP) ;Print totals and subtotals
DONE1
HDR ;Report Header.
HDR1
EXCLUDE(X) ; Check if drug data should be included.
WRTAC ; Print amt, cost line.
START ;
EOP ;Check for end of page.
DONE ;Kill and EXIT.
PRINT ;Print Data

External References

Name Field # of Occurrence
NOW^%DTC START+2
^DIR EOP+1
$$ENDTC^PSGMI HDR+1
ENCV^PSGSETU DONE1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?25,"*** NO DRUG COST DATA FOUND ***"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: "**"
  • Condition for execution: PSGDCT=1&$P(ND,U,3)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?2,$P(ND,U,4)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?50,$J(+ND,8,3),?70,$J($P(ND,U,2),8,4)
  • Line Location: WRTAC+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!?28,"UNIT DOSE DRUG COST REPORT",?63,$$ENDTC^PSGMI(PSGDT),!?25,"FROM ",STRT," THROUGH ",STOP,!!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?5,"DISPENSED DRUG"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?(5+(PSGP2*5)),"WARD"
  • Condition for execution: $D(PSGDCLW)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?50,"DISPENSED",?74,"COST",!,LN1,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?48,"TOTAL UNITS",?73,"TOTAL",!
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: ?39,"Total:",?50,$J(AMT,8,3),?70,$J(CST,8,4),!
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: !!?54,"(** = NON-FORMULARY ITEM)"
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: !!?54,"(** = NON-FORMULARY ITEM) "
  • Line Location: EOP+2
Routine Call
  • DIR
  • Line Location:
    • EOP+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J PSGDCTP+4!, PSGDCTP+5, PSGDCTP+6*, PSGDCTP+7, PSGDCTP+8*, PSGDCTP+9, PSGDCTP+10*, DONE1!, START+3, PRINT+1
, PRINT+2, PRINT+3, PRINT+5, PRINT+6, PRINT+8, PRINT+9

Label References

Name Line Occurrences
$$EXCLUDE PSGDCTP+5
$$SETRST PSGDCTP+6, PSGDCTP+8, PSGDCTP+10
DONE START+3
EOP WRTAC+1, SUM+4
HDR START+3, EOP+3
HDR1 HDR+2, HDR+3, HDR+5
START PSGDCTP+11
SUM PRINT+2, PRINT+6, PRINT+11
WRTAC PRINT+4, PRINT+7, PRINT+10

Naked Globals

Name Field # of Occurrence
^( PSGDCTP+5, PSGDCTP+7, PSGDCTP+9, PRINT+6, PRINT+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START+2
AMT SUM~, SUM+2
>> C EXCLUDE+1*, EXCLUDE+2
CML DONE+1, DONE1!, START+2*, SUM+3, EOP+1, EOP+2
CST SUM~, SUM+2
DIR EOP+1!
DIR(0 EOP+1*
DIRUT START+1~, PRINT+1, PRINT+2, PRINT+5, PRINT+6, PRINT+8, PRINT+9, PRINT+11, SUM+1, EOP+1
DRG DONE1!
FD DONE1!
HLP DONE1!
IO START+2, START+3
IO(0 START+2
IOF DONE+1, HDR+1
IOSL WRTAC+1, SUM+4
IOST START+2
LN1 DONE1!, START+2*, HDR+6
ND PSGDCTP+5*, PSGDCTP+6*, PSGDCTP+7*, PSGDCTP+8*, PSGDCTP+9*, PSGDCTP+10*, DONE1!, EXCLUDE+1, EXCLUDE+2, SETRST~
, SETRST+1, PRINT+3*, PRINT+4, PRINT+6*, PRINT+7, PRINT+9*, PRINT+10, WRTAC+1
ND50 DONE1!
NP DONE1!, START+2*, SUM+3
OI DONE1!
OIND DONE1+2!
PD DONE1!
PR DONE1!
PSG DONE1!
PSG1 PSGDCTP+6*, PSGDCTP+8, PSGDCTP+10, DONE1!, PRINT+1*, PRINT+2, PRINT+3, PRINT+5, PRINT+6, PRINT+8
, PRINT+9
PSG2 PSGDCTP+8*, PSGDCTP+10, DONE1!, PRINT+2*, PRINT+3, PRINT+5, PRINT+6, PRINT+8, PRINT+9
PSG3 DONE1!, PRINT+5*, PRINT+6, PRINT+8, PRINT+9
PSG4 DONE1!, PRINT+6*, PRINT+8, PRINT+9
PSG5 DONE1!, PRINT+8*, PRINT+9
PSG6 DONE1!, PRINT+9*
PSGASUM DONE1!, PRINT+1*, PRINT+3*, PRINT+11
PSGCLW DONE1!
PSGCSUM DONE1!, PRINT+1*, PRINT+3*, PRINT+11
PSGCTL DONE1!
PSGCTS DONE1!
PSGDASUM DONE1+2!, PRINT+6, PRINT+7*
PSGDCLW PSGDCTP+4, DONE1!, PRINT+2, PRINT+4, PRINT+6, PRINT+7, HDR+2, HDR+3, HDR+5, HDR+6
PSGDCSUM DONE1!, PRINT+6, PRINT+7*
PSGDCT PSGDCTP+4, DONE1+1!, PRINT+2, PRINT+4
PSGDCT(1 HDR+3, SUM+2
PSGDCTA DONE1+1!, EXCLUDE+2
PSGDCTD DONE1+1!
PSGDCTL DONE1+1!, EXCLUDE+2
PSGDCTS PSGDCTP+6, PSGDCTP+8, PSGDCTP+10, DONE1+1!
PSGDISP PSGDCTP+4, PSGDCTP+8, DONE1+1!, HDR+5
PSGDT DONE1+2!, START+2*, HDR+1
PSGERR DONE1+1!
PSGID DONE1+2!
PSGP2 PSGDCTP+4*, DONE1+1!, PRINT+2, PRINT+4, PRINT+7, HDR+2, HDR+3, HDR+4, HDR+6
PSGSASUM DONE1+1!, PRINT+2, PRINT+3*
PSGSCSUM DONE1+1!, PRINT+2, PRINT+3*
PSGWO PSGDCTP+4*, PSGDCTP+8, DONE1+1!, PRINT+6, PRINT+7
PSJSYSL DONE1+2!
PSJSYSP DONE1+2!
PSJSYSP0 DONE1+2!
PSJSYSU DONE1+2!
RST1 PSGDCTP+6*, PSGDCTP+8, PSGDCTP+10, DONE1+1!
RST3 PSGDCTP+8*, PSGDCTP+10, DONE1+1!
RST5 PSGDCTP+10*, DONE1+1!
RTN DONE1+1!
S1 PSGDCTP+4*, PSGDCTP+5*, PSGDCTP+6, PSGDCTP+7, PSGDCTP+9, DONE1+1!
S2 PSGDCTP+7*, PSGDCTP+8, PSGDCTP+9, DONE1+1!
S3 PSGDCTP+9*, PSGDCTP+10, DONE1+1!
SD DONE1+1!
ST DONE1+1!
STOP DONE1+1!, HDR+1
STRT DONE1+1!, HDR+1
TYP DONE1+1!, SUM~, SUM+2, SUM+3, SUM+4
U PSGDCTP+6, PSGDCTP+8, PSGDCTP+10, EXCLUDE+1, SETRST+1, PRINT+3, PRINT+4, PRINT+7, PRINT+10, WRTAC+1
W DONE1+1!
WD DONE1+1!
X DONE1+1!, EXCLUDE~, SETRST~, SETRST+1
Y DONE1+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All