Routine: ABSPOSJ2

Package	Total	Call Graph
Pharmacy Point of Sale	4	$$GETINSINFO^ABSPOSBB MOVFLD^ABSPOSJ1 LOG^ABSPOSL LOG^ABSPOSL2
VA Fileman	2	(,FILE)^DIE ^DIK
IHS Accounts Receivable	1	$$EN^BARPSAPI
IHS VA Utilities	1	^XBFMK
Kernel	1	MES^XPDUTL
Third Party Billing	1	($$CAN,$$EN)^ABMPSAPI

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSJ1

Entry Points

Name	Comments	DBIA/ICR reference
DEF2	;IHS/OIT/RCS 04/08/2014 patch 47 Change to new ICD10 General POS Default date
DIAL	;IHS/OIT/RCS 8/31/2012 patch 44 fix for DIALOUT field - HEAT # 82109
CHKHOLD(HOLDIEN)	; Process to check the hold claim.
CLEANUP(RESP,NUMB,RJNUMB,RJCTCODE)	;Clean up that particular resp file entry
DOL	;IHS/OIT/RCS 11/28/2012 patch 46 Add default Maximum Dollar limit
RESTORE	;EP - Post init routine for absp0100.03k. ; This subroutine will take the values stored in the save global ; created in the above "SAVE" subroutine and restore the values ; in their new locations in the ^ABSPC file.
RST320	; this will restore the 320 value onto the 320 node, piece 20
POSTIT	;
CLNREJ	;Clean out the unrecognized reject codes in response file.
SF1
MCAR	;IHS/OIT/RCS 11/28/2012 patch 46 Check Medicare Part-D Insurers for fields 147 and 384
CLNREV	;IHS/OIT/RCS 3/2/2012 patch 43 run fix for errored reversals
UNS	;Unsuppress function
REVERSIT	;
HOLDCHK
SETFLAG(IEN57,VALUE)	;EP -
DEF	;IHS/OIT/RCS 11/28/2012 patch 45 Add ICD10 General POS Default date

