Routine: ABSPOS25

Information

ABSPOS25 ; IHS/FCS/DRS - insurance auto-selection ; [ 08/28/2002 2:43 PM ]

Source Information

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Pharmacy Point of Sale	2	EN^ABSPOS29 IMPOSS^ABSPOSUE
VA Fileman	1	C^%DTC

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Pharmacy Point of Sale	4	ABSPOS28 ABSPOS32 ABSPOSI8 ABSPOSQB

Entry Points

Name	Field # of Occurrence
C^%DTC	ADDGRACE+1
EN^ABSPOS29	B+4
IMPOSS^ABSPOSUE	TYPEPTS+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $T(+0)," for ABSBVISI=",$G(ABSBVISI),", ABSBPATI=",ABSBPATI Line Location: A+8
Function Call: WRITE	Prompt: ", ABSBRXI=",ABSBRXI,", ABSBRXR=",ABSBRXR Line Location: A+9
Function Call: WRITE	Prompt: ! Line Location: A+10
Function Call: WRITE	Prompt: "Not counting ARRAY(",I,")=",ARRAY(I),! Line Location: F+25
Function Call: WRITE	Prompt: "$$ELGDATE(",FROMTO,") testing INSIEN: "_INSIEN_" for ONDATE=",ONDATE,"..." Line Location: ELGDATE+4
Function Call: WRITE	Prompt: $$ELGDATE(FROMTO),! Line Location: ELGDATE+5
Function Call: WRITE	Prompt: "Added grace period ",$$GRACE(INSIEN)," to ",TO," giving ",X,! Line Location: ADDGRACE+2

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.99 - [#9002313.99]	F+6, F+9, F+11, GRACE+4, SELF+2, ILCAR, TYPEPTS+1
^ABSPCOMB - [#9002313.1]	GATHER+2, GATHER+3
^ABSPEI - [#9002313.4]	GRACE+1, GATHER+7
^ABSPF(9002313.94 - [#9002313.94]	F+15
^AUPNPRVT - [#9000006]	DRUGCOVG+2
^AUPNVSIT - [#9000010]	B+16
^AUTNINS - [#9999999.18]	GATHER+13
^AUTNINS("B"	SELF+3
^AUTTPIC - [#9999999.65]	DRUGCOVG+5
^PSRX - [#52]	B+12, B+14

Name	Line Occurrences
$$ADDGRACE	ELGDATE+11
$$DRUGCOVG	GATHER+14
$$ELGDATE	GATHER+15, ELGDATE+5
$$GRACE	ADDGRACE+1
$$TYPEPTS	SELF+5, GATHER+5
ADD	SELF+5, GATHER+16
GATHER	B+18
SELF	B+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%H	ADDGRACE+1~
>> ABSBPATI	A+8, B+4, GATHER+2, GATHER+3, GATHER+14
>> ABSBRXI	A+9, B+12, B+14
>> ABSBRXR	A+9, B+12
>> ABSBVISI	A+8, B+16
ABSPCOMB	ADD~, ADD+3
ARRAY	INSURER~, A+5!, F+29!
ARRAY(	F+23, F+25, F+28, F+37, ADD+3
ARRAY(0	A+5, F+22, F+38, F+40, GATHER+18, ADD+2*, ADD+3
COUNT	GATHER+1~, GATHER+17
D0	DRUGCOVG~, DRUGCOVG+2
D1	DRUGCOVG~, DRUGCOVG+1, DRUGCOVG+2
DEBUG	A+6~, A+7, F+25, GATHER+15, ELGDATE+2, ELGDATE+3~
DFN	GATHER+1~, GATHER+2, GATHER+3, GATHER+6, GATHER+16
DT	B+17
FORRX	INSURER~, A+4*, GATHER+13, GATHER+14
FRESH	INSURER~, A+2*
FROM	ELGDATE+6~*, ELGDATE+7, ELGDATE+8
FROMTO	ELGDATE~, ELGDATE+4, ELGDATE+5, ELGDATE+6
I	F+22~, F+23, F+25, F+28, F+35, F+36, F+37
IEN	F+4~, F+7, F+8, F+9, F+10, F+11
II	F+22~, F+34, F+37, F+38
INSIEN	GRACE~, GRACE+1, SELF+1~, SELF+2, SELF+3, SELF+4, SELF+5, GATHER+4~*, GATHER+7, GATHER+13 , GATHER+15, GATHER+16, ELGDATE~, ELGDATE+4, ELGDATE+11, ADDGRACE~, ADDGRACE+1, ADD~, ADD+3
MAXARRAY	INSURER~, A+3*
ONDATE	A+1~, B+12, B+14, B+15, B+16, B+17*, ELGDATE+4, ELGDATE+8, ELGDATE+10, ELGDATE+11
ORDER	F+4~, F+5, F+6, F+7, F+9
PINS	ADD~, ADD+1*, ADD+3
POINTS	GATHER+5~, GATHER+6, GATHER+7, GATHER+13, GATHER+14*, GATHER+16, ADD~, ADD+3
PTS	F+22~, F+23, F+24, F+28, F+34, F+35, F+36, F+37
PTSMINUS	F+4~, F+12*
PTSPLUS	F+4~, F+12*
RET	GRACE+1~, GRACE+4, GRACE+5*, GRACE+6
ROUTINE	F+4~, F+15*, F+17
RULE	F+4~, F+12*, F+14, F+15
STOP	F+4~*
TMP	F+22~
TMP(	F+34, F+35, F+36, F+37
TMP(0	F+28*
TO	ELGDATE+6~*, ELGDATE+9, ELGDATE+10, ELGDATE+11
TYPE	GATHER+4~*, GATHER+5, TYPEPTS~, TYPEPTS+2, TYPEPTS+3, TYPEPTS+4, TYPEPTS+5, TYPEPTS+6
U	B+12, B+14, B+16, F+12, F+15, F+23, F+36, GRACE+1, GRACE+4, SELF+2 , ILCAR, GATHER+4, GATHER+7, GATHER+13, GATHER+14, GATHER+15, GATHER+16, TYPEPTS+2, TYPEPTS+3, TYPEPTS+4 , TYPEPTS+5, TYPEPTS+6, ELGDATE+6, DRUGCOVG+3, DRUGCOVG+5, ADD+3
X	F+11~, F+12, F+36, GATHER+1~, GATHER+3, GATHER+4, GATHER+14, GATHER+15, GATHER+16, TYPEPTS+1~ , TYPEPTS+2, TYPEPTS+3, TYPEPTS+4, TYPEPTS+5, TYPEPTS+6, ADDGRACE+1~, ADDGRACE+3, DRUGCOVG+2~, DRUGCOVG+3, DRUGCOVG+5
X1	ADDGRACE~
X2	ADDGRACE+1~*
Y	DRUGCOVG+5~*

Name	Comments	DBIA/ICR reference
A	;N (ABSBVISI,ABSBPATI,ABSBRXI,ABSBRXR,DUZ,DT,U,DEBUG,ARRAY,FRESH,MAXARRAY,FORRX)
ADD(INSIEN,PINS,ABSPCOMB,POINTS)
B	;I $$ILCAR D
ELGDATE(FROMTO,INSIEN)
F	; ; Now all of the insurances are in the array with initial scores. ; Adjust the scores based on the rules in effect for this site.
SELF	; add SELF PAY to the list
GATHER	; return the count of how many of these we put in the array
INSURER(ARRAY,FRESH,MAXARRAY,FORRX)
TYPEPTS(TYPE)
ILCAR()
GRACE(INSIEN)
DRUGCOVG(D0,D1)
ADDGRACE(X1,INSIEN)

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOS25

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items