Routine: ABSPOS32

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

Entry Points

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Survey insurances from recent prescriptions to see which",! Line Location: MAIN+1
Function Call: WRITE	Prompt: "additional formats we might like to have.",! Line Location: MAIN+2
Function Call: WRITE	Prompt: !,"...thinking...",! Line Location: MAIN+9
Function Call: WRITE	Prompt: @IOF Line Location: HEADING+1
Function Call: WRITE	Prompt: "Survey of Insurers (","ABSPOS32",") ",$$NOWEXT^ABSPOSU1,! 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",?50,"Now sending format",! Line Location: HEADING+5
Function Call: WRITE	Prompt: !,"No prescriptions found?!",! Line Location: MAIN1+4
Function Call: WRITE	Prompt: $J(COUNT,7),?10,$E($P(X,U,2)_"(`"_INS_")",1,40) Line Location: MAIN1+10
Function Call: WRITE	Prompt: ?51,$P(X,U,3) Line Location: MAIN1+11
Function Call: WRITE	Prompt: ! Line Location: MAIN1+12
Function Call: WRITE	Prompt: "No PCC link for ",ABSBRXI,",",ABSBRXR,! Line Location: SURVEY1+6
Function Call: WRITE	Prompt: "PCC link but '$D() on ABSBVMED=" Line Location: SURVEY1+8
Function Call: WRITE	Prompt: ABSBVMED Line Location: SURVEY1+8
Function Call: WRITE	Prompt: ABSBVMED Line Location: SURVEY1+8
Routine Call	%ZIS Line Location: MAIN+8

Name	Line Occurrences (* Changed, ! Killed)
^ABSPEI - [#9002313.4]	SURVEY1+20
^ABSPF(9002313.92 - [#9002313.92]	SURVEY1+22
^AUPNVMED - [#9000010.14]	SURVEY1+7, SURVEY1+9
^AUTNINS - [#9999999.18]	SURVEY1+16
^DD("DD"	HEADING+3, HEADING+4
^PSRX - [#52]	SURVEY1+3, SURVEY1+4, SURVEY1+10
^PSRX("AL"	SURVEY+2, SURVEY+3, SURVEY+4
^TMP("ABSPOS32"	MAIN1+4, MAIN1+7, MAIN1+8, MAIN1+9, SURVEY+1!, SURVEY+8, SURVEY+9, SURVEY+10, SURVEY1+13, SURVEY1+26

Name	Field # of Occurrence
%H	MAIN+4~
ABSBPATI	SURVEY1+1~, SURVEY1+10*
ABSBRXI	SURVEY1+1~, SURVEY1+2*, SURVEY1+3, SURVEY1+4, SURVEY1+6, SURVEY1+10
ABSBRXR	SURVEY1+1~, SURVEY1+2*, SURVEY1+3, SURVEY1+6
ABSBVISI	SURVEY1+1~, SURVEY1+9*
ABSBVMED	SURVEY1+1~, SURVEY1+3, SURVEY1+4, SURVEY1+5, SURVEY1+7, SURVEY1+8, SURVEY1+9
ARRAY	SURVEY1+11~
ARRAY(1	SURVEY1+12
COUNT	MAIN1+6~, MAIN1+7, MAIN1+8, MAIN1+10, MAIN1+13, SURVEY+9~*, SURVEY+10
DOC	SURVEY+1~, SURVEY+7, SURVEY+8, SURVEY+9, SURVEY+10
DT	MAIN+4, MAIN+7
END	MAIN+5~, MAIN+7*, HEADING+4
FMT	SURVEY1+20~*, SURVEY1+21, SURVEY1+22, SURVEY1+23
FMTNAME	SURVEY1+22~, SURVEY1+23, SURVEY1+24
INS	MAIN1+6~, MAIN1+8, MAIN1+9, MAIN1+10, MAIN1+13, SURVEY1+12~*, SURVEY1+13, SURVEY1+15, SURVEY1+16, SURVEY1+17 , SURVEY1+20, SURVEY1+26
IO	MAIN1+5
IOF	HEADING+1
NUMBERS	MAIN1+6~
POP	MAIN+8~
RXI	SURVEY+1~, SURVEY+3*, SURVEY+4, SURVEY1+2
RXR	SURVEY+1~, SURVEY+4*, SURVEY1+2
START	MAIN+5~, MAIN+6*, MAIN+7, MAIN+10, HEADING+3, HEADING+4, MAIN1~, MAIN1+3, SURVEY~, SURVEY+1
TIME	SURVEY+1~, SURVEY+2, SURVEY+3, SURVEY+4
U	MAIN1+10, MAIN1+11, SURVEY+9, SURVEY1+3, SURVEY1+4, SURVEY1+9, SURVEY1+10, SURVEY1+16, SURVEY1+19, SURVEY1+20 , SURVEY1+22, SURVEY1+24, SURVEY1+25
X	MAIN+4~, MAIN+6, MAIN1+6~, MAIN1+9, MAIN1+10, MAIN1+11, SURVEY+9~, SURVEY1+13~, SURVEY1+14, SURVEY1+16 , SURVEY1+17, SURVEY1+18, SURVEY1+19, SURVEY1+24, SURVEY1+25*, SURVEY1+26
X1	MAIN+4~*
X2	MAIN+4~*
Y	HEADING+3~, HEADING+4

Name	Field # of Occurrence
$T(	MAIN1+13