Routine: PSGDCTP

Information

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

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

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Inpatient Medications	1	PSGDCT

Entry Points

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

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!

Customize PDF page

Package: Inpatient Medications