Routine: ABSPOSS8

Package	Total	Call Graph
Pharmacy Point of Sale	5	ZWRITE^ABSPOS LOG^ABSPOSL2 TEMPLATE^ABSPOSS2 $$YESNO^ABSPOSU3 $$IMPOSS^ABSPOSUE
IHS VA Utilities	1	^XBFMK
VA Fileman	1	(,UPDATE)^DIE

Package	Total	Caller Graph
Pharmacy Point of Sale	2	ABSPOSS1 ABSPOSS3

Entry Points

Name	Comments	DBIA/ICR reference
11
10
MOREEDIT()
N99A
ANYINUSE()	;EP - ABSPOSS1
RPTINUSE	;EP - ABSPOSS1
CHK1	;Set out of order messages on the following options
INS	;EP - option ABSP INSURANCE SEL
PART1	;EP - option ABSP SETUP PART 1 - the basic setup
YESNO(TEXT)	;EP - ABSPOSS3
NEW99	; create new entry in 9002313.99
MYRULES()
ALLRULES()

External References

Name	Field # of Occurrence
ZWRITE^ABSPOS	N99A+7
LOG^ABSPOSL2	N99A+1
TEMPLATE^ABSPOSS2	10+3, RPTINUSE+1
$$YESNO^ABSPOSU3	YESNO+1
$$IMPOSS^ABSPOSUE	N99A+8
^DIE	PART1+10, PART1+16, PART1+24, CHK1+33, INS+10, INS+19, INS+27, INS+35, 10+13
UPDATE^DIE	N99A
^XBFMK	CHK1+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Edit Pharmacy POS configuration",! Line Location: PART1+1
Function Call: WRITE	Prompt: !!,"Answer with '?' for help at any question.",! Line Location: PART1+2
Function Call: WRITE	Prompt: !!,"Now set up the STANDARD Pricing Formula. (Different pricing",! Line Location: PART1+18
Function Call: WRITE	Prompt: "policies for different insurers can be established later.)",! Line Location: PART1+19
Function Call: WRITE	Prompt: !!,"The insurance selection ""grace period"" means that if the",! Line Location: INS+3
Function Call: WRITE	Prompt: "registration data shows that insurance has expired, but the",! Line Location: INS+4
Function Call: WRITE	Prompt: "expiration was within N days prior to the prescription fill",! Line Location: INS+5
Function Call: WRITE	Prompt: "date, we assume that the coverage was renewed.",! Line Location: INS+6
Function Call: WRITE	Prompt: "This is a system-wide default setting; you can override it later",! Line Location: INS+7
Function Call: WRITE	Prompt: "on an insurer-by-insurer basis.",! Line Location: INS+8
Function Call: WRITE	Prompt: !!,"Enter the base scores for each insurance type.",! Line Location: INS+12
Function Call: WRITE	Prompt: !,"For example, if Private insurance is usually primary,",! Line Location: INS+13
Function Call: WRITE	Prompt: ?10,"and Medicaid is secondary and Medicare is tertiary",! Line Location: INS+14
Function Call: WRITE	Prompt: "then you might give Private 900 points, Medicaid 600 points,",! Line Location: INS+15
Function Call: WRITE	Prompt: "Medicare and Railroad each 300 points and Self pay 100 points.",! Line Location: INS+16
Function Call: WRITE	Prompt: ! Line Location: INS+17
Function Call: WRITE	Prompt: !!,"Enter the ICD10 default date for POS insurers." Line Location: INS+22
Function Call: WRITE	Prompt: !,"You will have the ability to override this effective date" Line Location: INS+23
Function Call: WRITE	Prompt: !,?5,"for the individual Insurer using the ADV option.",! Line Location: INS+24
Function Call: WRITE	Prompt: ! Line Location: INS+25
Function Call: WRITE	Prompt: !!,"Enter the Maximum Dollar Limit." Line Location: INS+30
Function Call: WRITE	Prompt: !,"Any Claim that is billed higher than this limit," Line Location: INS+31
Function Call: WRITE	Prompt: !,"will automatically be sent to paper for review.",! Line Location: INS+32
Function Call: WRITE	Prompt: ! Line Location: INS+33
Function Call: WRITE	Prompt: !!,"Select any additional insurance rules that might",! Line Location: 10+0
Function Call: WRITE	Prompt: "be needed for distinguishing among private insurances.",! Line Location: 10+1
Function Call: WRITE	Prompt: !,"Usually, the plus points value for a rule is about 10 or 20",! Line Location: 10+6
Function Call: WRITE	Prompt: "and the minus points value is 0." Line Location: 10+7
Function Call: WRITE	Prompt: "If you need a new rule which isn't shown in the list,",! Line Location: 10+8
Function Call: WRITE	Prompt: "the Point of Sale programmer will have to add it.",! Line Location: 10+9
Function Call: WRITE	Prompt: "The INS RULE ORDER tells what order the rules are applied,",! Line Location: 10+10
Function Call: WRITE	Prompt: "from low to high. 10, 20, 30, etc. are good choices for ORDER.",! Line Location: 10+11
Function Call: WRITE	Prompt: !!,"This concludes the system-wide insurance setup.",! Line Location: 10+17
Function Call: WRITE	Prompt: "Remember, there is another setup program to setup specific",! Line Location: 10+18
Function Call: WRITE	Prompt: "insurers with their electronic formats, insurance selection",! Line Location: 10+19
Function Call: WRITE	Prompt: "settings, grace period override, etc.",! Line Location: 10+20
Routine Call	DIE Line Location: N99A
Routine Call	DIE Line Location: PART1+10 PART1+16 PART1+24 CHK1+33 INS+10 INS+19 INS+27 INS+35 10+13

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.99 - [#9002313.99]	PART1+12, NEW99+1, N99A+2, N99A+5*, CHK1+19, ANYINUSE+1
^DIC(19 - [#19]	CHK1+25, CHK1+27

Name	Line Occurrences
$$ALLRULES	10+2
$$ANYINUSE	10+14
$$MOREEDIT	10+15
$$MYRULES	10+5, 10+14
$$YESNO	ALLRULES, MYRULES, MOREEDIT
10	10+2, 10+5
11	10+15
N99A	N99A+8
NEW99	PART1+3
RPTINUSE	10+5, 10+14

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	10+21~*
>> ABSP3PB	PART1+12*, PART1+13
ALLRULES	INS+37~, 11, 10+2, 10+4
DA	PART1+4~, PART1+5, PART1+14, PART1+20, CHK1+31, INS+1~, INS+2, 10+12
DIDEL	PART1+4~, INS+1~
DIE	PART1+4~, PART1+5, PART1+14, PART1+20, CHK1+31, INS+1~, INS+2, 10+12
DR	PART1+4~, PART1+6, PART1+7, PART1+8, PART1+9, PART1+15, PART1+21, PART1+22, PART1+23, CHK1+32* , INS+1~, INS+9, INS+18, INS+26, INS+34, 10+12*
DTOUT	PART1+4~, INS+1~
FDA	NEW99+2~
FDA(	NEW99+3, NEW99+4
IEN	NEW99+2~
IEN(1	N99A+2
MSG	NEW99+2~, N99A+1, N99A+2
MYRULES	INS+37~, 11, 10+5
OPTCNT	CHK1+7~, CHK1+22*, CHK1+25
OPTIEN	CHK1+7~, CHK1+24, CHK1+25, CHK1+26, CHK1+27, CHK1+31
OPTMSG	CHK1+7~, CHK1+19, CHK1+20, CHK1+28, CHK1+29, CHK1+30
OPTMSG2	CHK1+7~, CHK1+27*, CHK1+28, CHK1+29, CHK1+30
OPTNAME	CHK1+7~
OPTNAME(	CHK1+25
OPTNAME(1	CHK1+9*
OPTNAME(2	CHK1+10*
OPTNAME(3	CHK1+11*
OPTNAME(4	CHK1+12*
OPTNAME(5	CHK1+13*
OPTNAME(6	CHK1+14*
OPTNAME(7	CHK1+15*
OPTNAME(8	CHK1+16*
OPTNAME(9	CHK1+17*
TEXT	YESNO~, YESNO+1
U	PART1+12, NEW99+1, CHK1+27

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSS8

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items