Routine: PSGEUDD

Information

PSGEUDD ;BIR/MV-EXTRA UNITS DISPENSED REPORT ;14 JAN 97 / 9:22 AM

Source file <PSGEUDD.m>

Package	Total	Call Graph
Inpatient Medications	7	^PSGEUDP $$ENDDN^PSGMI ENKV^PSGSETU ^PSJAC ($$STDATE,$$STOP)^PSJMDIR $$GWP^PSJMDIR1 ($$SELDEV,EXIT,SETPRTQ,SETSORTQ)^PSJMUTL
VA Fileman	1	^DIR

Package	Total	Caller Graph
Inpatient Medications	1	PSJU EUDD

Name	Comments	DBIA/ICR reference
WARDGP	;*** Find wards within a ward group
C	;***Select by CLINIC
G	;***Select by WARD GROUP
START	;***Start queuing here.
ALLTM	;*** Get UNIT DOSE information from ^PS(55
P	;***Select by Patient
EXIT	;***Exit report here.
TMPWG	;***Set ^TMP global for selected by Ward/Ward Group.
W	;***Select by Ward
TEAM	;*** Look up selected team. PSGTMALL= All teams were selected.
ASK	;***Ask for date range and output device
NEW	;***New needed variables.
WARD	;*** Go through each patient within a given WARD
TMPPT	;***Set ^TMP global for selected by patient.
LOOP	;***Loop thru ^PS(55 on the Dispense log multiple.

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	WARDGP+1
^DPT("CN"	WARD+3
^PS(55 - [#55]	C+3, C+4, LOOP+1, LOOP+3, LOOP+4
^PS(57.5 - [#57.5]	WARDGP+1
^PS(57.7 - [#57.7]	ALLTM+3
^TMP($J	NEW+1!, EXIT+3!, TMPWG+1, TMPPT+1

Name	Field # of Occurrence
^(0	WARDGP+1, ALLTM+3

Name	Field # of Occurrence
AMT	NEW+2~, LOOP+5*, TMPWG+1, TMPPT+1
CLIN	C+1~, C+3*, C+4
DIR	ASK+2!
DIR("?"	ASK+2*
DIR("A"	ASK+2*
DIR(0	ASK+2*
DRG	NEW+2~, LOOP+5*, TMPWG+1, TMPPT+1
DT	C+1~, C+3*, C+4
IO("Q"	ASK+5, ASK+7
ND	NEW+2~, LOOP+4*, LOOP+5
NO	NEW+2~, LOOP+4*
PPN	NEW+2~, P+1, C+4, WARD+3*, TMPWG+1, TMPPT+1
PSGDT	EXIT+3!, LOOP+2, LOOP+3, LOOP+4, TMPWG+1, TMPPT+1
PSGEDT	ASK+2*, EXIT+3!, C+3, LOOP+3
PSGIO	EXIT+3!, START+3
PSGORD	EXIT+3!, LOOP+1*, LOOP+3, LOOP+4
PSGP	EXIT+3!, P+1, C+4, WARD+3*, LOOP+1, LOOP+3, LOOP+4, TMPWG+1, TMPPT+1
PSGP(0	C+4, WARD+3
PSGPAT	EXIT+3!
PSGPAT(	P+1
PSGSDT	ASK+1*, ASK+2, EXIT+3!, C+3, LOOP+2
PSGSS	EXIT+3!, START+1, WARD+3, LOOP+5
PSGTM	EXIT+3!, TEAM+3
PSGTM(	TEAM+4
PSGTMALL	EXIT+3!, TEAM+2
PSGWD	EXIT+3!, WARDGP+1*, ALLTM+3
PSGWG	EXIT+3!, WARDGP+1
PSGWGNM	EXIT+3!
PSGWN	EXIT+3!, WARDGP+1*, WARD+3, TMPWG+1
PSJACNWP	NEW+2~, P+1, C+2, WARD+2*
>> PSJPBID	TMPWG+1
PSJPPID	P+1!, TMPPT+1
PSJPRB	P+1!, ALLTM+3, TMPPT+1
>> PSJPWDN	TMPPT+1
PSJSTOP	EXIT+3!
TM	NEW+2~, C+2, WARDGP+1, TEAM+1, TEAM+3, TEAM+4, ALLTM+2, ALLTM+3, TMPWG+1
U	WARDGP+1, ALLTM+3, LOOP+5, TMPWG+1, TMPPT+1
WHO	NEW+2~, LOOP+5*, TMPWG+1, TMPPT+1
XDESC	NEW+2~, ASK+8, ASK+12, START+4, START+7
XSAVE	NEW+2~, ASK+10, ASK+12, START+5, START+7
XTRTN	NEW+2~, ASK+11, ASK+12, START+6, START+7
>> Y	ASK+1, ASK+2