Routine: ABPVCK0

Information

ABPVCK0 ;3P BILL TRANSMISSION EDIT REPORT;[ 08/07/91 3:51 PM ]

Source Information

Source file <ABPVCK0.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Third Party Tracking	3	(A3,A4)^ABPVCK1 JOBEND^ABPVTX1 PAUSE^ABPVZMM
Kernel	2	^%ZIS ERR^ZU
VA Fileman	1	WAIT^DICD

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Third Party Tracking	1	ABPVCK1

Entry Points

Name	Field # of Occurrence
^%ZIS	A1+1
A3^ABPVCK1	A2A+1
A4^ABPVCK1	A2A+1
JOBEND^ABPVTX1	A0A+3
PAUSE^ABPVZMM	S3ENDA+1
WAIT^DICD	A2A+1
ERR^ZU	ERR

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,! Line Location: A0+1
Function Call: WRITE	Prompt: "*" Line Location: A0+1
Function Call: WRITE	Prompt: !,"*",?13,"PRIVATE INSURANCE BILLING CLAIM TRANSMISSION EDIT REPORT" Line Location: A0+2
Function Call: WRITE	Prompt: ?78,"*",! Line Location: A0+3
Function Call: WRITE	Prompt: "*",?80-$L(X)/2 Line Location: A0+3
Function Call: WRITE	Prompt: X,?78,"*",! Line Location: A0+4
Function Call: WRITE	Prompt: "",?80-$L(Y)/2,Y,?78,"",! Line Location: A0+4
Function Call: WRITE	Prompt: "*" Line Location: A0+5
Function Call: WRITE	Prompt: !! Line Location: A1+1
Function Call: WRITE	Prompt: !!,*7,?10,"NO RECORDS AVAILABLE FOR EXPORT -- " Line Location: A2+6
Function Call: WRITE	Prompt: "JOB CANCELLED" Line Location: A2+7
Function Call: WRITE	Prompt: ! Line Location: A2A+1
Function Call: WRITE	Prompt: @A("PRINT",10) Line Location: PRESET+1
Function Call: WRITE	Prompt: 7,7,!!,?10,X,!!,?20,Y Line Location: S3START+5
Function Call: WRITE	Prompt: !!,?30,X,!,?40,Y Line Location: S3START+6
Function Call: WRITE	Prompt: ?2,$E($P(ZY,"^",1),1,30) Line Location: S3A+2
Function Call: WRITE	Prompt: ?34,$E($P(ZY,"^",2),1,30) Line Location: S3A+3
Function Call: WRITE	Prompt: ?66,$E($P(ZY,"^",3),1,15) Line Location: S3A+4
Function Call: WRITE	Prompt: ?83,$P(^DIC(5,X,0),"^",2) Line Location: S3A+6
Function Call: WRITE	Prompt: ?87,$E($P(ZY,"^",5),1,10) Line Location: S3C+0
Function Call: WRITE	Prompt: ?105,"YES" Line Location: S3C+1
Function Call: WRITE	Prompt: ! Line Location: S3C+2
Function Call: WRITE	Prompt: !!,?30,"NUMBER OF RECORDS WITH INCOMPLETE DATA = ",RR,!! Line Location: S3END+0
Function Call: WRITE	Prompt: @A("PRINT",10) Line Location: S3END+1
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+0
Function Call: WRITE	Prompt: "*" Line Location: HEADER+1
Function Call: WRITE	Prompt: !,"* ",X1,?32,"PRIVATE INSURANCE BILLING CLAIM TRANSMISSION EDIT REPORT",?111,"Page ",PGNO,?121,"*",! Line Location: HEADER+3
Function Call: WRITE	Prompt: "",?121-$L(X)/2,X,?121,"",! Line Location: HEADER+4
Function Call: WRITE	Prompt: "",?121-$L(Y)/2,Y,?121,"",!,"*" Line Location: HEADER+5
Function Call: WRITE	Prompt: "-" Line Location: HEADER+6
Function Call: WRITE	Prompt: "",!," ENTRY",?12,"CONTROL",?62,"DATE OF",?105,"CLAIM",?113,"T",?118,"D",?121,"*",! Line Location: HEADER+7
Function Call: WRITE	Prompt: "",?3,"DATE",?12,"NUMBER",?20," PATIENT'S NAME ",?53,"H R N",?62,"SERVICE",?71,"INSURANCE COMPANY NAME",?105,"AMOUNT",?113,"P",?118,"V",?121,"",! Line Location: HEADER+8
Function Call: WRITE	Prompt: "*" Line Location: HEADER+9
Function Call: WRITE	Prompt: !! Line Location: HEADER+10
Function Call: WRITE	Prompt: @IOF Line Location: HEADER2+0
Function Call: WRITE	Prompt: "*" Line Location: HEADER2+1
Function Call: WRITE	Prompt: !,"",?47,"INSURANCE COMPANY ADDRESS ERRORS",?116,"",!,"*" Line Location: HEADER2+2
Function Call: WRITE	Prompt: ?32,"THESE ERRORS MUST BE CORRECTED IN ORDER TO EXPORT CLAIM DATA",?116,"",!,"" Line Location: HEADER2+3
Function Call: WRITE	Prompt: "-" Line Location: HEADER2+4
Function Call: WRITE	Prompt: "",!,"",?2,"INSURANCE COMPANY NAME",?34,"* STREET ADDRESS ",?66,"CITY",?83,"ST",?87,"ZIP CODE",?100,"B-ADDRESS ERROR",?116,"",!,"*" Line Location: HEADER2+5
Function Call: WRITE	Prompt: "-" Line Location: HEADER2+6
Function Call: WRITE	Prompt: "*",!! Line Location: HEADER2+7
Function Call: WRITE	Prompt: @A("PRINT",10) Line Location: ERR+0
Routine Call	%ZIS Line Location: A1+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	S3ENDA+1, ERR
^ABPVFAC - [#9002273.02]	A0A+2
^ABPVFAC(0	A2+5
^ABPVTXST - [#9002271]	A2+2, A2+3, A2+4
^ABPVTXST("AC"	A0A+1
^AUTNINS - [#9999999.18]	A0A+2, NXTNODE, NXTNODE+1, S3A+1
^DD("DD"	A0+4, HEADER+5
^DIC(4 - [#4]	A0+3, HEADER+2, HEADER+4
^DIC(5 - [#5]	NXTNODE+5, S3A+5, S3A+6
^UTILITY("ABPVTXE"	INSCHKC+1, INSCHKC+3, S3START+2, S3A, S3C+1, S3ENDA!

Label References

Name	Line Occurrences
A0	ABPVCK0+2
A1	A0A+7
A2	A0A+7
A2A	A2+2, A2+3
HEADER2	S3START+7, S3C+2
INSCHKC	NXTNODE
NXTNODE	NXTNODE+2, NXTNODE+3, NXTNODE+4, NXTNODE+5, NXTNODE+7, NXTNODE+9
PRESET	A2+5
S3A	S3C+3
S3C	S3A+4, S3A+5
S3END	S3START+2, S3A
S3ENDA	A0A+7, A2+5
S3START	A2A+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	S3ENDA!
>> %IS	A1+1*
>> %ZIS("A"	A1+1*
A	S3ENDA!
A("PRINT"	PRESET+1, S3END+1, ERR
>> ABPV("SITE"	A2+1*, A2+2, A2+3, A2+4
BDATE	S3ENDA!
BDATED	S3ENDA!
>> BRECNO	A2+1, A2+4, A2+5
DT	A0+4, HEADER+5
DUZ(2	A0+3, A0A+1, A2+1, HEADER+2, HEADER+4
EDATE	S3ENDA!
EDATED	S3ENDA!
I	A0+1, A0+5, S3ENDA!, HEADER+1, HEADER+6, HEADER+9, HEADER2+1, HEADER2+4, HEADER2+6
IO	A0A+7, PRESET+1, S3START+6, S3END+1, HEADER, HEADER+2, HEADER2, ERR
IO(0	A2+6, A2+7, S3START+5
IOF	A0+1, HEADER, HEADER2
>> LEXDATE	A0A+1*
PDFN	S3ENDA!
PGNO	A0+1, S3ENDA!, HEADER, HEADER+3
R	A2+1, S3START+1, S3A*, S3A+1, S3C+1, S3ENDA!
RDATES	S3ENDA!
RR	S3START+1, S3C+3, S3END, S3ENDA!
X	A0+3, A0+4, A2+3, A2+4, S3START+3, S3START+5, S3START+6, S3A+4, S3A+5, S3A+6 , S3ENDA!, HEADER+4*
>> X1	HEADER+2*, HEADER+3
>> X2	HEADER+2*
XXX	S3ENDA!
Y	A0+4, S3START+4, S3START+5, S3START+6, S3ENDA!, HEADER+5*
ZCLAMT	A2+1*, S3ENDA!
ZCLCT	A2+1*, S3ENDA!
ZINSCO	NXTNODE, NXTNODE+1, INSCHKC+1, INSCHKC+3, S3ENDA!
ZINSERR	INSCHK+1, NXTNODE+3, NXTNODE+4, NXTNODE+6, NXTNODE+8, NXTNODE+9, INSCHKC, INSCHKC+2, S3ENDA!
ZNODE	INSCHK+1, NXTNODE, NXTNODE+1, NXTNODE+2, S3ENDA!
ZX	S3ENDA!
ZY	NXTNODE+1, NXTNODE+2, NXTNODE+3, NXTNODE+4, NXTNODE+5, NXTNODE+7, S3A+1, S3A+2, S3A+3, S3A+4 , S3C, S3ENDA!

Customize PDF page

Package: Third Party Tracking

Routine: ABPVCK0

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
NXTNODE
HEADER
A1	;PROCEDURE TO GET PRINTER OUTPUT DEVICE
PRESET	;PROCEDURE TO RESET THE PRINTER TO 10 CPI
HEADER2
ERR
A2A	;PROCEDURE TO CONTROL REMAINING TASKS OF THIS ROUTINE
S3END
S3ENDA
INSCHKC
A0	;PROCEDURE TO DRAW SCREEN HEADING
A2	;PROCEDURE TO DETERMINE THE BEGINNING RECORD NUMBER FOR THIS RUN
INSCHK	;PROCEDURE TO INSPECT FOR COMPLETE INSURANCE RECORD
A0A	;PROCEDURE TO GET THE LAST DATE DATA WAS EXPORTED
S3A
S3START	;PRINT INS CO ADD ERRORS REPORT OF INSURANCE CO ADDRESS ERRORS
S3C