Routine: ABSPOSO2

Package	Total	Call Graph
Pharmacy Point of Sale	3	ZWRITE^ABSPOS LOG^ABSPOSL2 $$IMPOSS^ABSPOSUE
VA Fileman	3	$$FIND1^DIC (,FILE,UPDATE)^DIE $$GET1^DIQ

Package

Total

Call Graph

Pharmacy Point of Sale

ZWRITE^ABSPOS LOG^ABSPOSL2 $$IMPOSS^ABSPOSUE

VA Fileman

$$FIND1^DIC (,FILE,UPDATE)^DIE $$GET1^DIQ

Package	Total	Caller Graph
Pharmacy Point of Sale	6	ABSPOSCD ABSPOSD2 ABSPOSD3 ABSPOSFD ABSPOSIO ABSPOSO

Package

Total

Caller Graph

Pharmacy Point of Sale

ABSPOSCD ABSPOSD2 ABSPOSD3 ABSPOSFD ABSPOSIO ABSPOSO

Entry Points

Name	Comments	DBIA/ICR reference
SUBFNUM()
SETV1	;
NEW()	;EP - create new entry in 9002313.511
FIELDIEN(FIELDNUM)	; ien of a 9002313.91 NCPDP Data Dictionary field
FUNLOCK
FILENUM()
FIELDNUM(IEN91)
ERRHDR()
LOCK()
EDITGEN(IEN)
FIELDNAM(FIELDNUM)	; name of a 9002313.91 NCPDP Data Dictionary field
PRIORA(IEN)	;IHS/SD/lwj 9/3/02 NCPDP 5.1 Changes - Prior Authorization ; We are still processing 5.1 and 3.2 claims, so we have to be able ; to populate fields 461, 462 and 416. 416 will be created based ; on the input into fields 461, and 462.
FLOCK()
UNLOCK
HASVALUE(IEN,FIELDNUM)
GET511(IEN,ARR101,ARR402)	;EP - from ABSPOSCD - load arrays with data from IEN ; IHS/SD/lwj 8/1/02 altered for NCPDP 5.1 - must store some ; 300 range fields at the "header" and "detail" level due to ; restructing of 5.1 claim segments
EDIT(IEN,FIELDNUM)	;
DELVALUE(IEN,FIELDNUM)
DE5
GETVALUE(IEN,FIELDNUM)	; return currently-set override value for given FIELDNUM
SETVALUE(IEN,FIELDNUM,VALUE)	; ; can DO or $$; $$ = ien in subfile for this FIELDNUM ; Special case for the override file: if you're trying to set the ; field's value to "@", don't just delete the field value, ; which would leave the field defined with a null value. ; Instead, delete the entire override for the field. ; This prevents accidentally overriding a genuine value with null.
NEW2	;
NEW3	;
SEE(IEN)
NEW1	;EP (from ABSPOSD2 and ABSPOSD3)
NEW4	;

External References

Name	Field # of Occurrence
ZWRITE^ABSPOS	NEW1+5, SETV1+8, DE5+5, SEE
LOG^ABSPOSL2	NEW1+3, NEW2+3, NEW3+3, NEW4+3, SETV1+2, DE5+1
$$IMPOSS^ABSPOSUE	NEW+1, NEW1+4, NEW2+5, NEW3+4, NEW4+4, SETV1+9, DE5+6
$$FIND1^DIC	FIELDIEN+1, HASVALUE+2
^DIE	EDIT+11, EDITGEN+4
FILE^DIE	NEW2+2, NEW3+2, NEW4+2, DE5
UPDATE^DIE	NEW1+2, SETV1+1
$$GET1^DIQ	FIELDNAM+1, GETVALUE+2

