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	Caller Graph
Pharmacy Point of Sale	9	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 -

External References

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

FileMan Files Accessed Via FileMan Db Call

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*

Marked Items

Name	Field # of Occurrence
$T(	TYPE+4, TYPEBAD+1
$T(COMP59	COMP59+1

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