Routine: ABSPOSJ2

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

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

Call Graph

Pharmacy Point of Sale

$$GETINSINFO^ABSPOSBB MOVFLD^ABSPOSJ1 LOG^ABSPOSL LOG^ABSPOSL2

VA Fileman

(,FILE)^DIE ^DIK

IHS Accounts Receivable

$$EN^BARPSAPI

IHS VA Utilities

^XBFMK

Kernel

MES^XPDUTL

Third Party Billing

($$CAN,$$EN)^ABMPSAPI

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSJ1

Package

Total

Caller Graph

Pharmacy Point of Sale

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

External References

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

Global Variables Directly Accessed

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