Routine: PSOBRPRT

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	(,DD)^%DT EN1^DIP ^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	5	PSO BINGO REPORT PRINT PSO BINGO REPORT WAIT TIME PSOBING1 PSOBINGO PSOHLDI1

Entry Points

External References

Name	Field # of Occurrence
^%DT	A1, EDATE
DD^%DT	CV, CV+1, PRINT
^%ZIS	SETUP
^%ZISC	END
^%ZTLOAD	SKIP+1
EN1^DIP	BBWAIT+1
^DIR	SELECT+3, LOOP+2, PAGE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: A1+0
Function Call: WRITE	Prompt: ! Line Location: EDATE+0
Function Call: WRITE	Prompt: !!,$C(7),"* Future dates are not permitted *",! Line Location: EDATE+1
Function Call: WRITE	Prompt: !!,"No data found for ",$P(^PS(59,NDIV,0),"^")," division." Line Location: SELECT+1
Function Call: WRITE	Prompt: ! Line Location: LOOP+1
Function Call: WRITE	Prompt: !!,"No data found for ",$P($G(Y),"^",2)," division." Line Location: LOOP+3
Function Call: WRITE	Prompt: !!,"No data found for "_WDIV_" division for this date range" Line Location: LD+3
Function Call: WRITE	Prompt: !?5,"\|",?74,"\|",!?5,"\|",?74,"\|",!?5,"\| Total ",?23,$J(NPT,4),?42,$J(TTM,6,2) Line Location: TP+2
Function Call: WRITE	Prompt: ?60,$J((TTM/NPT),5,2) Condition for execution: NPT Line Location: TP+2
Function Call: WRITE	Prompt: ?74,"\|" Line Location: TP+2
Function Call: WRITE	Prompt: @IOF,!,?15,"B I N G O B O A R D R E P O R T ",NOW,!?5,"REPORT PERIOD: ",BDAT," through ",EDAT,! Line Location: HEADING+1
Function Call: WRITE	Prompt: ?5,"\|"," DIVISION: ",WDIV,?40,"DATE: ",Y,?74,"\|" Line Location: PRINT+1
Function Call: WRITE	Prompt: !?5,"\|",?47,"(Time In Minutes)",?74,"\|" Line Location: PRINT+2
Function Call: WRITE	Prompt: !?5,"\|"," TIME PERIOD",?22,"# PATIENTS SERVED",?42,"TOT WAIT TIME",?60,"AVG WAIT TIME",?74,"\|" Line Location: PRINT+3
Function Call: WRITE	Prompt: !?5,$P($T(ZIP+1),"^",ZZ+1),?28,$J(NO(ZZ*2),4),?47,$J(NO(ZZ+(ZZ+1)),6,2),?65,$J(TOT(ZZ),5,2),?74,"\|" Line Location: PRINT+4
Function Call: WRITE	Prompt: ! Line Location: PAGE+0
Function Call: WRITE	Prompt: ?40,"PAGE ",PAGE,! Line Location: PAGE+1
Function Call: WRITE	Prompt: !?5 Line Location: STARS+0
Function Call: WRITE	Prompt: "_" Line Location: STARS+0
Function Call: WRITE	Prompt: ! Line Location: STARS+1
Routine Call	DIR Line Location: SELECT+3 LOOP+2 PAGE+2
Routine Call	%ZIS Line Location: SETUP

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(52.11 - [#52.11]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.11 - [#52.11]	STATS1+1
^PS(59 - [#59]	SELECT, SELECT+1, SELECT+2, LOAD+1
^PS(59.2 - [#59.2]	SELECT+1, LOAD+1, LOOP+3, LD+1, STATS1+4, STATS1+5, STATS1+6*

Label References

Name	Line Occurrences
A1	EDATE
CV	LOAD+1, LOAD1+1
EDATE	EDATE+1
END	A1+1, SELECT+1, SELECT+3, SETUP, SETUP+1, LOAD+2, LOOP+2, LOAD1+3, SKIP+1
FILL	LD+1
HEADING	TP+1, FILL+7
LD	LOAD+1, LOAD1+1
LOAD1	SETUP+2
LOOP	SELECT+4, LOOP+3, LOOP+5
PAGE	TP, TP+2, PRINT+7
QUE	SETUP+1
SETUP	SELECT+2, LOOP+2
SKIP	QUE+1
STARS	TP+2, HEADING+2, PRINT+6
TP	LD+4
TPE	LOAD+2, LOAD1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	A1!, A1+2!, EDATE, END+1!
%DT("A"	A1, EDATE
%DT(0	A1, A1+2
>> %ZIS	SETUP*
APE	FILL, FILL+2, FILL+3, FILL+4, FILL+5, FILL+6, END+1!
BDAT	CV*, HEADING+1, END+1!
BDATE	A1+2*, CV, LD+1, END+1!
>> BY	BBWAIT+1*
CNT	STATS1+1*, END+1!
DA	STATS1+1, END+1!
>> DATE	STATS1+1*, STATS1+4, STATS1+5, STATS1+6
>> DIC	BBWAIT+1*
>> DIF	STATS1+3*, STATS1+5
DIR	SELECT+3!, LOOP+2!, PAGE+2!
DIR("A"	SELECT+3, LOOP+1
DIR("B"	SELECT+3*
DIR(0	SELECT+3, LOOP+1, PAGE+2*
DIRUT	SELECT+3, END+1!
DT	A1, EDATE+1, CV+1
DTOUT	A1+1, EDATE, PAGE+2, END+1!
DUOUT	LOOP+2, PAGE+2, END+1!
EDAT	CV*, HEADING+1, END+1!
EDATE	EDATE+2*, CV, LD+1, END+1!
FLAG	SELECT, SELECT+4, SETUP, SETUP+2, LOOP+5, TPE, QUE+1, END+1!
FLD	STATS1+1, STATS1+2, STATS1+5, STATS1+6!
>> FLDS	BBWAIT+1*
G	QUE*, QUE+1!
HEAD	TP+1*!, PRINT+3, END+1!
I	END+1!
IO	CV
IO("Q"	SETUP+1
IOF	HEADING+1
IOSL	PRINT+7, PAGE
IOST	PAGE+2
JOES	STATS1+4, STATS1+5, STATS1+6, END+1!
KEEP	FILL, FILL+3, FILL+4*, END+1!
>> L	BBWAIT+1*
LINE	CV, TP, TP+2, HEADING+1, PRINT+6, PRINT+7, PAGE, PAGE+1, END+1!
NDIV	SELECT*, SELECT+1, SELECT+2, END+1!
NO	END+1!
NO(	FILL*, FILL+3, FILL+4, FILL+5, FILL+6, PRINT+4
NODATA	FILL*, FILL+1, END+1!
NODE	LD+1*, FILL, END+1!
NOW	CV+1*, HEADING+1, END+1!
NPT	CV, LD+4, TPE*, TP+2, END+1!
NPT1	FILL+1, FILL+5, PRINT+5, END+1!
PAGE	CV, PAGE+1, END+2!
PDIV	SETUP, END+2!
PDIV(	SELECT+2, LOOP+4, LOAD1+1
>> POP	SETUP
PS1	LOAD+1, LOAD1+1, CV*, LD+1, END+2!
PS2	LD+1*, TP, PRINT, END+2!
PS3	END+2!
PSDA	END+2!
PSOUT	LOAD+1, LOAD1+1, CV, LD+1, LD+2, PAGE+2, END+2!
RDIV	END+2!
>> RX0	STATS1+3
RXO	END+2!
S1	STATS1+3*, STATS1+6!
S2	STATS1+3*, STATS1+6!
SAVE	END+2!
STAR	STARS*, END+2!
START	STATS1+3*, STATS1+6!
>> TD	SELECT, SELECT+1, SELECT+2, LOAD1+2, CV, LD+4*, TPE
>> TM1	STATS1+1
TM2	STATS1+1~*, STATS1+3
TOT	END+2!
TOT(	FILL+3, FILL+4, PRINT+4
>> TP	CV, TPE, FILL+5
>> TPD	LD, LD+3, LD+4, FILL+6
TTM	CV, LD+4, TPE*, TP+2, END+2!
TTM1	FILL+1, FILL+5, PRINT+5, END+2!
>> TW	CV, TPE, FILL+5
>> TWD	LD, LD+4, FILL+6
WDIV	LOAD+1, LOAD1+1, LD+3, TPE*, PRINT+1, END+2!
X	LOOP+1!, LOOP+2, END+2!
X1	END+2!
XX	SELECT*, END+2!
XX1	END+2!
Y	A1+1, A1+2, EDATE, EDATE+1, EDATE+2, SELECT+4, LOOP+3, LOOP+4, CV, CV+1 , PRINT*, PRINT+1, END+2!
ZTDESC	SKIP*, END+2!
>> ZTQUEUED	END
>> ZTREQ	END*
ZTRTN	QUE+1, QUE+2, END+2!
ZTSAVE	END+2!
ZTSAVE(	QUE*
ZZ	PRINT+4, PAGE, END+2!

Marked Items

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOBRPRT

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
SETUP
PRINT
EDATE
HEADING	;I PAGE>1,($E(IOST,1,2)="C-") S DIR(0)="E" D ^DIR K DIR
SELECT
FILL
LD
TP
A1
STATS1	; statistical file entry (from PSOBINGO)
LOAD	;PRINT ALL DIVISIONS
TPE
END
ZIP	;
SKIP
STARS
CV
QUE
LOAD1	;PRINT SELECTED DIVISIONS
BBWAIT	;print bingo board wait time min, max, mean
PAGE
LOOP	;SELECT DIVISIONS TO PRINT