Routine: ABSPOSQP

Information

ABSPOSQP ; IHS/FCS/DRS - SGM 05:46 PM 20 Jan 1997 ; [ 09/12/2002 10:18 AM ]

Source Information

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Pharmacy Point of Sale	4	$$MAKE11N^ABSPOS9 RECALC1^ABSPOSI7 ASK^ABSPOSS3 IMPOSS^ABSPOSUE
VA Fileman	1	($$GET,PUT)^DDSVAL

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Pharmacy Point of Sale	2	ABSPOSI7 ABSPOSQB

Entry Points

External References

Name	Field # of Occurrence
$$MAKE11N^ABSPOS9	PAGE7+26
RECALC1^ABSPOSI7	PAGE7+21, PAGE7+38
ASK^ABSPOSS3	NEWENTRY+7
IMPOSS^ABSPOSUE	UNITPRI2+10, STEP+1, PAGE7+8
$$GET^DDSVAL	PAGE7+4, PAGE7+5, PAGE7+7, PAGE7+10, PAGE7+11, PAGE7+22, PAGE7+24, PAGE7+25, PAGE7+34
PUT^DDSVAL	PAGE7+10, PAGE7+14, PAGE7+15, PAGE7+16, PAGE7+18, PAGE7+19, PAGE7+20, PAGE7+27, PAGE7+29, PAGE7+30 , PAGE7+31, PAGE7+36

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"At this time, you have " Line Location: NEWENTRY+2
Function Call: WRITE	Prompt: "only the STANDARD pricing formula.",! Line Location: NEWENTRY+4
Function Call: WRITE	Prompt: COUNT," pricing formulas on file.",! Line Location: NEWENTRY+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSCPT(9002300	GETCPTRT+1, GETCPTRT+3, PAGE7+12
^ABSP(9002313.53 - [#9002313.53]	METHOD+2, NEWENTRY+1
^ABSPEI - [#9002313.4]	METHNUM+2, DISPFEE+4
^ABSPT - [#9002313.59]	PRICING+15*
^ABSSETUP(9002314	DISPFEE+16
^APSAMDF - [#9009037]	GETAWP+3
^APSAMDF("B"	GETAWP+2
^PSDRUG - [#50]	EN+13, GETAWPPD+1, GETPPDU+1
^PSRX - [#52]	EN+15, GETPSRXA+1, GETPSRXA+2, GETPSRXU+1, GETPSRXU+2, QTY+1, QTY+2
^TMP("DDS"	PAGE7+2
^VA(200 - [#200]	EN+16

Label References

Name	Line Occurrences
$$DISPFEE	PRICING+8, PAGE7+30
$$GETAWP	UNITPRI+5, UNITPRI+12, UNITPRI2+3
$$GETAWPPD	UNITPRI+6, UNITPRI+13, UNITPRI2+4
$$GETCPTRT	UNITPRI+10, UNITPRI+17, UNITPRI2+8
$$GETPPDU	UNITPRI+7, UNITPRI+16, UNITPRI2+5
$$GETPSRXA	UNITPRI+8, UNITPRI+14, UNITPRI2+6
$$GETPSRXU	UNITPRI+9, UNITPRI+15, UNITPRI2+7
$$METHNUM	METHOD+2
$$METHOD	PRICING+2, DISPFEE+10, PAGE7+23
$$QTY	PRICING+4, PAGE7+27
$$ROUND	PRICING+12
$$STEP	UNITPRI+19
$$UNITPRI	PRICING+5
$$UNITPRI1	PAGE7+28
$$UNITPRI2	UNITPRI1+3, UNITPRI1+18, UNITPRI1+19, UNITPRI1+20, UNITPRI1+21, UNITPRI1+22, UNITPRI1+23, UNITPRI1+24
$$ZEROES	PAGE7+29, PAGE7+36
PRICING	EN+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABSBDRGI	EN+12
ABSBNDC	GETAWP+1, GETAWP+2, PAGE7+3~, PAGE7+25, PAGE7+26
ABSBRXI	EN+15, GETPSRXA+1, GETPSRXA+2, GETPSRXU+1, GETPSRXU+2, IEN59, QTY+1, QTY+2, PAGE7+3~, PAGE7+5* , PAGE7+6
ABSBRXR	GETPSRXA+1, GETPSRXA+2, GETPSRXU+1, GETPSRXU+2, IEN59, QTY+1, PAGE7+3~, PAGE7+22*
ABSPINCN	PRICING+10~*, PRICING+12, PRICING+14
ABSPINCT	PAGE7+33~, PAGE7+34, PAGE7+35, PAGE7+36
COUNT	NEWENTRY+1~*, NEWENTRY+3, NEWENTRY+6
CPTDFN	GETCPTRT+1~*, GETCPTRT+2, GETCPTRT+3
CPTIEN	PAGE7+7~*, PAGE7+8, PAGE7+12
>> DA	PAGE7+4, PAGE7+5, PAGE7+7, PAGE7+10, PAGE7+11, PAGE7+14, PAGE7+15, PAGE7+16, PAGE7+18, PAGE7+19 , PAGE7+20, PAGE7+22, PAGE7+24, PAGE7+25, PAGE7+27, PAGE7+29, PAGE7+30, PAGE7+31, PAGE7+34, PAGE7+36
>> DDS	PAGE7+2
>> DDSDA	PAGE7+2
>> DDSERROR	PAGE7+2*
>> DIE	PAGE7+4, PAGE7+5, PAGE7+7, PAGE7+10, PAGE7+11, PAGE7+14, PAGE7+15, PAGE7+16, PAGE7+18, PAGE7+19 , PAGE7+20, PAGE7+22, PAGE7+24, PAGE7+25, PAGE7+27, PAGE7+29, PAGE7+30, PAGE7+31, PAGE7+34, PAGE7+36
DISPFEE	PRICING+8~*, PRICING+12, PRICING+13
DRGDFN	EN+12~, EN+13, EN+14, GETAWPPD+1, GETPPDU+1, GETCPTRT+1, PAGE7+3~, PAGE7+24
>> DRGNAME	EN+13, EN+14
FEE	DISPFEE+1~, DISPFEE+3, DISPFEE+4, DISPFEE+10, DISPFEE+16*, DISPFEE+17
>> IEN59	PRICING+15
INSURER	METHNUM+2, DISPFEE+3, DISPFEE+4, PAGE7+3~, PAGE7+4*
METHOD	METHNUM+1~, METHNUM+2, METHNUM+3, METHNUM+4, UNITPRI+4, UNITPRI+19, UNITPRI1+2, PRICING+2~, PRICING+6, PAGE7+3~ , PAGE7+23*
MULTIP	PRICING+6~*, PRICING+7
>> PRICALC	PRICING+1, PRICING+4, PRICING+5, PRICING+7, PRICING+8, PRICING+10, PRICING+12*
PRICE	PAGE7+12~*, PAGE7+13, PAGE7+18
>> PRICING	PRICING+13, PRICING+14, PRICING+15
>> PROV	EN+16, EN+17, EN+18*
>> PROVDFN	EN+15*, EN+16, EN+18
QTY	PRICING+4~*, PRICING+12, PRICING+13
U	EN+13, EN+15, EN+16, METHNUM+2, GETAWP+3, GETAWPPD+1, GETPPDU+1, GETCPTRT+3, GETPSRXA+1, GETPSRXA+2 , GETPSRXU+1, GETPSRXU+2, UNITPRI+4, UNITPRI+19, UNITPRI1+2, UNITPRI2+11, PRICING+6, PRICING+13, PRICING+14, QTY+1 , QTY+2, DISPFEE+4, DISPFEE+10, DISPFEE+16, PAGE7+2, PAGE7+12, PAGE7+29, PAGE7+31, NEWENTRY+1
UNITPRI	PRICING+5~, PRICING+7, PRICING+12, PRICING+13
X	GETAWP+2~, GETAWP+3, UNITPRI+3~, UNITPRI+4, UNITPRI+5, UNITPRI+6, UNITPRI+7, UNITPRI+8, UNITPRI+9, UNITPRI+10 , UNITPRI+12, UNITPRI+13, UNITPRI+14, UNITPRI+15, UNITPRI+16, UNITPRI+17, UNITPRI+18, UNITPRI+19, UNITPRI+21, UNITPRI1+1~ , UNITPRI1+3, UNITPRI1+18, UNITPRI1+19, UNITPRI1+20, UNITPRI1+21, UNITPRI1+22, UNITPRI1+23, UNITPRI1+24, UNITPRI1+26, UNITPRI2+3* , UNITPRI2+4, UNITPRI2+5, UNITPRI2+6, UNITPRI2+7, UNITPRI2+8, UNITPRI2+9, UNITPRI2+11, STEP~, PRICING+12~, PRICING+13 , PRICING+16, ROUND~, PAGE7+28~, PAGE7+29, PAGE7+31, ZEROES~, ZEROES+1, ZEROES+2, ZEROES+3, ZEROES+4* , ZEROES+5
Y	UNITPRI+3~, UNITPRI+4, UNITPRI+5, UNITPRI+6, UNITPRI+7, UNITPRI+8, UNITPRI+9, UNITPRI+10, UNITPRI1+1~, UNITPRI1+2 , UNITPRI1+3, UNITPRI2~, UNITPRI2+3, UNITPRI2+4, UNITPRI2+5, UNITPRI2+6, UNITPRI2+7, UNITPRI2+8, UNITPRI2+9*, UNITPRI2+10 , UNITPRI2+11

Name	Comments	DBIA/ICR reference
ROUND(X)
EN	;EP - PRICING ; called from ABSPOSQB
IEN59()
NEWENTRY	;EP - this is called by ENTRY ACTION of option ABSP SETUP PRICING
QTY()	; given ABSBRXI, ABSBRXR
UNITPRI1()
METHOD()	; what pricing method to use? ; point to an entry in 9002313.53 and return the zero node
DISPFEE()
GETPPDU()
ZEROES(X)
GETPSRXA()
UNITPRI()
GETCPTRT()
GETPSRXU()
PAGE7	;EP - called from ABSPOSI7 - pop-up page for pricing ; want to set some defaults
GETAWP()	; Given ABSBNDC, get AWP-MED TRANSACTION file's avg. wholesale price
PRICING()
STEP(X)	; INCOMPLETE!!!! deal with step formula in 9002313.53
UNITPRI2(Y)
METHNUM()
GETAWPPD()

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSQP

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items