Name	Field # of Occurrence
$$CAN^ABMPSAPI	REVERSIT+10
$$EN^ABMPSAPI	POSTIT+36
$$GETINSINFO^ABSPOSBB	POSTIT+24
MOVFLD^ABSPOSJ1	RESTORE+17
LOG^ABSPOSL	POSTIT+35, REVERSIT+8
LOG^ABSPOSL2	CHKHOLD+22, SF1+1, RST320+6
$$EN^BARPSAPI	REVERSIT+9
^DIE	CLEANUP+8
FILE^DIE	CHKHOLD+21, SF1, RST320+5
^DIK	CHKHOLD+26
^XBFMK	CHKHOLD+23
MES^XPDUTL	HOLDCHK+4, HOLDCHK+5, CLNREV+2

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.99 - [#9002313.99]	CLNREV+1, CLNREV+14, DEF+2, DEF+3, DEF2+2, DEF2+3, DOL+2, DOL+3, MCAR+1, MCAR+12*
^ABSPC - [#9002313.02]	CLNREV+5, CLNREV+6, CLNREV+7, CLNREV+9, CLNREV+11, CLNREV+12, CLNREV+13*
^ABSPEI - [#9002313.4]	DIAL+3, DIAL+4, DIAL+6, MCAR+8, MCAR+9, UNS+3, UNS+4!, UNS+7, UNS+8, UNS+9! , UNS+10, UNS+11, UNS+14, UNS+15, UNS+16!, UNS+17, UNS+18*
^ABSPF(9002313.91 - [#9002313.91]	MCAR+5, MCAR+6
^ABSPHOLD(	HOLDCHK+8, CHKHOLD+2, CHKHOLD+3, CHKHOLD+5, CHKHOLD+10, POSTIT+13
^ABSPHOLD(0	HOLDCHK+2
^ABSPOSXX(	RESTORE+8, RESTORE+12, RESTORE+14, RESTORE+15, RESTORE+18*, RST320+2
^ABSPR - [#9002313.03]	CLNREJ+3, CLNREJ+4, CLNREJ+6, CLNREJ+7, CLNREJ+9, CLNREJ+10, CLEANUP+8

Name	Line Occurrences
CHKHOLD	HOLDCHK+8
CLEANUP	CLNREJ+11
POSTIT	CHKHOLD+15
REVERSIT	CHKHOLD+16
RST320	RESTORE+13
SETFLAG	POSTIT+37, REVERSIT+11
UNS	MCAR+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABSCAN	REVERSIT+1~, REVERSIT+10*
ABSP	POSTIT+1~, POSTIT+36, REVERSIT+1~, REVERSIT+9
ABSP(	POSTIT+3, POSTIT+4, POSTIT+5, POSTIT+6, POSTIT+7, POSTIT+8, POSTIT+9, POSTIT+10, POSTIT+11, POSTIT+12 , POSTIT+34
ABSP("ADJ CAT	" , REVERSIT+5*
ABSP("ADJ TYP	E" , REVERSIT+6*
ABSP("ARLOC"	REVERSIT+3*
ABSP("CREDIT"	REVERSIT+2*
ABSP("OTHIDENT"	POSTIT+33*
ABSP("TRAN TY	PE" , REVERSIT+4*
ABSP("USER"	REVERSIT+7*
ABSP(13	POSTIT+31*
ABSP(23	POSTIT+15, POSTIT+16, POSTIT+17, POSTIT+18, POSTIT+19, POSTIT+20, POSTIT+21, POSTIT+22
ABSP(41	POSTIT+14*
ABSPCHK	HOLDCHK+1~, HOLDCHK+2*, HOLDCHK+3
ABSPHIEN	HOLDCHK+1~, HOLDCHK+6, HOLDCHK+8
ABSPINS	POSTIT+1~, POSTIT+24*, POSTIT+31
ABSPOST	POSTIT+1~, POSTIT+36*, POSTIT+38
ABSPWOFF	REVERSIT+1~, REVERSIT+9*, REVERSIT+10, REVERSIT+12
AR	MCAR+2~
AR(	MCAR+5, MCAR+6, UNS+2
CLM	CLNREV+3~, CLNREV+4, CLNREV+5, CLNREV+6, CLNREV+7, CLNREV+9, CLNREV+11, CLNREV+12, CLNREV+13
CLMIEN	RESTORE+4~, RESTORE+5, RESTORE+10, RESTORE+12*, RESTORE+14, RESTORE+15, RESTORE+18, RST320+2, RST320+4
CLMN	CLNREV+3~, CLNREV+7*, CLNREV+8
COUNT	CLNREJ+1~
CT	UNS+1~, UNS+7, UNS+8, UNS+14, UNS+15
DA	CHKHOLD+25, CLEANUP+1~, CLEANUP+6
DA(1	CLEANUP+5*, CLEANUP+7
DA(2	CLEANUP+4*, CLEANUP+7, CLEANUP+8
DEF	DEF+1~, DEF+2, DEF2+1~, DEF2+2
DIAL	DIAL+2~, DIAL+5*
DIE	CLEANUP+1~, CLEANUP+7*
>> DIK	CHKHOLD+24*
DOL	DOL+1~, DOL+2*
DR	CLEANUP+1~, CLEANUP+3*
F147	MCAR+2~, MCAR+3, MCAR+5
FDA	CHKHOLD+19~, SETFLAG+2~, RST320+1~
FDA(	CHKHOLD+20, SETFLAG+3, RST320+4*
FL	UNS+1~, UNS+2*
HOLD57	CHKHOLD+1~, CHKHOLD+2*, CHKHOLD+20, POSTIT+24, POSTIT+35, POSTIT+37, REVERSIT+8, REVERSIT+11
HOLDDA	CHKHOLD+1~, CHKHOLD+18, CHKHOLD+20, POSTIT+38, REVERSIT+12
HOLDFLG	CHKHOLD+1~
HOLDIEN	CHKHOLD~, CHKHOLD+2, CHKHOLD+3, CHKHOLD+5, CHKHOLD+10, CHKHOLD+25, POSTIT+13
HOLDINS	CHKHOLD+1~, CHKHOLD+8, CHKHOLD+13
HOLDLOC	CHKHOLD+1~, CHKHOLD+6, CHKHOLD+11
HOLDREC	CHKHOLD+1~, CHKHOLD+5, CHKHOLD+6, CHKHOLD+7, CHKHOLD+8, CHKHOLD+10, CHKHOLD+11, CHKHOLD+12, CHKHOLD+13, POSTIT+3 , POSTIT+4, POSTIT+5, POSTIT+6, POSTIT+7, POSTIT+8, POSTIT+9, POSTIT+10, POSTIT+11, POSTIT+12, REVERSIT+2 , REVERSIT+3, REVERSIT+4, REVERSIT+5, REVERSIT+6, REVERSIT+7
HOLDREC2	POSTIT+1~, POSTIT+13*, POSTIT+14, POSTIT+15, POSTIT+16, POSTIT+17, POSTIT+18, POSTIT+19, POSTIT+20, POSTIT+21 , POSTIT+22, POSTIT+33
HOLDTYP	CHKHOLD+1~, CHKHOLD+3*, CHKHOLD+4, CHKHOLD+9, CHKHOLD+14, CHKHOLD+15, CHKHOLD+16
HOLDVDT	CHKHOLD+1~, CHKHOLD+7, CHKHOLD+12
I	UNS+1~, UNS+4, UNS+7, UNS+10, UNS+11, UNS+14, UNS+17, UNS+18, RESTORE+4~, RESTORE+17
IEN	CHKHOLD+19~, UNS+1~, UNS+2*, UNS+3, UNS+4
IEN57	SETFLAG~, SETFLAG+3
INS	MCAR+2~, MCAR+8*, MCAR+9, UNS+3, UNS+4, UNS+7, UNS+8, UNS+9, UNS+10, UNS+11 , UNS+14, UNS+15, UNS+16, UNS+17, UNS+18
>> INSDFN	POSTIT+34*
INSIEN	DIAL+2~, DIAL+3*, DIAL+4, DIAL+6
LAST	RESTORE+4~, RESTORE+5, RESTORE+8, RESTORE+9, RESTORE+10, RESTORE+11
LST	UNS+1~, UNS+7, UNS+8, UNS+14, UNS+15
MEDIEN	RESTORE+4~, RESTORE+5, RESTORE+11, RESTORE+14*, RESTORE+15, RESTORE+18
MSG	CHKHOLD+19~, CHKHOLD+22, SETFLAG+2~, SF1+1, RST320+1~, RST320+6
NRJCTCD	CLEANUP+1~, CLEANUP+2*, CLEANUP+3
NUMB	CLNREJ+1~, CLNREJ+5, CLNREJ+6, CLNREJ+7, CLNREJ+9, CLNREJ+10, CLNREJ+11, CLEANUP~, CLEANUP+5
REC	RESTORE+4~, RESTORE+15*, RESTORE+16, RESTORE+17
RESP	CLNREJ+1~, CLNREJ+2, CLNREJ+3, CLNREJ+4, CLNREJ+6, CLNREJ+7, CLNREJ+9, CLNREJ+10, CLNREJ+11, CLEANUP~ , CLEANUP+4
RJCTCODE	CLNREJ+1~, CLNREJ+10*, CLNREJ+11, CLEANUP~, CLEANUP+2
RJNUMB	CLNREJ+1~, CLNREJ+8, CLNREJ+9, CLNREJ+10, CLNREJ+11, CLEANUP~, CLEANUP+6
RTN	RESTORE+4~, RESTORE+6*, RESTORE+8, RESTORE+12, RESTORE+14, RESTORE+15, RESTORE+18, RST320+2
U	CHKHOLD+2, CHKHOLD+3, CHKHOLD+6, CHKHOLD+7, CHKHOLD+8, CHKHOLD+11, CHKHOLD+12, CHKHOLD+13, POSTIT+3, POSTIT+4 , POSTIT+5, POSTIT+6, POSTIT+7, POSTIT+8, POSTIT+9, POSTIT+10, POSTIT+11, POSTIT+12, POSTIT+14, POSTIT+15 , POSTIT+16, POSTIT+17, POSTIT+18, POSTIT+19, POSTIT+20, POSTIT+21, POSTIT+22, POSTIT+31, POSTIT+33, REVERSIT+2 , REVERSIT+3, REVERSIT+4, REVERSIT+5, REVERSIT+6, REVERSIT+7, CLNREV+7, CLNREV+9, CLNREV+10, CLNREV+11, DIAL+5 , DIAL+6, MCAR+8*, MCAR+9, MCAR+10, UNS+8, UNS+15, RESTORE+10, RESTORE+11, RESTORE+17, RST320+2
>> VAL	UNS+10, UNS+11, UNS+17, UNS+18
VALUE	SETFLAG~, SETFLAG+3, RST320+1~, RST320+2*, RST320+3, RST320+4
X	CLNREV+3~, CLNREV+6, CLNREV+9, CLNREV+10, CLNREV+11, CLNREV+12, CLNREV+13, DIAL+2~, DIAL+4, DIAL+5 , DIAL+6, MCAR+2~, MCAR+5, MCAR+6, MCAR+9, MCAR+10
Y	UNS+1~, UNS+8, UNS+15

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSJ2

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: