Routine: ABSPOS34

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

Package

Total

Call Graph

($$DATE,$$NOWEXT)^ABSPOSU1 ENDRPT^ABSPOSU5 $$EOPQ^ABSPOSU8

^%ZIS ^%ZISC

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Survey BENEFICIARY/ELIGIBILITY status 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 Beneficiary/Eligibility Status (","ABSPOS34",")",?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,"Status",! 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),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)
^AUPNPAT - [#9000001]	SURVEY1+4
^AUTTBEN - [#9999999.25]	SURVEY1+9
^DD("DD"	HEADING+3, HEADING+4
^DD(9000001	SURVEY1+10
^PSRX - [#52]	SURVEY1+2
^PSRX("AL"	SURVEY+2, SURVEY+3, SURVEY+4
^TMP("ABSPOS34"	MAIN1+5, MAIN1+8, MAIN1+9, MAIN1+10, SURVEY+1!, SURVEY+8, SURVEY+9, SURVEY+10, SURVEY1+16, SURVEY1+19

Name	Field # of Occurrence
%H	MAIN+2~
BEN	SURVEY1+7~, SURVEY1+8, SURVEY1+9*, SURVEY1+14
COUNT	MAIN1+7~, MAIN1+8, MAIN1+9, MAIN1+11, MAIN1+14, SURVEY+9~*, SURVEY+10
DOC	SURVEY+1~, SURVEY+7, SURVEY+8, SURVEY+9, SURVEY+10
DT	MAIN+3, MAIN+6
ELG	SURVEY1+7~, SURVEY1+12, SURVEY1+13*, SURVEY1+14
END	MAIN+4~, MAIN+6*, HEADING+4
I	SURVEY1+11~, SURVEY1+12*
INS	MAIN1+7~, MAIN1+9, MAIN1+10, MAIN1+14
IO	MAIN1+6
IOF	HEADING+1
NAME	SURVEY1+1~, SURVEY1+5, SURVEY1+14, SURVEY1+15*, SURVEY1+16, SURVEY1+17, SURVEY1+19
NUMBERS	MAIN1+7~
P1112	SURVEY1+1~, SURVEY1+4, SURVEY1+5, SURVEY1+7, SURVEY1+15*
PAT	SURVEY1+1~, SURVEY1+2*, SURVEY1+3, SURVEY1+4
POP	MAIN+7~
RPTDATE	HEADING+2, MAIN1+3~*
RXI	SURVEY+1~, SURVEY+3*, SURVEY+4, SURVEY1+2
RXR	SURVEY+1~, SURVEY+4*
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+4, SURVEY1+7, SURVEY1+9, SURVEY1+10, SURVEY1+17, SURVEY1+18
X	MAIN+2~, MAIN+3, MAIN+5, MAIN1+7~, MAIN1+10, MAIN1+11, MAIN1+12, SURVEY+9~, SURVEY1+10~, SURVEY1+12 , SURVEY1+16, SURVEY1+17, SURVEY1+18*, SURVEY1+19
X1	MAIN+2~
X2	MAIN+2~
Y	HEADING+3~, HEADING+4, SURVEY1+11~, SURVEY1+12*

Information