Routine: ABSPOS57

Package	Total	Call Graph
Pharmacy Point of Sale	4	$$DFF2EXT^ABSPECFM (LOG2CLM,LOG2LIST,LOG59)^ABSPOSL $$RESP500^ABSPOSQ4 IMPOSS^ABSPOSUE
VA Fileman	2	NOW^%DTC $$GET1^DIQ

Package

Total

Call Graph

Pharmacy Point of Sale

$$DFF2EXT^ABSPECFM (LOG2CLM,LOG2LIST,LOG59)^ABSPOSL $$RESP500^ABSPOSQ4 IMPOSS^ABSPOSUE

VA Fileman

NOW^%DTC $$GET1^DIQ

Package	Total	Caller Graph
Pharmacy Point of Sale	9	ABSPOSBM ABSPOSBP ABSPOSBQ ABSPOSBT ABSPOSBV ABSPOSBW ABSPOSBX ABSPOSIY ABSPOSMC

Package

Total

Caller Graph

Pharmacy Point of Sale

ABSPOSBM ABSPOSBP ABSPOSBQ ABSPOSBT ABSPOSBV ABSPOSBW ABSPOSBX ABSPOSIY
ABSPOSMC

Entry Points

Name	Comments	DBIA/ICR reference
CHG()	;EP -
LOG2LIST(MSG)
ISREVERS(N)	;EP - ABSPOSIY,ABSPOSM1 ; Returns reversal claim #, else false ; Returns 0.5 if it's reversal of a paper claim
FILLDATE()	; EP -
LOG2CLM(MSG,IEN02)
REJCODES	; rejection codes for IEN03 ; X = ","-delimited string of two-char codes ; X(j)=code_" "_description
RXI()	;EP -
POSITION()	; return pointer to position within claim (D1)
AMT()
EXTRCPT3()
STRIPID	; some fields have two-character field ID ; and first eliminate all those that don't:
STRIP51	;remove field ids for NCPDP 5.1,D.0 flds
HRN()	; EP - health record number and facility abbreviation
QTY()	;EP -
IEN03()	; return pointer to response
REVRESP(N)
REVACC(N)	;EP - ABSPOSIY,ABSPOSM1 ; was this an accepted reversal? return true or false
DRGNAME()	; EP -
ARSYSTEM()
COMP59	; devel util ; compare to .57 DD, should be same fields
RELDATE()	;EP -
VMED()	; EP -
VCN()	;EP -
LAST57(RXI,RXR)	;EP -
RXR()	;EP -
IEN02()	; return pointer to claim
INSIEN()	; EP -
FIELD(F,REV)	; EP - retrieve field F from claim or response ; given D0 ; returns value ; Special for reject codes: F=511 gets ","-delimited string of codes ; F=511.01 gets first code, F=511.02 gets second one, etc.
PREVIOUS(N57)	;EP -
REVIEN03()	; return pointer to reversal response
COMP1(F1,F2)
TYPEBAD(ATLABEL)	;
PROVIDER()	;EP -
VISDATE()
PATIENT()	;EP -
VISITIEN()	; EP -
MONEY	; some fields are money fields in signed overpunch format
NOW()	; EP -
GETVER()	; check for 5.1 clm - need to rmv field ids
TYPE()	;EP -
DRGDFN()	;EP -
OTHER	; other special conversions
CPTIEN()	;EP -
NDC()	;EP -
MAKEVCN()
REVIEN02()	; return pointer to reversal claim
USER()	;EP -
LOG59(MSG)	;EP -

Name	Field # of Occurrence
NOW^%DTC	NOW+1
$$DFF2EXT^ABSPECFM	MONEY+5
LOG2CLM^ABSPOSL	LOG2CLM
LOG2LIST^ABSPOSL	LOG2LIST
LOG59^ABSPOSL	LOG59+1
$$RESP500^ABSPOSQ4	REVRESP+4
IMPOSS^ABSPOSUE	TYPE+4, TYPEBAD+1
$$GET1^DIQ	FIELD+13, FIELD+14, FIELD+15, FIELD+17, GETVER+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$T(COMP59),! Line Location: COMP59+1
Function Call: WRITE	Prompt: ! Line Location: COMP59+4
Function Call: WRITE	Prompt: !?5 Line Location: COMP59+6
Function Call: WRITE	Prompt: "OK! All fields in common" Line Location: COMP59+6
Function Call: WRITE	Prompt: "NOT OK! Some differences in fields" Line Location: COMP59+7
Function Call: WRITE	Prompt: " between ",F57," and ",F59,! Line Location: COMP59+8
Function Call: WRITE	Prompt: "Field ",A," is in ",F1," but not in ",F2,! Line Location: COMP1+4

