Routine: PSOMGREP

Information

PSOMGREP ;BHAM ISC/JMB - DAILY MANAGEMENT REPORT ; 3/30/93

Package	Total	Call Graph
Outpatient Pharmacy	4	(EN,ENQ)^PSOMGRP1 EN^PSOMGRP2 EN^PSOMGRP3 EN^PSOMGRP4
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	(,DD)^%DT ^DIC ^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	5	PSO MGMT REPORT IV PSO MGMT REPORT RX COSTS PSO MGMT REPORT RX COUNTS PSO MGMT REPORT TYPE OF RX PSO MGMT REPORTS ALL DAILY

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?13,$C(7),$C(7),"There is no prescription data available to print.",!?8,"Use the Date Range Compile data option to make the data available." Line Location: DISP+1
Function Call: WRITE	Prompt: !!?18,$C(7),$C(7),"There is no IV data available to print." Line Location: DISP+3
Function Call: WRITE	Prompt: !!,"There is no prescription and IV data available to print." Line Location: DISP+4
Function Call: WRITE	Prompt: !! Line Location: PRTDV+0
Function Call: WRITE	Prompt: ! Line Location: PRTDV+2
Function Call: WRITE	Prompt: !!,"PLEASE PRINT ON WIDE PAPER, I.E., 132 COLUMNS." Line Location: PAP+0
Function Call: WRITE	Prompt: !! Line Location: SDT+0
Function Call: WRITE	Prompt: !!,$C(7),"Data available to print starts with "_PSDT_".",! Line Location: SDT+1
Function Call: WRITE	Prompt: !!,$C(7),"Data available to print starts with "_PIVSDT_".",! Line Location: SDT+2
Function Call: WRITE	Prompt: ! Line Location: EDT+0
Function Call: WRITE	Prompt: $C(7)," INVALID ENDING DATE ???" Line Location: EDT+0
Function Call: WRITE	Prompt: !!?5,$C(7),$C(7),"There is no prescription data between "_SDATE_" and "_EDATE_".",!?7,"Use the Date Range Compile data option to make the data available." Line Location: EDT+2
Function Call: WRITE	Prompt: !,$C(7),$C(7),"Report not Queued!" Line Location: QUE+1
Routine Call	DIC Line Location: PRTDV+2
Routine Call	DIR Line Location: PRTDV+1
Routine Call	%ZIS Line Location: QUE QUE+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EDT+1
^PS(50.8 - [#50.8]	IV, IV+1
^PS(59 - [#59]	DISP+6
^PS(59.12 - [#59.12]	BEG, EDT+1

Name	Line Occurrences
DISP	IV, IV+2
EDT	EDT
END	BEG, DISP+1, DISP+3, DISP+4, PRTDV+2, SDT, EDT, EDT+2, QUE+1, QUE+3
IV	BEG
PAP	DISP+5
PRTDV	PRTDV+2, SDT+3
SDT	SDT+1, SDT+2

Name	Field # of Occurrence
%	END+1!
%DT	SDT*, QUE!, QUE+3!, END+1!
%DT("A"	SDT, EDT
%DT(0	SDT*
%ZIS	QUE!*
%ZIS("B"	QUE*
ANS	DISP+5, PRTDV, PRTDV+1*, PRTDV+2, END+1!
BEG	END+1!
CNT	END+1!
DIC	PRTDV+2*!
DIC("A"	PRTDV+2*
DIC(0	PRTDV+2*
DIR	PRTDV+1!, END+1!
DIR("?"	PRTDV*
DIR("??"	PRTDV+1*
DIR("A"	PRTDV*
DIR(0	PRTDV*
DIRUT	PRTDV+1, END+1!
DIV	DISP+6, PRTDV, PRTDV+2*, END+1!
DT	SDT
DTOUT	PRTDV+2, END+1!
DUOUT	PRTDV+2, END+1!
DV	DISP+6*, PRTDV, END+1!
DVCNT	DISP+6*, PRTDV, PRTDV+2, QUE!, QUE+2!
DVMN	END+1!
EDATE	EDT+1*, EDT+2, END+1!
EDT	EDT*, EDT+1, END+1!
END	END+1!
FND	EDT+1*, END+1!
G	QUE+2*, QUE+3!, END+1!
I	END+1!
IEN	IV+1*, END+1!
IO	QUE+1
IO("Q"	QUE+2, QUE+3!
ION	QUE
IOP	QUE!, QUE+1*!
IVE	END+1!
IVS	IV+1*, END+1!
IVSDT	IV+1*, IV+2, DISP+2, DISP+3!, DISP+4, SDT+2
K	END+1!
M1	END+1!
M2	END+1!
M3	END+1!
OK	IV*, DISP!
OUT	PRTDV+1!*, PRTDV+2, END+1!
PDATE	END+1!
PG	END+1!
PIVSDT	IV+2*, DISP+2, SDT+2, END+1!
POP	QUE+1, END+1!
PRT	END+1!
PRV	END+1!
PSDT	BEG*, DISP, SDT+1, END+1!
PSOION	QUE!*, QUE+1!, END+1!
RUN	BEG, DISP, DISP+1, DISP+3, DISP+5, SDT+1, SDT+2, EDT+1, QUE+2, QUE+4 , END+1!
S1	END+1!
S2	END+1!
S3	END+1!
SDATE	EDT+1*, EDT+2, END+1!
SDT	BEG, DISP, DISP+1!, DISP+4, SDT+1, SDT+3, EDT, EDT+1, END+1!
T1	END+1!
T2	END+1!
T3	END+1!
X	SDT, EDT, QUE+3!, END+1!
Y	BEG, IV+2, PRTDV+1, PRTDV+2, SDT+1, SDT+2, SDT+3, EDT, EDT+1*, QUE+3! , END+1!
ZTDESC	QUE+2*, END+1!
>> ZTQUEUED	END
>> ZTREQ	END*
ZTRTN	QUE+2*, END+1!
ZTSAVE	END+1!
ZTSAVE(	QUE+2*
ZTSK	QUE!, QUE+3, END+1!