Routine: ABSPOS31

Package	Total	Call Graph
Pharmacy Point of Sale	4	ZWRITE^ABSPOS ($$DATE,$$NOWEXT)^ABSPOSU1 ENDRPT^ABSPOSU5 $$EOPQ^ABSPOSU8
Kernel	3	^%ZIS ^%ZISC $$NPI^XUSNPI
VA Fileman	1	C^%DTC

Entry Points

Name	Comments	DBIA/ICR reference
MAIN	;EP - option ABSP PROVIDER #S SURVEY
HEADING	;
SURVEY(START)
MAIN1(START)

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Survey prescribers from recent prescriptions and see if we have",! Line Location: MAIN+1
Function Call: WRITE	Prompt: "DEA #s, Medicaid #s, etc. on file for them.",! Line Location: MAIN+2
Function Call: WRITE	Prompt: !,"...thinking...",! Line Location: MAIN+8
Function Call: WRITE	Prompt: @IOF Line Location: HEADING+1
Function Call: WRITE	Prompt: "Survey of Prescribers (",$T(+0),") ",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: ?0,"Count",?8,"Name",?30,"NPI #",?42,"DEA#",?54,"CAID",?66,"CARE",! Line Location: HEADING+9
Function Call: WRITE	Prompt: !,"No prescriptions found?!",! Line Location: MAIN1+3
Function Call: WRITE	Prompt: $J(COUNT,4),?5,$E($P(X,U,2),1,24) Line Location: MAIN1+9
Function Call: WRITE	Prompt: ?I-3*12+30,$P(X,U,I) Line Location: MAIN1+10
Function Call: WRITE	Prompt: ! Line Location: MAIN1+11
Routine Call	%ZIS Line Location: MAIN+7

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HEADING+3, HEADING+4
^PSRX - [#52]	SURVEY+8, SURVEY+9
^PSRX("AL"	SURVEY+5, SURVEY+6, SURVEY+7
^TMP("ABSPOS31"	MAIN1+3, MAIN1+6, MAIN1+7, MAIN1+8, SURVEY+4!, SURVEY+12, SURVEY+24, SURVEY+27, SURVEY+28, SURVEY+29
^VA(200 - [#200]	SURVEY+10, SURVEY+17, SURVEY+18, SURVEY+19, SURVEY+20

Name	Field # of Occurrence
^(	SURVEY+12

Name	Field # of Occurrence
%H	MAIN+3~
CAID	SURVEY+14~, SURVEY+18*, SURVEY+22
CARE	SURVEY+14~, SURVEY+19*, SURVEY+22
COUNT	MAIN1+5~, MAIN1+6, MAIN1+7, MAIN1+9, MAIN1+12, SURVEY+28~*, SURVEY+29
DEA	SURVEY+14~, SURVEY+17*, SURVEY+22
DOC	MAIN1+5~, MAIN1+7, MAIN1+8, MAIN1+12, SURVEY+3~, SURVEY+8, SURVEY+9, SURVEY+10, SURVEY+11, SURVEY+12 , SURVEY+15, SURVEY+17, SURVEY+18, SURVEY+19, SURVEY+20, SURVEY+24, SURVEY+26, SURVEY+27*, SURVEY+28, SURVEY+29
DT	MAIN+3, MAIN+6
END	MAIN+4~, MAIN+6*, HEADING+4
I	MAIN1+10~*
IO	MAIN1+4
IOF	HEADING+1
NAME	SURVEY+3~, SURVEY+10, SURVEY+11, SURVEY+22
NPI	SURVEY+14~, SURVEY+15, SURVEY+16, SURVEY+22
NUMBERS	MAIN1+5~
POP	MAIN+7~
RPTDATE	HEADING+2, MAIN1+1~*
RXI	SURVEY+3~, SURVEY+6*, SURVEY+7, SURVEY+8, SURVEY+9
RXR	SURVEY+3~, SURVEY+7*, SURVEY+8
START	MAIN+4~, MAIN+5*, MAIN+6, MAIN+9, HEADING+3, HEADING+4, MAIN1~, MAIN1+2, SURVEY~, SURVEY+4
TIME	SURVEY+3~, SURVEY+4, SURVEY+5, SURVEY+6, SURVEY+7
U	MAIN1+9, MAIN1+10, SURVEY+8, SURVEY+9, SURVEY+10, SURVEY+15, SURVEY+17, SURVEY+18, SURVEY+19, SURVEY+20 , SURVEY+22, SURVEY+23, SURVEY+28
UPIN	SURVEY+14~, SURVEY+20*
X	MAIN+3~, MAIN+5, MAIN1+5~, MAIN1+8, MAIN1+9, MAIN1+10, SURVEY+12, SURVEY+22, SURVEY+23, SURVEY+24 , SURVEY+28~*
X1	MAIN+3~*
X2	MAIN+3~*
Y	HEADING+3~, HEADING+4

Name	Field # of Occurrence
$T(	HEADING+2, MAIN1+12