Routine: ABSPOSR5

Package	Total	Call Graph
VA Fileman	5	DD^%DT (,C)^%DTC EN^DDIOL ^DIC ^DIR
Kernel	2	^%ZIS ^%ZISC
IHS VA Utilities	1	^XBCLS
Pharmacy Point of Sale	1	($$GTNDCDRG,$$WRITE)^ABSPOSUU

Entry Points

Name	Comments	DBIA/ICR reference
PRHDR	; PRINT HEADER
DEVSEL	; SELECT DEVICE
RTYPE()
INS()	; SELECT THE INSURER OR CHOOSE ALL INSURERS
EDT()
UPD	; UPDATE THE REPORT MASTER FILE IN ABSP
PRNTDTL
ZEND	; END AND KILL VARIABLES
PRNTSUM	; PRINT THE SUMMARY REPORT
NEXT	; WHAT TO DO NEXT
START
BDT()
CLNC()	; PICK WHICH OR ALL CLINIC PHARMACIES
CODE()
SUM	; PRINT SUMMARY PAGE ; TOTAL COUNTS BY REJECT CODE (1ST ON LIST) ; AND TOTAL AMT PER EACH THAT WAS REJECTED
PRNTDHD	; PRINT DETAIL HEADER
FIND	; FIND REJECTIONS BY RELEASE DATE "B" CROSS REFERENCE

External References