FileNo	Call Tags
^ABSPC - [#9002313.02]	GET1^DIQ
9002313.0201	GET1^DIQ
^ABSPR - [#9002313.03]	GET1^DIQ
9002313.0301	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSCPT(9002300	CPTIEN+1
^ABSP(9002313.99 - [#9002313.99]	CPTIEN+4, ARSYSTEM
^ABSPF(9002313.93 - [#9002313.93]	REJCODES+7, REJCODES+8
^ABSPR - [#9002313.03]	REJCODES+5, REJCODES+6
^ABSPTL - [#9002313.57]	PREVIOUS+2, PREVIOUS+3, RXI+1, RXR+1, NDC+1, QTY+1, AMT, CHG+1, INSIEN+1, PATIENT+1 , HRN+2, HRN+3, VISITIEN+1, USER+1, TYPE+1, ISREVERS+3, REVACC+2, REVRESP+2, LOG59+1, POSITION+1 , IEN02+1, IEN03+1, REVIEN02+1, REVIEN03+1
^ABSPTL("NON-FILEMAN"	PREVIOUS+5, LAST57+1
^AUPNPAT - [#9000001]	HRN+7, HRN+12
^AUPNVSIT - [#9000010]	VISDATE, VCN+1
^DD(	COMP1+1, COMP1+2
^DIC(4 - [#4]	HRN+9
^PS(59 - [#59]	HRN+4
^PSDRUG - [#50]	DRGNAME+1
^PSRX - [#52]	DRGDFN+1, RELDATE+2, RELDATE+3, FILLDATE+6, FILLDATE+7, VMED+6, VMED+7, PROVIDER+1

Label References

Name	Line Occurrences
$$ARSYSTEM	MAKEVCN+1
$$DRGDFN	DRGNAME+1, CPTIEN+1
$$EXTRCPT3	CPTIEN+5
$$GETVER	FIELD+22
$$IEN02	FIELD+6
$$IEN03	FIELD+6
$$POSITION	FIELD+6
$$REVIEN02	FIELD+7
$$REVIEN03	FIELD+7
$$REVRESP	REVACC+3
$$RXI	DRGDFN+1, RELDATE+1, FILLDATE+1, VMED+1, PROVIDER+1
$$RXR	RELDATE+1, FILLDATE+1, VMED+1
$$TYPE	NDC+1, NDC+2, NDC+3, CPTIEN+1, CPTIEN+4, CPTIEN+5, TYPEBAD+1
$$VISDATE	FILLDATE+9
$$VISITIEN	VISDATE, VCN+1
COMP1	COMP59+3, COMP59+5
COMP59	COMP59+1
MONEY	FIELD+29
OTHER	FIELD+30
REJCODES	FIELD+16
STRIP51	FIELD+26
STRIPID	FIELD+25
TYPEBAD	NDC+4, CPTIEN+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOW+1~
%H	NOW+1~
%I	NOW+1~
A	COMP1~, COMP1+1, COMP1+2, COMP1+3, COMP1+4, REJCODES+6~, REJCODES+7, REJCODES+8*, REJCODES+9, REJCODES+10
ABSPRTRN	FILLDATE+4~, FILLDATE+5, FILLDATE+6, FILLDATE+7, VMED+4~, VMED+5, VMED+6, VMED+7, VMED+8
ABSPVER	FIELD+4~, FIELD+22*, FIELD+25, FIELD+26
AR	MAKEVCN+1~*, MAKEVCN+2, MAKEVCN+3
ATLABEL	TYPEBAD~, TYPEBAD+1
>> D0	FIELD+5
DIV	HRN+1~, HRN+3*, HRN+4
DUZ	USER+1
DUZ(2	HRN+6
F	FIELD~, FIELD+8, FIELD+11, FIELD+13, FIELD+14, FIELD+15, FIELD+16, FIELD+17, STRIPID+2, STRIPID+3 , STRIPID+5, MONEY+1, MONEY+3, MONEY+4, OTHER+1, STRIP51+3
F1	COMP1~, COMP1+1, COMP1+3, COMP1+4
F2	COMP1~, COMP1+2, COMP1+4
F57	COMP59+2~*, COMP59+3, COMP59+5, COMP59+8
F59	COMP59+2~*, COMP59+3, COMP59+5, COMP59+8
FAC	HRN+1~, HRN+4, HRN+5, HRN+6, HRN+7, HRN+8, HRN+9, HRN+12
FLDLST	STRIP51+1~, STRIP51+2*, STRIP51+3
I	REJCODES+4~, REJCODES+5, REJCODES+6
IEN02	LOG2CLM~, FIELD+5~, FIELD+6, FIELD+7, FIELD+8, FIELD+13, FIELD+14, GETVER+1
IEN03	FIELD+5~, FIELD+6, FIELD+7, FIELD+11, FIELD+15, FIELD+17, REJCODES+5, REJCODES+6
IEN57	PREVIOUS+1, RXI+1, RXR+1, NDC+1, QTY+1, AMT, CHG+1, INSIEN+1, EXTRCPT3, PATIENT+1 , HRN+2, HRN+3, VISITIEN+1, USER+1, TYPE+1, TYPE+4, LOG59+1, POSITION+1, IEN02+1, IEN03+1 , REVIEN02+1, REVIEN03+1, FIELD+5~*
J	REJCODES+4~, REJCODES+10
MSG	LOG2LIST~, LOG2CLM~, LOG59~, LOG59+1
N	ISREVERS~, ISREVERS+3, REVACC~, REVACC+2, REVACC+3, REVRESP~, REVRESP+2
N57	PREVIOUS~, PREVIOUS+1*, PREVIOUS+2, PREVIOUS+3, PREVIOUS+5
OK	COMP59+2~, COMP59+6, COMP1+4
PAT	HRN+1~, HRN+2*, HRN+7, HRN+12
POS	FIELD+5~, FIELD+6*, FIELD+14, FIELD+17, REJCODES+5, REJCODES+6
RESP	REVRESP+2~*, REVRESP+3, REVRESP+4
REV	FIELD~, FIELD+7
RXI	PREVIOUS+2~, PREVIOUS+4, PREVIOUS+5, LAST57~, LAST57+1, RELDATE+1~, RELDATE+2, RELDATE+3, FILLDATE+1~, FILLDATE+6 , FILLDATE+7, VMED+1~, VMED+6, VMED+7
RXR	PREVIOUS+2~, PREVIOUS+3, PREVIOUS+4, PREVIOUS+5, LAST57~, LAST57+1, RELDATE+1~, RELDATE+2, FILLDATE+1~, FILLDATE+6 , VMED+1~, VMED+6
U	PREVIOUS+2, PREVIOUS+3, DRGDFN+1, DRGNAME+1, RELDATE+2, RELDATE+3, RXI+1, RXR+1, NDC+1, QTY+1 , AMT, CHG+1, CPTIEN+4, INSIEN+1, PATIENT+1, HRN+2, HRN+3, HRN+4, HRN+10, HRN+11 , HRN+12, VISITIEN+1, USER+1, TYPE+1, FILLDATE+6, FILLDATE+7, VISDATE, VMED+6, VMED+7, PROVIDER+1 , VCN+1, ISREVERS+4, ISREVERS+5, REVACC+2, REVRESP+2, ARSYSTEM, LOG59+1, POSITION+1, IEN02+1, IEN03+1 , REVIEN02+1, REVIEN03+1, REJCODES+6, REJCODES+9, REJCODES+10
V	VCN+1~*
X	EXTRCPT3~, HRN+1~, HRN+9, HRN+10, HRN+11, HRN+12, USER+1~, TYPE+1~, TYPE+2, TYPE+3 , TYPE+5, NOW+1~, ISREVERS+3~, ISREVERS+4, ISREVERS+5, REVRESP+4~, REVRESP+5, FIELD+5~, FIELD+8, FIELD+9 , FIELD+11, FIELD+12, FIELD+13, FIELD+14, FIELD+15, FIELD+16, FIELD+17, FIELD+19, FIELD+31, REJCODES+3! , REJCODES+9, STRIPID+6, MONEY+5, MONEY+6, OTHER+1, STRIP51+4
X(	FIELD+16, REJCODES+10*

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOS57

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items