Routine: ABSPOSQQ

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIE
IHS VA Utilities	1	^XBFMK

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSQA

Name	Comments	DBIA/ICR reference
SETNAME	;EP - option ABSP UNBILLABLE DRUG ; the name-based rules
GETDRNAM(INSIEN,DRUGIEN,DRUGNAME,MEDTNAME,FILE,FOR)	;CHECK FOR DRUG NAME RULES
NAMETEST()	; Execute the tests in order; stop when you get a TRUE result ; Given NAME - return value is 1 if any test was TRUE, 0 if all FALSE ; and SUBNAME needed too
SETNDC	;EP - option ABSP UNBILLABLE NDC ; the NDC number rules
NOTE	;
GETOTC(INSIEN,DRUGIEN,FILE,FOR)	;CHECK FOR OTC RULES
SETOTC	;EP - option ABSP UNBILLABLE OTC
ANYSET(N)	;EP - are any of the billable/unbillable fields set for ; ^ABSPEI(N ? ; Used by computed field 2128.99
BILLABLE(INSIEN,DRUGIEN,NDC)	;EP - ABSPOSQA
HOW(FILE)
GETNAME(TAG)	;
GETNDC(INSIEN,DRUGIEN,NDC,FILE,FOR)	;CHECK FOR NDC RULES

Name	Field # of Occurrence
^DIC	SETOTC+8, SETNAME+13, SETNDC+14, SETNDC+27, SETNDC+36, SETNDC+49
^DIE	SETOTC+4, SETOTC+11, SETNAME+10, SETNAME+14, SETNAME+15, SETNDC+20, SETNDC+42, SETNDC+55
^XBFMK	SETNDC+9, SETNDC+26, SETNDC+31, SETNDC+44

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This setting determines whether OTC drugs are UNbillable.",! Line Location: SETOTC+1
Function Call: WRITE	Prompt: "First, the default setting which applies to all insurances:",! Line Location: SETOTC+2
Function Call: WRITE	Prompt: !!,"Next, you may make any insurer-specific settings. This is",! Line Location: SETOTC+6
Function Call: WRITE	Prompt: "for situations where an insurer has a different policy on OTCs.",! Line Location: SETOTC+7
Function Call: WRITE	Prompt: !,"You have to have a programmer enter these rules.",! Line Location: SETNAME+2
Function Call: WRITE	Prompt: !!?15,"*** Name-based rules for billable insurances ***",! Line Location: SETNAME+4
Function Call: WRITE	Prompt: "Enter Mumps IF commands to set $T true or false",! Line Location: SETNAME+5
Function Call: WRITE	Prompt: "(True means Unbillable if you're entering Unbillable rules;",! Line Location: SETNAME+6
Function Call: WRITE	Prompt: " True means Billable if you're entering Billable rules)",! Line Location: SETNAME+7
Function Call: WRITE	Prompt: "The variable X contains the drug name, converted to uppercase.",! Line Location: SETNAME+8
Function Call: WRITE	Prompt: !!?5," First, the system-wide defaults: ",! Line Location: SETNAME+9
Function Call: WRITE	Prompt: !!?5," Rules for specific insurances ",! Line Location: SETNAME+11
Function Call: WRITE	Prompt: !! Line Location: SETNAME+16
Function Call: WRITE	Prompt: "(Note: if the system-wide rule says the drug is billable,",! Line Location: NOTE+1
Function Call: WRITE	Prompt: " then only the insurer's unbillable test is made,",! Line Location: NOTE+2
Function Call: WRITE	Prompt: " and conversely, if the system-wide test says unbillable",! Line Location: NOTE+3
Function Call: WRITE	Prompt: " then only the insurer's billable test is made.)",! Line Location: NOTE+4
Function Call: WRITE	Prompt: !!,"***** Specifying unbillable and billable NDC numbers",!! Line Location: SETNDC+3
Function Call: WRITE	Prompt: "The numbers you enter must be 11-digit numbers, without dashes.",!! Line Location: SETNDC+4
Function Call: WRITE	Prompt: "First, NDC numbers that are unbillable, system-wide",! Line Location: SETNDC+5
Function Call: WRITE	Prompt: !!,"Now, NDC numbers that are unbillable/billable",! Line Location: SETNDC+22
Function Call: WRITE	Prompt: "for specific insurers",! Line Location: SETNDC+23
Function Call: WRITE	Prompt: DRUGNAME Line Location: GETNAME+9
Routine Call	DIE Line Location: SETOTC+4 SETOTC+11 SETNAME+10 SETNAME+14 SETNAME+15 SETNDC+20 SETNDC+42 SETNDC+55
Routine Call	DIC Line Location: SETOTC+8 SETNAME+13 SETNDC+14 SETNDC+27 SETNDC+36 SETNDC+49

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.99 - [#9002313.99]	GETNAME+3
^ABSPEI - [#9002313.4]	GETNAME+4, GETNAME+5, ANYSET+3, ANYSET+6
^APSAMDF - [#9009037]	BILLABLE+11, GETNAME+8
^APSAMDF("B"	BILLABLE+10, GETNAME+6
^AUTNINS - [#9999999.18]	BILLABLE+3, HOW+1
^DIC - [#1]	GETNDC+3, GETDRNAM+5, GETOTC+2
^PSDRUG - [#50]	BILLABLE+7, GETOTC+6

Name	Line Occurrences
$$GETDRNAM	BILLABLE+22, BILLABLE+24, BILLABLE+33, BILLABLE+35
$$GETNDC	BILLABLE+17, BILLABLE+19, BILLABLE+28, BILLABLE+30
$$GETOTC	BILLABLE+38, BILLABLE+40, BILLABLE+43, BILLABLE+45
$$HOW	GETNDC+10, GETDRNAM+11, GETOTC+14
$$NAMETEST	GETDRNAM+8
NOTE	SETNAME+12, SETNDC+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABSBPOS2	NAMETEST+4~, NAMETEST+7, NAMETEST+8
DA	SETOTC+3~, SETOTC+4, SETOTC+11, SETNAME+3~, SETNAME+10, SETNAME+14, SETNDC+1~, SETNDC+18, SETNDC+40, SETNDC+53*
DA(1	SETNDC+10, SETNDC+11, SETNDC+17, SETNDC+32, SETNDC+33, SETNDC+39, SETNDC+45*, SETNDC+46, SETNDC+52, GETNAME+3 , GETNAME+4, GETNAME+5
DIC	SETOTC+3~, SETOTC+8, SETNAME+3~, SETNAME+13, SETNDC+1~, SETNDC+11, SETNDC+27, SETNDC+33, SETNDC+46
DIC("W"	SETNDC+13, SETNDC+35, SETNDC+48*
DIC(0	SETOTC+8, SETNAME+13, SETNDC+12, SETNDC+27, SETNDC+34, SETNDC+47
DIE	SETOTC+3~, SETOTC+4, SETOTC+11, SETNAME+3~, SETNAME+10, SETNAME+14, SETNDC+1~, SETNDC+17, SETNDC+39, SETNDC+52*
DINUM	SETOTC+3~, SETNAME+3~, SETNDC+1~
DLAYGO	SETOTC+3~, SETOTC+8, SETNAME+3~, SETNAME+13, SETNDC+1~, SETNDC+27*
DOLLART	NAMETEST+4~, NAMETEST+7, NAMETEST+8, NAMETEST+9
DR	SETOTC+3~, SETOTC+4, SETOTC+11, SETNAME+3~, SETNAME+10, SETNAME+14, SETNAME+15, SETNDC+1~, SETNDC+19, SETNDC+41* , SETNDC+54*
DRUGIEN	BILLABLE~, BILLABLE+7, BILLABLE+17, BILLABLE+19, BILLABLE+22, BILLABLE+24, BILLABLE+28, BILLABLE+30, BILLABLE+33, BILLABLE+35 , BILLABLE+38, BILLABLE+40, BILLABLE+43, BILLABLE+45, GETNDC~, GETDRNAM~, GETOTC~, GETOTC+6
DRUGNAME	BILLABLE+6~, BILLABLE+7, BILLABLE+8, BILLABLE+22, BILLABLE+24, BILLABLE+33, BILLABLE+35, GETDRNAM~, GETDRNAM+8, GETNAME+2~ , GETNAME+7, GETNAME+8, GETNAME+9
DTIME	SETOTC+3~, SETNAME+3~, SETNDC+1~
DTOUT	SETOTC+3~, SETNAME+3~, SETNDC+1~, SETNDC+8, SETNDC+16, SETNDC+30, SETNDC+38, SETNDC+43, SETNDC+51
DUOUT	SETOTC+3~, SETNAME+3~, SETNDC+1~, SETNDC+8, SETNDC+16, SETNDC+30, SETNDC+38, SETNDC+43, SETNDC+51
DUZ(0	SETNAME+1
FILE	GETNDC~, GETNDC+3, GETNDC+10, GETDRNAM~, GETDRNAM+5, GETDRNAM+11, GETOTC~, GETOTC+2, GETOTC+14, HOW~ , HOW+1
FOR	GETNDC~, GETNDC+4, GETNDC+7, GETNDC+10, GETDRNAM~, GETDRNAM+6, GETDRNAM+9, GETDRNAM+11, GETOTC~, GETOTC+3 , GETOTC+11, GETOTC+12, GETOTC+14
INSIEN	BILLABLE~, BILLABLE+2, BILLABLE+3, BILLABLE+4, BILLABLE+17, BILLABLE+19, BILLABLE+22, BILLABLE+24, BILLABLE+38, BILLABLE+40 , GETNDC~, GETNDC+3, GETDRNAM~, GETDRNAM+5, GETOTC~, GETOTC+2, HOW+1, SETNDC+2~, SETNDC+29*, SETNDC+32 , SETNDC+45
MEDTNAME	BILLABLE+6~, BILLABLE+11, BILLABLE+12, BILLABLE+13*, BILLABLE+22, BILLABLE+24, BILLABLE+33, BILLABLE+35, GETDRNAM~, GETDRNAM+8
N	ANYSET~, ANYSET+3, ANYSET+6
NAME	GETDRNAM+1~, GETDRNAM+8*, GETDRNAM+11, NAMETEST+6
NDC	BILLABLE~, BILLABLE+9, BILLABLE+10, BILLABLE+13, BILLABLE+17, BILLABLE+19, BILLABLE+28, BILLABLE+30, GETNDC~, GETNDC+6 , GETNDC+10, GETNAME+2~, GETNAME+3, GETNAME+4, GETNAME+5, GETNAME+6
NDCIEN	GETNAME+2~, GETNAME+6*, GETNAME+7, GETNAME+8
NEWREC	SETNDC+2~, SETNDC+15, SETNDC+16, SETNDC+37, SETNDC+38, SETNDC+50*, SETNDC+51
OTC	GETOTC+7~, GETOTC+8, GETOTC+10, GETOTC+11
RESULT	BILLABLE+1~, BILLABLE+2, BILLABLE+4, BILLABLE+5, BILLABLE+17, BILLABLE+18, BILLABLE+19, BILLABLE+20, BILLABLE+22, BILLABLE+23 , BILLABLE+24, BILLABLE+25, BILLABLE+28, BILLABLE+29, BILLABLE+30, BILLABLE+31, BILLABLE+33, BILLABLE+34, BILLABLE+35, BILLABLE+36 , BILLABLE+38, BILLABLE+39, BILLABLE+40, BILLABLE+41, BILLABLE+43, BILLABLE+44, BILLABLE+45, BILLABLE+46, BILLABLE+48, BILLABLE+49 , GETNDC+1~, GETNDC+2, GETNDC+6, GETNDC+7, GETNDC+8, GETNDC+11, GETNDC+12, GETDRNAM+1~, GETDRNAM+2, GETDRNAM+9* , GETDRNAM+10, GETDRNAM+12, GETDRNAM+13, GETOTC+1~, GETOTC+5, GETOTC+12, GETOTC+13, GETOTC+15, GETOTC+16
RET	ANYSET+4~, ANYSET+6, ANYSET+7
ROOT	GETNDC+1~, GETNDC+3, GETNDC+6, GETDRNAM+1~, GETDRNAM+5, GETOTC+1~, GETOTC+2*, GETOTC+7, NAMETEST+3, NAMETEST+7 , NAMETEST+8
SUB	GETNDC+1~, GETNDC+4, GETNDC+5, GETDRNAM+1~, GETDRNAM+6, GETDRNAM+7, GETOTC+1~, GETOTC+3*, GETOTC+4
SUBNAME	GETNDC+1~, GETDRNAM+1~, GETDRNAM+7, GETOTC+1~, GETOTC+4, NAMETEST+3, NAMETEST+7, NAMETEST+8
SUBNDC	GETNDC+1~, GETNDC+5, GETNDC+6, GETDRNAM+1~, GETOTC+1~, GETOTC+4
TAG	GETNAME~, GETNAME+3, GETNAME+4, GETNAME+5
U	BILLABLE+3, BILLABLE+7, BILLABLE+11, BILLABLE+18, BILLABLE+20, BILLABLE+23, BILLABLE+25, BILLABLE+29, BILLABLE+31, BILLABLE+34 , BILLABLE+36, BILLABLE+39, BILLABLE+41, BILLABLE+44, BILLABLE+46, GETNDC+7, GETNDC+8, GETNDC+11, GETDRNAM+9, GETDRNAM+10 , GETDRNAM+12, GETOTC+6, GETOTC+7, GETOTC+12, GETOTC+13, GETOTC+15, HOW+1, SETNDC+15, SETNDC+37, SETNDC+50 , GETNAME+3, GETNAME+4, GETNAME+5, GETNAME+8, ANYSET+3
X	BILLABLE+3~, BILLABLE+4, BILLABLE+5, BILLABLE+10~, BILLABLE+11, GETNDC+8~, GETNDC+9, GETNDC+10, GETNDC+11, GETDRNAM+10~ , GETDRNAM+11, GETDRNAM+12, GETOTC+13~, GETOTC+14, GETOTC+15, NAMETEST+4~, NAMETEST+6, SETOTC+3~, SETNAME+3~, SETNDC+1~ , SETNDC+8, SETNDC+30, SETNDC+43, ANYSET+4~, ANYSET+5*, ANYSET+6
Y	SETOTC+3~, SETOTC+8, SETOTC+11, SETNAME+3~, SETNAME+13, SETNAME+14, SETNDC+1~, SETNDC+15, SETNDC+16, SETNDC+18 , SETNDC+27, SETNDC+29, SETNDC+37, SETNDC+38, SETNDC+40, SETNDC+50, SETNDC+51, SETNDC+53, GETNAME+3, GETNAME+4 , GETNAME+5, ANYSET+4~, ANYSET+5*, ANYSET+6

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSQQ

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items