Routine: ABSPOSRZ

Package	Total	Call Graph
VA Fileman	4	DD^%DT ^%DTC EN^DDIOL ^DIR
Pharmacy Point of Sale	2	($$BDT,$$CLNC,$$EDT,DEVSEL)^ABSPOSRU ($$CODE,$$GETDO,$$GTNDCDRG,$$INS,$$WRITE)^ABSPOSUU
IHS VA Utilities	1	^XBCLS
Kernel	1	^%ZISC

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSRU

Entry Points

Name	Comments	DBIA/ICR reference
EN	; EP
RTYPE()
SUM	;PRINT SUMMARY PAGE AND TOTAL AMT PER EACH THAT WAS REJECTED
ZEND	;END AND KILL VARIABLES
FIND	; FIND REJECTIONS BY RELEASE DATE "B" CROSS REFERENCE
START
PRNTDHD	;PRINT DETAIL HEADER
PRNTDTL
PRNTSUM	;PRINT THE SUMMARY REPORT
NEXT	;WHAT TO DO NEXT
PRHDR	;PRINT HEADER

External References

Name	Field # of Occurrence
DD^%DT	PRHDR+4, PRHDR+7, PRNTDTL+19
^%DTC	EN+19
^%ZISC	ZEND+1
$$BDT^ABSPOSRU	EN+6
$$CLNC^ABSPOSRU	EN+24
$$EDT^ABSPOSRU	EN+11
DEVSEL^ABSPOSRU	RTYPE+8
$$CODE^ABSPOSUU	EN+28
$$GETDO^ABSPOSUU	FIND+27
$$GTNDCDRG^ABSPOSUU	PRNTDTL+57
$$INS^ABSPOSUU	EN+26
$$WRITE^ABSPOSUU	PRNTSUM+18, PRNTSUM+24, PRNTSUM+31, PRNTSUM+41, PRNTSUM+43, PRNTSUM+48, PRNTSUM+50, PRNTDHD+3, PRNTDHD+5, PRNTDHD+8 , PRNTDTL+28, PRNTDTL+37, PRNTDTL+61, PRNTDTL+64, PRNTDTL+73, PRNTDTL+76, PRNTDTL+82
EN^DDIOL	EN+20
^DIR	RTYPE+5
^XBCLS	RTYPE+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRHDR+9
Function Call: WRITE	Prompt: !,?19,"Pharmacy Point of Sale Rejection Report" Line Location: PRHDR+10
Function Call: WRITE	Prompt: !,?22,"Claims sorted by Rejection Reason" Line Location: PRHDR+11
Function Call: WRITE	Prompt: !?22,"From "_ABSPFBDT_" TO "_ABSPFEDT Line Location: PRHDR+12
Function Call: WRITE	Prompt: !?30,"*SUMMARY REPORT*",! Line Location: PRHDR+13
Function Call: WRITE	Prompt: !!,"P - Preventable, N - Non-recoverable, B - Both" Line Location: PRNTSUM+51
Routine Call	DIR Line Location: RTYPE+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.56 - [#9002313.56]	PRNTSUM+16, PRNTDTL+24, PRNTDTL+48
^ABSPC - [#9002313.02]	FIND+49, FIND+51, PRNTDTL+55
^ABSPF(9002313.93 - [#9002313.93]	FIND+44, FIND+45
^ABSPR - [#9002313.03]	FIND+27, FIND+30, FIND+31, FIND+41, FIND+43
^ABSPTL - [#9002313.57]	FIND+19
^ABSPTL("B"	FIND+15, FIND+17
^AUPNPAT - [#9000001]	PRNTDTL+50
^AUTNINS - [#9999999.18]	PRNTDTL+52
^DPT - [#2]	PRNTDTL+47
^PS(59 - [#59]	PRNTDTL+49
^PSRX("AL"	FIND+8, FIND+12
^TMP("ABSPOSRZ"	FIND+10, FIND+56, NEXT+3, SUM+3, SUM+4, PRNTDTL+14, PRNTDTL+16, ZEND+2!
^TMP("ABSPOSRZ-RUNLOG"	RTYPE+13*
^TMP($J	FIND+4!, FIND+21, FIND+31, FIND+32, FIND+54*, ZEND+2!

Label References

Name	Line Occurrences
$$RTYPE	EN+30
FIND	RTYPE+11, START+8
NEXT	RTYPE+14
PRHDR	NEXT+4, PRNTSUM+12
PRNTDHD	PRNTDTL+25
PRNTDTL	NEXT+13
PRNTSUM	NEXT+11
START	EN+2
SUM	NEXT+10
ZEND	NEXT+6, NEXT+12, NEXT+14, PRNTDHD+1, START+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABSBPRTT	PRNTDTL+67*, ZEND+2!
ABSPBDT	ZEND+3!
ABSPBTOT	PRNTSUM+8, PRNTDTL+30, PRNTDTL+68*, ZEND+2!
ABSPCARD	FIND+1~, FIND+48, FIND+49, FIND+50, FIND+56, PRNTDTL+1~, PRNTDTL+45
ABSPCLMI	FIND+1~, FIND+24, FIND+25, FIND+49, FIND+51, FIND+56, PRNTDTL+1~, PRNTDTL+53, PRNTDTL+55, PRNTDTL+57
ABSPCODE	FIND+3~
ABSPDONE	EN+1~, EN+3, EN+5, EN+9, EN+14, EN+17, EN+18, EN+21, FIND+1~, FIND+7* , FIND+8, FIND+9*
ABSPDRNM	PRNTDTL+1~, PRNTDTL+7, PRNTDTL+59
ABSPDRT	ZEND+3!
ABSPDRTR	PRNTSUM+28*, PRNTSUM+29, ZEND+3!
ABSPEDT	ZEND+3!
ABSPEND	EN+1~, EN+11, EN+12, EN+18, EN+19, RTYPE+13, FIND+6, FIND+9, PRHDR+6, START+4*
ABSPFBDT	PRHDR+1~, PRHDR+5*, PRHDR+12, ZEND+3!
ABSPFEDT	PRHDR+1~, PRHDR+8*, PRHDR+12, ZEND+3!
ABSPFRDT	PRNTDTL+1~, PRNTDTL+20*
ABSPGCNT	PRNTSUM+1~, PRNTSUM+7, PRNTSUM+39
ABSPGRP	FIND+1~, FIND+47, FIND+51, FIND+52, FIND+56, PRNTDTL+1~, PRNTDTL+46
ABSPGTOT	PRNTSUM+6, PRNTSUM+38, PRNTDTL+9, PRNTDTL+78, ZEND+2!
ABSPIDTE	FIND+2~
ABSPIDTS	FIND+2~
ABSPINS	FIND+35, ZEND+2!, START+5*
ABSPINSN	PRNTDTL+52*, ZEND+2!
ABSPIRME	FIND+2~, FIND+13*, FIND+15
ABSPIRMI	FIND+2~, FIND+14, FIND+15, FIND+17, FIND+21, FIND+27, FIND+31, FIND+32, FIND+54, FIND+56
ABSPJ	ZEND+3!, START+1~
ABSPLCNT	EN+1~
ABSPNDC	PRNTDTL+1~, PRNTDTL+6, PRNTDTL+58
ABSPOPS	PRNTDTL+40, PRNTDTL+48, PRNTDTL+49, ZEND+2!
ABSPOUT	NEXT+1~, NEXT+2, NEXT+12, PRNTSUM+11, PRNTSUM+14, PRNTSUM+18, PRNTSUM+19, PRNTSUM+24, PRNTSUM+25, PRNTSUM+27 , PRNTSUM+31, PRNTSUM+32, PRNTSUM+35, PRNTSUM+37, PRNTSUM+41, PRNTSUM+42, PRNTSUM+43, PRNTSUM+44, PRNTSUM+46, PRNTSUM+48 , PRNTSUM+49, PRNTSUM+50, PRNTDHD+3, PRNTDHD+4, PRNTDHD+5, PRNTDHD+6, PRNTDHD+8, PRNTDTL+1~, PRNTDTL+13, PRNTDTL+14 , PRNTDTL+22, PRNTDTL+26, PRNTDTL+28, PRNTDTL+29, PRNTDTL+31, PRNTDTL+33, PRNTDTL+37, PRNTDTL+38, PRNTDTL+39, PRNTDTL+61 , PRNTDTL+62, PRNTDTL+64, PRNTDTL+65, PRNTDTL+70, PRNTDTL+71, PRNTDTL+73, PRNTDTL+74, PRNTDTL+76, PRNTDTL+77, PRNTDTL+80 , PRNTDTL+82
ABSPPAT	PRNTDTL+44*, PRNTDTL+47, PRNTDTL+50, ZEND+2!, START+1~
ABSPPATN	PRNTDTL+47*, ZEND+2!
ABSPPCHT	PRNTDTL+40, PRNTDTL+50, ZEND+2!
ABSPPCNT	SUM+1~, SUM+14, SUM+17, PRNTSUM+1~, PRNTSUM+5, PRNTSUM+22, PRNTSUM+34, PRNTSUM+39
ABSPPDIV	PRNTDTL+40, PRNTDTL+49, PRNTDTL+50, ZEND+2!
ABSPPHM1	FIND+34, FIND+37, FIND+38*, FIND+39, FIND+53, FIND+55, FIND+56, ZEND+4!
ABSPPHMN	PRNTSUM+16, PRNTDTL+24, ZEND+4!
ABSPPIEN	START+1~
ABSPPINS	PRNTDTL+23, PRNTDTL+31, PRNTDTL+33, PRNTDTL+39, PRNTDTL+44, PRNTDTL+45, PRNTDTL+46, PRNTDTL+51, PRNTDTL+52, PRNTDTL+53 , ZEND+4!
ABSPPPHM	FIND+36, FIND+37, FIND+38, PRNTSUM+3, PRNTSUM+13, PRNTSUM+15, PRNTSUM+16, PRNTSUM+26, PRNTSUM+28, PRNTSUM+33 , PRNTSUM+34, PRNTDTL+3, PRNTDTL+17, PRNTDTL+22, PRNTDTL+24, PRNTDTL+31, PRNTDTL+33, PRNTDTL+35, PRNTDTL+39, PRNTDTL+44 , PRNTDTL+45, PRNTDTL+46, PRNTDTL+48, PRNTDTL+51, PRNTDTL+53, ZEND+2!, START+6*
ABSPPRDT	PRNTDTL+2, PRNTDTL+14, PRNTDTL+16, PRNTDTL+18, PRNTDTL+22, PRNTDTL+31, PRNTDTL+33, PRNTDTL+39, PRNTDTL+44, PRNTDTL+45 , PRNTDTL+46, PRNTDTL+51, PRNTDTL+53, ZEND+2!
ABSPPRMI	FIND+1~, FIND+11, FIND+12, FIND+13, FIND+14, PRNTDTL+34, PRNTDTL+39, PRNTDTL+42, PRNTDTL+43, PRNTDTL+44 , PRNTDTL+45, PRNTDTL+46, PRNTDTL+51, PRNTDTL+53, PRNTDTL+54, ZEND+2!
ABSPPRNM	PRNTSUM+20, PRNTSUM+26, PRNTSUM+28, PRNTSUM+33, PRNTSUM+34, PRNTDTL+4, PRNTDTL+32, PRNTDTL+33*, PRNTDTL+35, PRNTDTL+39 , PRNTDTL+44, PRNTDTL+45, PRNTDTL+46, PRNTDTL+51, PRNTDTL+53, ZEND+4!
ABSPPRX	PRNTDTL+54*, PRNTDTL+57, ZEND+2!
ABSPPRXR	PRNTDTL+55*, ZEND+2!
ABSPPTP	PRNTDTL+51*, PRNTDTL+67, PRNTDTL+68, PRNTDTL+69, ZEND+2!
>> ABSPPTYP	PRNTDTL+41, PRNTDTL+42, PRNTDTL+43*
ABSPQUIT	EN+1~, EN+4, EN+8, EN+10, EN+13, EN+16, EN+23, EN+24, EN+25, EN+26* , EN+27, EN+28, EN+29, EN+30, FIND+3~, FIND+46, PRNTSUM+10, PRNTDTL+1~, PRNTDTL+12*, PRNTDTL+14
ABSPRCD	ZEND+4!
ABSPRCNT	FIND+1~, FIND+53*, FIND+55
ABSPRDT	FIND+1~, FIND+5, FIND+8, FIND+9, FIND+10, FIND+12, FIND+56
ABSPRDTL	PRNTDTL+10, PRNTDTL+21, PRNTDTL+69*, PRNTDTL+78, ZEND+4!
ABSPREA	FIND+41, FIND+44, FIND+45*, FIND+55, FIND+56, ZEND+4!
ABSPREAS	ZEND+3!
ABSPREAS(	FIND+53, FIND+55*
ABSPREAS(""	SUM+14, PRNTDTL+35
ABSPREJ	EN+1~, FIND+46
>> ABSPREJX	FIND+46
ABSPRESC	FIND+2~
ABSPRJ	EN+1~
ABSPRJC	START+1~
ABSPRJCD	PRNTDTL+35*, ZEND+3!
ABSPRMI	ZEND+3!
ABSPRNUM	FIND+1~, FIND+41, FIND+43, FIND+44, FIND+45, FIND+46, FIND+53, FIND+55, FIND+56
ABSPRSMI	FIND+1~, FIND+23*, FIND+25, FIND+27, FIND+30, FIND+31, FIND+41, FIND+43
ABSPRTOT	PRNTSUM+4, PRNTSUM+21, PRNTSUM+33, PRNTSUM+38, PRNTDTL+8, PRNTDTL+67, ZEND+2!
ABSPRTYP	RTYPE+7, NEXT+13, PRNTDHD+1, PRNTDTL+82, ZEND+3!, START+7
ABSPSPHM	SUM+5, SUM+6, SUM+8, SUM+10, SUM+12, SUM+13, SUM+14, SUM+15, SUM+16, SUM+17 , ZEND+3!
ABSPSRDT	SUM+2, SUM+3, SUM+4, SUM+6, SUM+8, SUM+10, SUM+12, SUM+13, SUM+15, ZEND+3!
ABSPSREA	SUM+13*, SUM+17, ZEND+4!
ABSPSRMI	SUM+11, SUM+12, SUM+13, SUM+15, ZEND+3!
ABSPSRNM	SUM+9, SUM+10, SUM+12, SUM+13, SUM+14, SUM+15, SUM+16, SUM+17, ZEND+3!
ABSPSTIN	SUM+7, SUM+8, SUM+10, SUM+12, SUM+13, SUM+15, SUM+17, ZEND+3!
ABSPSTL1	SUM+11, SUM+16, SUM+17, ZEND+4!
ABSPSTOP	NEXT+1~, NEXT+2, NEXT+7, NEXT+9, PRNTSUM+1~, PRNTSUM+2, PRNTSUM+9, PRNTSUM+13, PRNTSUM+14, PRNTSUM+26 , PRNTSUM+27, PRNTSUM+36, PRNTSUM+45, PRNTDTL+1~, PRNTDTL+11*, PRNTDTL+79
ABSPSTRT	EN+1~, EN+6, EN+7, EN+17, EN+19, RTYPE+13, FIND+5, PRHDR+3, ZEND+4!, START+3
ABSPSTTL	SUM+11, SUM+15, SUM+16, ZEND+3!
ABSPSUM	PRHDR+2, ZEND+2!
ABSPSUM(	SUM+16, SUM+17*, PRNTSUM+13, PRNTSUM+26, PRNTSUM+28, PRNTSUM+33, PRNTSUM+34
ABSPTINS	FIND+33*, FIND+35, FIND+56, ZEND+3!
ABSPTL	FIND+18~
ABSPTL(	FIND+19*, FIND+21, FIND+22, FIND+33, FIND+36, FIND+38, FIND+56
ABSPTLTP	FIND+2~, FIND+22*, FIND+23, FIND+24, FIND+26
ABSPTMP	SUM+1~, SUM+18!, PRNTSUM+1~, PRNTDTL+1~, PRNTDTL+15~, ZEND+2!
ABSPTMP(	SUM+4, SUM+6, SUM+8, SUM+10, SUM+12, SUM+13, SUM+15, PRNTDTL+16, PRNTDTL+22, PRNTDTL+31 , PRNTDTL+33, PRNTDTL+39, PRNTDTL+44, PRNTDTL+45, PRNTDTL+46, PRNTDTL+51, PRNTDTL+53
ABSPTRNS	FIND+16, FIND+17, FIND+19, FIND+21, FIND+22, FIND+33, FIND+36, FIND+38, FIND+56, ZEND+3!
ABSPTRTM	FIND+1~
DIR	RTYPE+1~
DIR("A"	RTYPE+4*
DIR("B"	RTYPE+3*
DIR(0	RTYPE+2*
>> DIRUT	RTYPE+6
DO	FIND+2~, FIND+26, FIND+27, FIND+28, FIND+30, FIND+31, FIND+41, FIND+43
DT	START+3, START+4
IO	PRHDR+2
IOF	PRHDR+2, PRHDR+9
NDCDRG	PRNTDTL+1~, PRNTDTL+57*, PRNTDTL+58, PRNTDTL+59
RNUM	ZEND+3!
STARTIME	RTYPE+1~, RTYPE+10*, RTYPE+13
STOPTIME	RTYPE+1~, RTYPE+12*, RTYPE+13
U	FIND+23, FIND+24, FIND+26, FIND+31, FIND+33, FIND+36, FIND+38, FIND+43, FIND+45, FIND+49 , FIND+51, FIND+53, FIND+55, FIND+56, SUM+13, SUM+14, SUM+15, SUM+16, SUM+17, PRNTSUM+16 , PRNTSUM+28, PRNTSUM+33, PRNTSUM+34, PRNTDTL+24, PRNTDTL+35, PRNTDTL+44, PRNTDTL+45, PRNTDTL+46, PRNTDTL+47, PRNTDTL+48 , PRNTDTL+49, PRNTDTL+50, PRNTDTL+51, PRNTDTL+52, PRNTDTL+53, PRNTDTL+55, PRNTDTL+58, PRNTDTL+59
X	EN+20, EN+21, RTYPE+7, START+1~
>> X1	EN+19*
>> X2	EN+19*
Y	PRHDR+1~, PRHDR+3, PRHDR+5, PRHDR+6, PRHDR+8, PRNTDTL+1~, PRNTDTL+18*, PRNTDTL+20, START+1~
>> ZTQPARAM	EN+2, START+2, START+3, START+4

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSRZ

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: