Routine: ABSPOS35

Information

ABSPOS35 ; IHS/FCS/DRS - survey pharmacy volume ;

Package	Total	Call Graph
Pharmacy Point of Sale	3	($$DTR,$$NOWEXT)^ABSPOSU1 ENDRPT^ABSPOSU5 ($$EOPQ,EOPQ)^ABSPOSU8
Kernel	2	^%ZIS ^%ZISC
VA Fileman	1	(C,H)^%DTC

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSX

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Survey of pharmacy volume",! Line Location: MAIN+1
Function Call: WRITE	Prompt: $$MMMDD(DATE) Line Location: VOLUME+16
Function Call: WRITE	Prompt: ?$$WKDAY(DATE)+1*8,$J(COUNT,5) Line Location: VOLUME+17
Function Call: WRITE	Prompt: ?70,$J(WKTOTAL,6),! Line Location: VOLUME+18
Function Call: WRITE	Prompt: "INDEX",?10,"Total",?20,"Average",! Line Location: VOLUME+27
Function Call: WRITE	Prompt: INDEX,?10,^TMP($J,INDEX) Line Location: VOLUME+29
Function Call: WRITE	Prompt: ?20,$J(^TMP($J,INDEX)/NDAYS,6,1),! Line Location: VOLUME+30
Function Call: WRITE	Prompt: @IOF Line Location: HEADING+1
Function Call: WRITE	Prompt: "Survey of Pharmacy Volume (",$T(+0),")",?60,RPTDATE,! Line Location: HEADING+2
Function Call: WRITE	Prompt: "For " Line Location: HEADING+3
Function Call: WRITE	Prompt: ! Line Location: HEADING+3
Function Call: WRITE	Prompt: Y Line Location: HEADING+4
Function Call: WRITE	Prompt: " through " Line Location: HEADING+5
Function Call: WRITE	Prompt: Y Line Location: HEADING+6
Function Call: WRITE	Prompt: ! Line Location: HEADING+7
Function Call: WRITE	Prompt: !,YEAR Line Location: HEADING+8
Function Call: WRITE	Prompt: ?I+1*8," ",$P("MON,TUE,WED,THU,FRI,SAT,SUN",",",I+1) Line Location: HEADING+9
Function Call: WRITE	Prompt: ?70,"WK. TOTAL",! Line Location: HEADING+10
Routine Call	%ZIS Line Location: MAIN+3

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HEADING+4, HEADING+6, YEAR, MMMDD
^PSRX - [#52]	COUNT+2, COUNT+3, COUNT+4
^TMP($J	VOLUME+3!, VOLUME+12, VOLUME+13, VOLUME+29, VOLUME+30

Name	Field # of Occurrence
%H	VOLTEST~, DOLLARH+1~, NEXTDAY+1~
%T	DOLLARH+1~
%Y	DOLLARH+1~
C	COUNT+1~, COUNT+5, COUNT+6
COUNT	VOLUME+4~, VOLUME+11*, VOLUME+12, VOLUME+13, VOLUME+14, VOLUME+17
D	COUNT+1~, COUNT+2*, COUNT+3, COUNT+4
DATE	VOLUME+4~, VOLUME+8, VOLUME+9, VOLUME+11, VOLUME+12, VOLUME+16, VOLUME+17, VOLUME+18, VOLUME+19, VOLUME+21* , VOLUME+22, VOLUME+23, COUNT~, COUNT+2
DT	VOLTEST, VOLUME+6
I	VOLUME+4~, HEADING+9*
INDEX	VOLUME+4~, VOLUME+10, VOLUME+11, VOLUME+12, VOLUME+13, VOLUME+15, VOLUME+28, VOLUME+29, VOLUME+30, COUNT~ , COUNT+2, COUNT+3, COUNT+4
IOF	HEADING+1
NDAYS	VOLUME+4~, VOLUME+8, VOLUME+20, VOLUME+30
RANGE	MAIN+2~*, MAIN+4, HEADING+4, HEADING+6
RPTDATE	VOLUME+5~*, HEADING+2
RXI	VOLUME+4~, COUNT+1~, COUNT+3*, COUNT+4
RXR	VOLUME+4~, COUNT+1~, COUNT+4*
STARTDT	VOLUME~, VOLUME+7, VOLUME+8
THRUDT	VOLUME~, VOLUME+6*, VOLUME+9, VOLUME+21
U	MAIN+4, HEADING+4, HEADING+6
WEEKDAY	VOLUME+4~
WKTOTAL	VOLUME+4~, VOLUME+8, VOLUME+14, VOLUME+18*
X	VOLTEST~, VOLUME+4~, WKDAY~, WKDAY+1, DOLLARH~, NEXTDAY+1~
X1	VOLTEST~*, NEXTDAY~
X2	VOLTEST~, NEXTDAY+1~
Y	HEADING+4~, HEADING+6, YEAR~, MMMDD~
YEAR	VOLUME+7~, VOLUME+22, VOLUME+23, HEADING+8

Name	Field # of Occurrence
$T(	VOLUME+19, VOLUME+26, HEADING+2