Name	Field # of Occurrence
DD^%DT	PRHDR+4, PRHDR+7, PRNTDTL+17
^%DTC	UPD+19
C^%DTC	BDT+9, EDT+9
^%ZIS	DEVSEL+3, DEVSEL+5
^%ZISC	ZEND+1
$$GTNDCDRG^ABSPOSUU	PRNTDTL+54
$$WRITE^ABSPOSUU	PRNTSUM+17, PRNTSUM+23, PRNTSUM+30, PRNTSUM+40, PRNTSUM+42, PRNTSUM+47, PRNTSUM+49, PRNTDHD+3, PRNTDHD+5, PRNTDHD+8 , PRNTDTL+26, PRNTDTL+35, PRNTDTL+58, PRNTDTL+61, PRNTDTL+70, PRNTDTL+73, PRNTDTL+80
EN^DDIOL	UPD+20
^DIC	CLNC+5, INS+5, CODE+6
^DIR	RTYPE+5, BDT+6, EDT+6
^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+50
Function Call: WRITE	Prompt: !!,"TOTAL AMOUNT REJECTED: ",ABSBPRTT,!!,"P - Preventable, N - Non-recoverable, B - Both" Line Location: PRNTDTL+78
Function Call: WRITE	Prompt: ! Line Location: BDT+2
Function Call: WRITE	Prompt: ! Line Location: EDT+2
Routine Call	DIC Line Location: CLNC+5 INS+5 CODE+6
Routine Call	DIR Line Location: RTYPE+5 BDT+6 EDT+6
Routine Call	%ZIS Line Location: DEVSEL+3 DEVSEL+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ABSPRJC - [#9002313.3]	Classic Fileman Calls
^ABSPEI - [#9002313.4]	Classic Fileman Calls
^ABSP(9002313.56 - [#9002313.56]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.56 - [#9002313.56]	PRNTSUM+15, PRNTDTL+22, PRNTDTL+43
^ABSPC - [#9002313.02]	FIND+45, FIND+47
^ABSPECX("RPT" - [#9002313.61]	FIND+6, FIND+9, FIND+11, FIND+12, FIND+23, FIND+24, FIND+30, FIND+31, FIND+35, FIND+36 , PRNTDTL+46, PRNTDTL+47, PRNTDTL+52
^ABSPTL - [#9002313.57]	FIND+12, FIND+16, FIND+19, FIND+41, FIND+53, PRNTDTL+53
^AUPNPAT - [#9000001]	PRNTDTL+45
^AUTNINS - [#9999999.18]	PRNTDTL+49
^DPT - [#2]	PRNTDTL+42
^PS(59 - [#59]	PRNTDTL+44
^TMP("ABSPOSR5-RUNLOG"	RTYPE+13*

Label References

Name	Line Occurrences
$$BDT	UPD+7
$$CLNC	UPD+23
$$CODE	UPD+27
$$EDT	UPD+12
$$INS	UPD+25
$$RTYPE	UPD+29
DEVSEL	RTYPE+8, DEVSEL+11
FIND	RTYPE+11, START+8
NEXT	RTYPE+14
PRHDR	NEXT+4, PRNTSUM+12
PRNTDHD	PRNTDTL+23
PRNTDTL	NEXT+13
PRNTSUM	NEXT+11
START	UPD+3
SUM	NEXT+10
ZEND	DEVSEL+7, 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+64*, ZEND+2!
ABSPBDT	ZEND+3!, BDT+1~, BDT+8*, BDT+9
ABSPBTOT	PRNTSUM+8, PRNTDTL+28, PRNTDTL+65*, ZEND+2!
ABSPCARD	FIND+1~, FIND+43, FIND+45, FIND+46, FIND+53, PRNTDTL+1~, PRNTDTL+40
ABSPCLMI	FIND+1~, FIND+41, FIND+44, FIND+45, FIND+47, PRNTDTL+51~, PRNTDTL+53, PRNTDTL+54
ABSPCODE	FIND+2~
ABSPDONE	UPD+1~, UPD+4, UPD+6, UPD+10, UPD+15, UPD+17, UPD+18, UPD+21, FIND+1~, FIND+4* , FIND+6, FIND+7*
ABSPDRNM	PRNTDTL+1~, PRNTDTL+7, PRNTDTL+56
ABSPDRT	ZEND+3!
ABSPDRTR	PRNTSUM+27*, PRNTSUM+28, ZEND+3!
ABSPEDT	ZEND+3!, EDT+1~, EDT+8*, EDT+9
ABSPEND	UPD+1~, UPD+12, UPD+13, UPD+18, UPD+19, RTYPE+13, FIND+7, 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+18*
ABSPGCNT	PRNTSUM+1~, PRNTSUM+7, PRNTSUM+38
ABSPGRP	FIND+1~, FIND+42, FIND+47, FIND+48, FIND+53, PRNTDTL+1~, PRNTDTL+41
ABSPGTOT	PRNTSUM+6, PRNTSUM+37, PRNTDTL+9, PRNTDTL+75, ZEND+2!
ABSPINS	INS+7, INS+8, FIND+14, ZEND+2!, START+5*
ABSPINSN	INS+8, PRNTDTL+49, ZEND+2!
ABSPJ	FIND+9*, ZEND+3!, START+1~
ABSPLCNT	UPD+1~
ABSPNDC	PRNTDTL+1~, PRNTDTL+6, PRNTDTL+55
>> ABSPNUM	FIND+25*, FIND+26
ABSPOPS	PRNTDTL+38, PRNTDTL+43, PRNTDTL+44, ZEND+2!
ABSPOUT	NEXT+1~, NEXT+2, NEXT+12, PRNTSUM+11, PRNTSUM+14, PRNTSUM+17, PRNTSUM+18, PRNTSUM+23, PRNTSUM+24, PRNTSUM+26 , PRNTSUM+30, PRNTSUM+31, PRNTSUM+34, PRNTSUM+36, PRNTSUM+40, PRNTSUM+41, PRNTSUM+42, PRNTSUM+43, PRNTSUM+45, PRNTSUM+47 , PRNTSUM+48, PRNTSUM+49, PRNTDHD+3, PRNTDHD+4, PRNTDHD+5, PRNTDHD+6, PRNTDHD+8, PRNTDTL+1~, PRNTDTL+13, PRNTDTL+14 , PRNTDTL+20, PRNTDTL+24, PRNTDTL+26, PRNTDTL+27, PRNTDTL+29, PRNTDTL+31, PRNTDTL+35, PRNTDTL+36, PRNTDTL+37, PRNTDTL+58 , PRNTDTL+59, PRNTDTL+61, PRNTDTL+62, PRNTDTL+67, PRNTDTL+68, PRNTDTL+70, PRNTDTL+71, PRNTDTL+73, PRNTDTL+74, PRNTDTL+77 , PRNTDTL+80
ABSPPAT	PRNTDTL+39*, PRNTDTL+42, PRNTDTL+45, ZEND+2!, START+1~
ABSPPATN	PRNTDTL+42*, ZEND+2!
ABSPPCHT	PRNTDTL+38, PRNTDTL+45, ZEND+2!
ABSPPCNT	SUM+3~, SUM+16, SUM+19, PRNTSUM+1~, PRNTSUM+5, PRNTSUM+21, PRNTSUM+33, PRNTSUM+38
ABSPPDIV	PRNTDTL+38, PRNTDTL+44, PRNTDTL+45, ZEND+2!
ABSPPHM1	FIND+13, FIND+17, FIND+19*, FIND+20, FIND+50, FIND+52, FIND+53, ZEND+4!
ABSPPHMN	CLNC+8, PRNTSUM+15, PRNTDTL+22*, ZEND+4!
ABSPPIEN	START+1~
ABSPPINS	PRNTDTL+21, PRNTDTL+29, PRNTDTL+31, PRNTDTL+37, PRNTDTL+39, PRNTDTL+40, PRNTDTL+41, PRNTDTL+48, PRNTDTL+49, ZEND+4!
ABSPPPHM	CLNC+7, CLNC+8, FIND+15, FIND+16, FIND+17, FIND+19, PRNTSUM+3, PRNTSUM+13, PRNTSUM+15, PRNTSUM+25 , PRNTSUM+27, PRNTSUM+32, PRNTSUM+33, PRNTDTL+3, PRNTDTL+15, PRNTDTL+20, PRNTDTL+22, PRNTDTL+29, PRNTDTL+31, PRNTDTL+33 , PRNTDTL+37, PRNTDTL+39, PRNTDTL+40, PRNTDTL+41, PRNTDTL+43, PRNTDTL+48, ZEND+2!, START+6
ABSPPRDT	PRNTDTL+2, PRNTDTL+14, PRNTDTL+16, PRNTDTL+20, PRNTDTL+29, PRNTDTL+31, PRNTDTL+37, PRNTDTL+39, PRNTDTL+40, PRNTDTL+41 , PRNTDTL+48, ZEND+2!
ABSPPRMI	PRNTDTL+32, PRNTDTL+37, PRNTDTL+39, PRNTDTL+40, PRNTDTL+41, PRNTDTL+46, PRNTDTL+47, PRNTDTL+48, PRNTDTL+52, ZEND+2!
ABSPPRNM	PRNTSUM+19, PRNTSUM+25, PRNTSUM+27, PRNTSUM+32, PRNTSUM+33, PRNTDTL+4, PRNTDTL+30, PRNTDTL+31*, PRNTDTL+33, PRNTDTL+37 , PRNTDTL+39, PRNTDTL+40, PRNTDTL+41, PRNTDTL+48, ZEND+4!
ABSPPRX	PRNTDTL+46*, PRNTDTL+54, ZEND+2!
ABSPPRXR	PRNTDTL+47*, ZEND+2!
ABSPPTP	PRNTDTL+48*, PRNTDTL+64, PRNTDTL+65, PRNTDTL+66, ZEND+2!
ABSPQUIT	UPD+1~, UPD+5, UPD+9, UPD+11, UPD+14, UPD+16, UPD+22, UPD+23, UPD+24, UPD+25* , UPD+26, UPD+27, UPD+28, UPD+29, FIND+2~, FIND+10, FIND+26, FIND+28, PRNTSUM+10, PRNTDTL+1~ , PRNTDTL+12, PRNTDTL+14
ABSPRCD	FIND+33, FIND+39, ZEND+4!
ABSPRCNT	FIND+1~, FIND+50*, FIND+52
ABSPRDT	FIND+1~, FIND+3, FIND+6, FIND+7, FIND+8, FIND+9, FIND+53
ABSPRDTL	PRNTDTL+10, PRNTDTL+19, PRNTDTL+66*, PRNTDTL+75, ZEND+4!
ABSPREA	FIND+24, FIND+25, FIND+31, FIND+32, FIND+36, FIND+37, FIND+52, FIND+53, ZEND+4!
ABSPREAS	ZEND+3!
ABSPREAS(	FIND+50, FIND+52*
ABSPREAS(""	SUM+16, PRNTDTL+33
>> ABSPREJ	CODE+8, CODE+9, FIND+22
>> ABSPREJX	CODE+9*, FIND+26
ABSPRJC	START+1~
ABSPRJCD	PRNTDTL+33*, ZEND+3!
ABSPRMI	FIND+5, FIND+9, FIND+11, FIND+12, FIND+23, FIND+24, FIND+30, FIND+31, FIND+35, FIND+36 , FIND+53, ZEND+3!
ABSPRNUM	FIND+1~, FIND+32, FIND+38, FIND+50, FIND+52, FIND+53
ABSPRTOT	PRNTSUM+4, PRNTSUM+20, PRNTSUM+32, PRNTSUM+37, PRNTDTL+8, PRNTDTL+64, ZEND+2!
ABSPRTYP	RTYPE+7, NEXT+13, PRNTDHD+1, PRNTDTL+80, ZEND+3!, START+7
ABSPSPHM	SUM+6, SUM+7, SUM+9, SUM+11, SUM+13, SUM+14, SUM+16, SUM+17, SUM+18, SUM+19 , ZEND+3!
ABSPSRDT	SUM+4, SUM+5, SUM+7, SUM+9, SUM+11, SUM+13, SUM+14, SUM+17, ZEND+3!
ABSPSREA	SUM+14*, SUM+19, ZEND+4!
ABSPSRMI	SUM+12, SUM+13, SUM+14, SUM+17, ZEND+3!
ABSPSRNM	SUM+10, SUM+11, SUM+13, SUM+14, SUM+16, SUM+17, SUM+18, SUM+19, ZEND+3!
ABSPSTIN	SUM+8, SUM+9, SUM+11, SUM+13, SUM+14, SUM+17, SUM+19, ZEND+3!
ABSPSTL1	SUM+12, SUM+18, SUM+19, ZEND+4!
ABSPSTOP	DEVSEL+1~, DEVSEL+2, DEVSEL+8, DEVSEL+9, NEXT+1~, NEXT+2, NEXT+7, NEXT+9, PRNTSUM+1~, PRNTSUM+2* , PRNTSUM+9, PRNTSUM+13, PRNTSUM+14, PRNTSUM+25, PRNTSUM+26, PRNTSUM+35, PRNTSUM+44, PRNTDTL+1~, PRNTDTL+11, PRNTDTL+76
ABSPSTRT	UPD+1~, UPD+7, UPD+8, UPD+17, UPD+19, RTYPE+13, FIND+3, PRHDR+3, ZEND+4!, START+3
ABSPSTTL	SUM+12, SUM+17, SUM+18, ZEND+3!
ABSPSUM	PRHDR+2, ZEND+2!
ABSPSUM(	SUM+18, SUM+19*, PRNTSUM+13, PRNTSUM+25, PRNTSUM+27, PRNTSUM+32, PRNTSUM+33
ABSPTINS	FIND+12*, FIND+14, FIND+53, ZEND+3!
ABSPTMP	ZEND+2!
ABSPTMP(	FIND+8, FIND+53, SUM+5, SUM+7, SUM+9, SUM+11, SUM+13, SUM+14, SUM+17, PRNTDTL+14 , PRNTDTL+20, PRNTDTL+29, PRNTDTL+31, PRNTDTL+37, PRNTDTL+39, PRNTDTL+40, PRNTDTL+41, PRNTDTL+48
ABSPTMP(""	NEXT+3
ABSPTRNS	FIND+12, FIND+16, FIND+19, FIND+41, FIND+53, PRNTDTL+51~, PRNTDTL+52, PRNTDTL+53, ZEND+3!
DIC	CLNC+1~, CLNC+2, CLNC+5!, INS+1~, INS+2, INS+5!, CODE+2~, CODE+3*, CODE+6!
DIC("A"	CLNC+4, INS+4, CODE+5*
DIC(0	CLNC+3, INS+3, CODE+4*
DIR	RTYPE+1~, BDT+1~, BDT+3!, EDT+1~, EDT+3!
DIR("A"	RTYPE+4, BDT+5, EDT+5*
DIR("B"	RTYPE+3*
DIR(0	RTYPE+2, BDT+4, EDT+4*
>> DIRUT	RTYPE+6, BDT+7, EDT+7
DT	START+3, START+4
>> DUOUT	DEVSEL+6
IO	PRHDR+2
IOF	PRHDR+2, PRHDR+9
>> NDCDRG	PRNTDTL+54*, PRNTDTL+55, PRNTDTL+56
>> POP	DEVSEL+4, DEVSEL+10
RNUM	ZEND+3!
STARTIME	RTYPE+1~, RTYPE+10*, RTYPE+13
STOPTIME	RTYPE+1~, RTYPE+12*, RTYPE+13
U	FIND+11, FIND+12, FIND+16, FIND+19, FIND+24, FIND+31, FIND+36, FIND+53, SUM+14, SUM+16 , SUM+17, SUM+18, PRNTSUM+15, PRNTSUM+27, PRNTSUM+32, PRNTSUM+33, PRNTDTL+22, PRNTDTL+33, PRNTDTL+39, PRNTDTL+40 , PRNTDTL+41, PRNTDTL+42, PRNTDTL+43, PRNTDTL+44, PRNTDTL+45, PRNTDTL+46, PRNTDTL+47, PRNTDTL+48, PRNTDTL+49
X	UPD+20, UPD+21, CLNC+1~, CLNC+6, INS+1~, INS+6, CODE+2~, CODE+7, RTYPE+7, START+1~ , BDT+1~, BDT+10, EDT+1~, EDT+10
X1	UPD+19, BDT+1~, BDT+9, EDT+1~, EDT+9*
>> X2	UPD+19*
Y	CLNC+1~, CLNC+7, CLNC+8, INS+1~, INS+7, INS+8, CODE+2~, CODE+8, CODE+9, PRHDR+3* , PRHDR+5, PRHDR+6, PRHDR+8, PRNTDTL+16, PRNTDTL+18, START+1~, BDT+8, EDT+8
>> ZTQPARAM	UPD+3, START+2, START+3, START+4

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSR5

Information

Source Information

Call Graph

Call 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: