Routine: ABPVTX0

Information

ABPVTX0 ;EXPORT FACILITY PVT-INS CLAIM DATA;[ 08/07/91 3:50 PM ]

Source file <ABPVTX0.m>

Package	Total	Call Graph
Third Party Tracking	6	^ABPVHD ^ABPVPRT (HEADER,JOBEND,S3START)^ABPVTX1 (ZEND,ZENDA)^ABPVTX2 ^ABPVVAR (PAUSE,YN)^ABPVZMM
Kernel	1	^%ZIS
VA Fileman	1	WAIT^DICD

Name	Comments	DBIA/ICR reference
NXTNODE
A1	;PROCEDURE TO GET PRINTER OUTPUT DEVICE
PRESET	;PROCEDURE TO RESET THE PRINTER TO 10 CPI
A2A	;PROCEDURE TO CONTROL REMAINING TASKS OF THIS ROUTINE
REPRT	;PROCEDURE TO RE-PRINT THE MOST RECENT EXPORT LOG
INSCHKC
A0	;PROCEDURE TO DRAW SCREEN HEADING
A3	;PROCEDURE TO BUILD SORTED UTILITY GLOBAL INDEX
A2	;PROCEDURE TO DETERMINE THE BEGINNING RECORD NUMBER FOR THIS RUN
A4	;PROCEDURE TO PRINT SORTED EXPORT TRANSMITTAL LOG
INSCHK	;PROCEDURE TO INSPECT FOR COMPLETE INSURANCE RECORD
A0A	;PROCEDURE TO GET THE LAST DATE DATA WAS EXPORTED

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,! Line Location: A0+1
Function Call: WRITE	Prompt: "*" Line Location: A0+1
Function Call: WRITE	Prompt: !,"",?17,"PRIVATE INSURANCE BILLING CLAIM EXPORT PROGRAM",?78,"",! Line Location: A0+2
Function Call: WRITE	Prompt: "",?80-$L(X)/2,X,?78,"",! Line Location: A0+3
Function Call: WRITE	Prompt: "",?80-$L(Y)/2,Y,?78,"",! Line Location: A0+4
Function Call: WRITE	Prompt: "*" Line Location: A0+4
Function Call: WRITE	Prompt: !! Line Location: A0A+7
Function Call: WRITE	Prompt: ?4,"<<< MUST BE A PRINTER TYPE DEVICE >>>",*7 Line Location: A1+2
Function Call: WRITE	Prompt: ! Line Location: A2A+1
Function Call: WRITE	Prompt: ?20,$E($P(^DPT(PDFN,0),"^",1),1,30) Line Location: A4+12
Function Call: WRITE	Prompt: ?5 Line Location: A4+23
Function Call: WRITE	Prompt: "-" Line Location: A4+23
Function Call: WRITE	Prompt: !,?5,"TOTAL CLAIMS = ",ZCLCT,?45,"TOTAL CLAIM AMT = ",?64 Line Location: A4+24
Function Call: WRITE	Prompt: $J(ZCLAMT,8,2),!! Line Location: A4+25
Function Call: WRITE	Prompt: @A("PRINT",10) Line Location: PRESET+1
Function Call: WRITE	Prompt: ! Line Location: REPRT+6
Function Call: WRITE	Prompt: ! Line Location: REPRT+10
Function Call: WRITE	Prompt: ! Line Location: REPRT+11
Function Call: WRITE	Prompt: @IOF Line Location: REPRT+11
Routine Call	%ZIS Line Location: A1+1 A2+6

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	A2+6, REPRT+11
^ABPVFAC - [#9002273.02]	A0A+2, A3+3, A3+4, A4+8
^ABPVFAC(0	A2+5
^ABPVTXST - [#9002271]	A2+2, A2+3, A2+4
^ABPVTXST("AC"	A0A+1
^AUTNINS - [#9999999.18]	A0A+2, NXTNODE, NXTNODE+1, A4+17
^DD("DD"	A0+4, A3+1
^DIC(4 - [#4]	A0+3
^DIC(5 - [#5]	NXTNODE+5
^DPT - [#2]	A3+4, A4+12
^UTILITY("ABPVTX"	A3+1!, A3+5, A4+3, A4+5, A4+7, REPRT+3, REPRT+6
^UTILITY("ABPVTXE"	INSCHKC+1, INSCHKC+3, A4+1!

Name	Line Occurrences
A0	ABPVTX0+2
A1	A0A+7, A1+2, REPRT+10
A2	A0A+8
A2A	A2+2, A2+3
A3	A2A+1
A4	A2A+1, REPRT+11
INSCHK	A4+16
INSCHKC	NXTNODE
NXTNODE	NXTNODE+2, NXTNODE+3, NXTNODE+4, NXTNODE+5, NXTNODE+7, NXTNODE+9
PRESET	A4+25, REPRT+11

Name	Field # of Occurrence
>> %IS	A1+1*
>> %ZIS("A"	A1+1*
>> A("PRINT"	PRESET+1
>> ABPV("HD"	REPRT+1!, REPRT+2
>> ABPV("SITE"	A2+1*, A2+2, A2+3, A2+4
>> ABPVI	A3+2, A4+2, A4+4, A4+6
ABPVMESS	REPRT+4!, REPRT+6, REPRT+7*!
ABPVMESS(2	REPRT+5*
>> ABPVTLE	REPRT+1
>> BRECNO	A2+1, A2+4, A2+5, A3+2
DIR	REPRT+7!
DT	A0+4, A3+1
DUZ(2	A0+3, A0A+1, A2+1
>> I	A0+1, A0+4, A4+23*
IO	A0A+7, PRESET+1, REPRT+10, REPRT+11
IOF	A0+1, REPRT+11
IOP	A2+6*!
IOST	A1+2
>> LEXDATE	A0A+1*
PDFN	A3+4, A3+6!, A4+12
>> PGNO	A0+1, REPRT+9
PNAME	A3+4*, A3+5, A3+6!
>> POP	A1+1
>> R	A2+1, A4+2, A4+3*, A4+5, A4+7
>> RR	A3+2, A3+3, A3+4, A3+5, A4+4, A4+5, A4+7
>> RRR	A4+6, A4+7, A4+8
>> X	A0+3, A2+3, A2+4, A4+9, A4+10, A4+14, A4+15
>> Y	A0+4, A3+1, REPRT+8
>> ZCLAMT	A2+1, A4+21, A4+25, REPRT+9*
>> ZCLCT	A2+1, A4+21, A4+24, REPRT+9*
>> ZINSCO	NXTNODE, NXTNODE+1, INSCHKC+1, INSCHKC+3, A4+16*
>> ZINSERR	INSCHK+1, NXTNODE+3, NXTNODE+4, NXTNODE+6, NXTNODE+8, NXTNODE+9, INSCHKC, INSCHKC+2
>> ZNODE	INSCHK+1, NXTNODE, NXTNODE+1, NXTNODE+2
ZX	A3+4, A3+5, A3+6!, A4+8, A4+9, A4+11, A4+12, A4+13, A4+14, A4+16 , A4+17, A4+18, A4+19, A4+20, A4+21
>> ZY	NXTNODE+1*, NXTNODE+2, NXTNODE+3, NXTNODE+4, NXTNODE+5, NXTNODE+7