FileNo	Call Tags
^ABSPF(9002313.91 - [#9002313.91]	FIND1^DIC, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(	NEW1+1, SEE
^ABSP(9002313.511 - [#9002313.511]	EDITGEN+6, EDITGEN+7, GET511+10, GET511+11, LOCK, UNLOCK, FLOCK, FUNLOCK
^ABSPF(9002313.91 - [#9002313.91]	EDITGEN+9, FIELDNUM
^TMP("ABSP"	SETV1+4!, SETV1+5, SETV1+6, SETV1+7, DE5+3!, DE5+4

Label References

Name	Line Occurrences
$$ERRHDR	SETV1+5, DE5+4
$$FIELDIEN	FIELDNAM+1
$$FIELDNAM	EDIT+10
$$FIELDNUM	GET511+14, GET511+18
$$FILENUM	EDITGEN+4, NEW+2, SEE
$$FLOCK	NEW+1
$$GETVALUE	EDIT+13, PRIORA+18, PRIORA+19
$$HASVALUE	EDIT+4, GETVALUE+1, SETVALUE+14, DELVALUE+1
$$SETVALUE	EDIT+7, PRIORA+23, PRIORA+24
$$SUBFNUM	HASVALUE+2, GETVALUE+2, SETVALUE+17, SETVALUE+18, DELVALUE+3
DE5	DE5+6
DELVALUE	EDIT+13, EDITGEN+10, SETVALUE+7
EDIT	PRIORA+8, PRIORA+11
EDITGEN	EDIT+1
FUNLOCK	NEW+4
NEW1	NEW+3, NEW1+4
NEW2	NEW2+5
NEW3	NEW3+4
NEW4	NEW4+4
SETV1	SETVALUE+19, SETV1+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	EDITGEN+6~, EDITGEN+7, GET511+5~, GET511+10*, GET511+11
ARR101	GET511~, GET511+14
ARR402	GET511~, GET511+15, GET511+19
C	GET511+5~, GET511+21, GET511+22
DA	EDIT+3~, EDIT+4, EDIT+7, EDITGEN+3~, EDITGEN+4, PRIORA+15~, PRIORA+23, PRIORA+24*
DA(1	EDIT+9*
DIDEL	EDIT+3~, EDITGEN+3~
DIE	EDIT+3~, EDIT+9, EDITGEN+3~, EDITGEN+4
DR	EDIT+3~, EDIT+10, EDITGEN+3~, EDITGEN+4
DTOUT	EDIT+3~, EDITGEN+3~
ENTRY	SETVALUE+14~, SETVALUE+15, SETVALUE+16, SETVALUE+20, SETVALUE+21, DELVALUE+1~, DELVALUE+3
EXPTLST	GET511+6~, GET511+8*, GET511+19
F	GET511+12~*, GET511+14, GET511+15, GET511+18, GET511+19
FDA	NEW+2~, SETVALUE+9~, DELVALUE+2~
FDA(	NEW1+1, NEW2+1, NEW3+1, NEW4+1, SETVALUE+17, SETVALUE+18, DELVALUE+3*
FIELDNAM	EDIT+3~
FIELDNUM	EDIT~, EDIT+1, EDIT+4, EDIT+7, EDIT+10, EDIT+13, EDITGEN+9~, EDITGEN+10, FIELDIEN~, FIELDIEN+1 , FIELDNAM~, FIELDNAM+1, HASVALUE~, HASVALUE+2, GETVALUE~, GETVALUE+1, SETVALUE~, SETVALUE+7, SETVALUE+14, SETVALUE+17 , DELVALUE~, DELVALUE+1, PRIORA+5~, PRIORA+7, PRIORA+8, PRIORA+10*, PRIORA+11
FLAGS	NEW+2~
FN	NEW+2~*, NEW1+1, NEW2+1, NEW2+6, NEW3+1, NEW4+1
IEN	EDIT~, EDIT+1, EDIT+4, EDIT+7, EDIT+9, EDIT+13, EDITGEN~, EDITGEN+4, EDITGEN+6, EDITGEN+7 , EDITGEN+10, GET511~, GET511+10, GET511+11, LOCK, UNLOCK, NEW+2~, HASVALUE~, HASVALUE+2, GETVALUE~ , GETVALUE+1, GETVALUE+2, SETVALUE~, SETVALUE+7, SETVALUE+14, SETVALUE+16, DELVALUE~, DELVALUE+1, DELVALUE+3, SEE~ , PRIORA~, PRIORA+8, PRIORA+11, PRIORA+18, PRIORA+19, PRIORA+23, PRIORA+24
IEN(1	NEW1+7
IEN91	FIELDNUM~
IENARRAY	SETVALUE+9~, SETV1+7
IENARRAY(1	SETVALUE+20
IENS	SETVALUE+9~, SETVALUE+16*, SETVALUE+17, SETVALUE+18
MSG	NEW+2~, NEW1+3, NEW1+4, NEW1+6!, NEW2+3, NEW2+5, NEW3+3, NEW3+4, NEW4+3, NEW4+4 , SETVALUE+9~, SETV1+2, SETV1+3, SETV1+6, DELVALUE+2~, DE5+1, DE5+2
NEWREC	NEW+2~, NEW+5, NEW1+7*, NEW2+1, NEW3+1, NEW4+1
>> RXI	NEW3+1
>> RXR	NEW4+1
TFLD	GET511+6~, GET511+18*, GET511+19
TMP	SEE~*
U	EDITGEN+8, EDITGEN+9, GET511+12, GET511+14, GET511+15, GET511+19, FIELDNUM
VAL416	PRIORA+15~, PRIORA+16, PRIORA+20, PRIORA+21, PRIORA+24
VAL461	PRIORA+15~, PRIORA+16, PRIORA+18, PRIORA+20
VAL462	PRIORA+15~, PRIORA+16, PRIORA+19, PRIORA+20
VALUE	SETVALUE~, SETVALUE+7, SETVALUE+18
X	EDITGEN+7~, EDITGEN+8, EDITGEN+9, GET511+11~, GET511+12, GET511+14, GET511+15, GET511+19, NEW+2~, GETVALUE+1~* , GETVALUE+2

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSO2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 6

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items