Routine: ABSPOS33

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
Pharmacy Point of Sale	2	($$DATE,$$NOWEXT)^ABSPOSU1 ($$EOPQ,ENDRPT)^ABSPOSU8

Entry Points

Name	Comments	DBIA/ICR reference
SURVEY1	; given RXI, RXR
MAIN	;EP - option ABSP DIVISIONS SURVEY
HEADING	;
SURVEY(START)
MAIN1(START)

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Survey DIVISION from recent prescriptions",! Line Location: MAIN+1
Function Call: WRITE	Prompt: !,"...thinking...",! Line Location: MAIN+8
Function Call: WRITE	Prompt: @IOF Line Location: HEADING+1
Function Call: WRITE	Prompt: "Survey of Divisions (","ABSPOS33",") ",?60,RPTDATE,! Line Location: HEADING+2
Function Call: WRITE	Prompt: "For " Line Location: HEADING+3
Function Call: WRITE	Prompt: Y Line Location: HEADING+3
Function Call: WRITE	Prompt: "-",Y,! Line Location: HEADING+4
Function Call: WRITE	Prompt: ?3,"Count",?10,"Name",! Line Location: HEADING+5
Function Call: WRITE	Prompt: !,"No prescriptions found?!",! Line Location: MAIN1+5
Function Call: WRITE	Prompt: $J(COUNT,7),?10,$E($P(X,U,2)_"(`"_INS_")",1,40) Line Location: MAIN1+11
Function Call: WRITE	Prompt: ?51,$P(X,U,3) Line Location: MAIN1+12
Function Call: WRITE	Prompt: ! Line Location: MAIN1+13
Routine Call	%ZIS Line Location: MAIN+7

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HEADING+3, HEADING+4
^PS(59 - [#59]	SURVEY1+6
^PSRX - [#52]	SURVEY1+2, SURVEY1+3
^PSRX("AL"	SURVEY+2, SURVEY+3, SURVEY+4
^TMP("ABSPOS33"	MAIN1+5, MAIN1+8, MAIN1+9, MAIN1+10, SURVEY+1!, SURVEY+8, SURVEY+9, SURVEY+10, SURVEY1+8, SURVEY1+11

Name	Field # of Occurrence
%H	MAIN+2~
COUNT	MAIN1+7~, MAIN1+8, MAIN1+9, MAIN1+11, MAIN1+14, SURVEY+9~*, SURVEY+10
DIV	SURVEY1+1~, SURVEY1+2, SURVEY1+3, SURVEY1+4*, SURVEY1+6, SURVEY1+7, SURVEY1+8, SURVEY1+11
DOC	SURVEY+1~, SURVEY+7, SURVEY+8, SURVEY+9, SURVEY+10
DT	MAIN+3, MAIN+6
END	MAIN+4~, MAIN+6*, HEADING+4
INS	MAIN1+7~, MAIN1+9, MAIN1+10, MAIN1+11, MAIN1+14
IO	MAIN1+6
IOF	HEADING+1
NAME	SURVEY1+1~, SURVEY1+4, SURVEY1+6, SURVEY1+7*, SURVEY1+9
NUMBERS	MAIN1+7~
>> POP	MAIN+7
RPTDATE	HEADING+2, MAIN1+3~*
RXI	SURVEY+1~, SURVEY+3*, SURVEY+4, SURVEY1+2, SURVEY1+3
RXR	SURVEY+1~, SURVEY+4*, SURVEY1+2
START	MAIN+4~, MAIN+5*, MAIN+6, MAIN+9, HEADING+3, HEADING+4, MAIN1~, MAIN1+4, SURVEY~, SURVEY+1
TIME	SURVEY+1~, SURVEY+2, SURVEY+3, SURVEY+4
U	MAIN1+11, MAIN1+12, SURVEY+9, SURVEY1+2, SURVEY1+3, SURVEY1+6, SURVEY1+9, SURVEY1+10
X	MAIN+2~, MAIN+3, MAIN+5, MAIN1+7~, MAIN1+10, MAIN1+11, MAIN1+12, SURVEY+9~, SURVEY1+8~, SURVEY1+9* , SURVEY1+10*, SURVEY1+11
X1	MAIN+2~
X2	MAIN+2~
Y	HEADING+3~, HEADING+4

Name	Field # of Occurrence
$T(	MAIN1+14