Routine: ABSPOSI2

Information

ABSPOSI2 ; IHS/FCS/DRS - support for the NDC/HCPCS/CPT field ; [ 09/12/2002 10:10 AM ]

Source Information

Source file <ABSPOSI2.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Pharmacy Point of Sale	4	($$NAME,$$NDC10,$$NDC11)^ABSPOS9 ($$MMMDD,MSGWAIT)^ABSPOSI1 RECALC1^ABSPOSI7 IMPOSS^ABSPOSUE
VA Fileman	3	HLP^DDSUTL ($$GET,PUT)^DDSVAL ^DIC

Entry Points

External References

Name	Field # of Occurrence
$$NAME^ABSPOS9	PRINTNAM+3
$$NDC10^ABSPOS9	VAL1+2
$$NDC11^ABSPOS9	VAL1+8
$$MMMDD^ABSPOSI1	MMMDD
MSGWAIT^ABSPOSI1	MSGWAIT
RECALC1^ABSPOSI7	EFFECTS+32
IMPOSS^ABSPOSUE	VALID+7
HLP^DDSUTL	VAL1+4, VAL1+5, VAL1+10, VAL1+11, VAL1+20, VAL1+31, PRINTNAM+4, HELP+4
$$GET^DDSVAL	EFFECTS+3, EFFECTS+16, ASKPRE, ASKINS, ASKPRI, ASKDATE
PUT^DDSVAL	EFFECTS+4, EFFECTS+19, EFFECTS+20, EFFECTS+21, EFFECTS+22, EFFECTS+23, EFFECTS+24, EFFECTS+25, EFFECTS+26, EFFECTS+27 , EFFECTS+28, EFFECTS+29, EFFECTS+31
^DIC	LOOKUP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ABSP(9002313.51 - [#9002313.51]	GET^DDSVAL

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSCPT(9002300	EFFECTS+12
^AUPNVSIT - [#9000010]	EFFECTS+17, EFFECTS+21
^TMP("DDS"	VALID+1

Label References

Name	Line Occurrences
$$ASKDATE	BRANCH+1
$$ASKINS	BRANCH+1
$$ASKPRE	BRANCH+1
$$ASKPRI	BRANCH+1
$$CPT	VAL1+28
$$LOOKUP	CPT+1, EFFECTS+10
$$MMMDD	EFFECTS+21
$$UPPER	VAL1+21, VAL1+23
$$VALIDATE	VALID+2
HELP1	HELP+2, HELP+3
PRINTNAM	VAL1+6, VAL1+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AR	HELP+1~, HELP+4
AR(	HELP1*
C0	EFFECTS+12~*, EFFECTS+13, EFFECTS+14, EFFECTS+15
CPTCODE	EFFECTS+9~*, EFFECTS+10
CPTDESC	EFFECTS+13~, EFFECTS+14, EFFECTS+20
CPTIEN	EFFECTS+10~*, EFFECTS+12, EFFECTS+25
>> DA	EFFECTS+3, EFFECTS+4, EFFECTS+16, EFFECTS+19, EFFECTS+20, EFFECTS+21, EFFECTS+22, EFFECTS+23, EFFECTS+24, EFFECTS+25 , EFFECTS+26, EFFECTS+27, EFFECTS+28, EFFECTS+29, EFFECTS+31
>> DA(1	EFFECTS+3, ASKPRE, ASKINS, ASKPRI, ASKDATE
>> DDS	VALID+1
>> DDSDA	VALID+1
DDSERROR	VALID+1, VALID+4, VALIDATE+7!, VAL1+3, VAL1+19, VAL1+29, VAL1+30
>> DDSEXT	VALID+9*
>> DDSSTACK	BRANCH+1*
DIC	LOOKUP+2~, LOOKUP+3*
DIC("S"	LOOKUP+4*
DIC(0	LOOKUP+3*
DICX	LOOKUP~, LOOKUP+3
>> DIE	EFFECTS+3, EFFECTS+4, EFFECTS+16, EFFECTS+19, EFFECTS+20, EFFECTS+21, EFFECTS+22, EFFECTS+23, EFFECTS+24, EFFECTS+25 , EFFECTS+26, EFFECTS+27, EFFECTS+28, EFFECTS+29, EFFECTS+31
DINUM	LOOKUP+2~
DLAYGO	LOOKUP+2~
DTIME	LOOKUP+2~
DTOUT	LOOKUP+2~
DUOUT	LOOKUP+2~
N	HELP+1~, HELP1
NAME	PRINTNAM+3~*, PRINTNAM+4
PRICE	EFFECTS+15~*, EFFECTS+27
RET	VALIDATE+7~, VAL1+2, VAL1+3, VAL1+8, VAL1+9, VAL1+12, VAL1+15, VAL1+16, VAL1+17, VAL1+18* , VAL1+19!, VAL1+22, VAL1+28, VAL1+29!, VAL1+32!, VAL1+33
U	VALID+1, EFFECTS+13, EFFECTS+14, EFFECTS+15, EFFECTS+17, EFFECTS+21
VCN	EFFECTS+17~, EFFECTS+18, EFFECTS+19
VISITIEN	EFFECTS+16~*, EFFECTS+17, EFFECTS+18, EFFECTS+21
X	VALID+2, VALID+8, VALID+9, VALIDATE~, VAL0+1, VAL0+2, VAL0+3, VAL1+1, VAL1+2, VAL1+4 , VAL1+6, VAL1+7, VAL1+8, VAL1+10, VAL1+12, VAL1+13, VAL1+14, VAL1+15, VAL1+16, VAL1+17 , VAL1+18, VAL1+21, VAL1+23, VAL1+27, VAL1+28, VAL1+31, CPT~, CPT+1, EFFECTS+7, EFFECTS+9 , MSGWAIT~, LOOKUP~, PRINTNAM~, PRINTNAM+3, PRINTNAM+4, HELP1~, UPPER~
Y	MMMDD~, LOOKUP+2~, LOOKUP+6
Z	VALID+2~*, VALID+4, VALID+6, VALID+8, VALID+9

Name	Comments	DBIA/ICR reference
ASKINS()
ASKPRE()
MSGWAIT(X)
VALIDATE(X)
HELP	;
HELP1(X)
PRINTNAM(X)
ASKPRI()
STOREAWP	; not implemented - we don't have a readily-available AWP pointer
ASKDATE()
LOOKUP(DICX,X)
VALID	; this is what's called from the field's Data Validation field
EFFECTS	; ; Force an update of pricing when you enter page 7, by wiping out ; any unit price that might already be stored there.
BRANCH	;
UPPER(X)
VAL1
VAL0	;
CPT(X)	; Lookup CPT code. If found, return CPTIEN.
MMMDD(Y)

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSI2

Call Graph Total: 7