Routine: BARDMLPR

Package	Total	Call Graph
VA Fileman	6	DD^%DT (,COMMA,NOW)^%DTC ^DIC ^DIE $$GET1^DIQ ^DIR
IHS Accounts Receivable	3	PRINT^BARDMLP1 (MCD,MCR,PRVT,RR)^BARDMRE (INSTYP,PAR,RRDT)^BARDMU
Kernel	3	^%ZIS ^%ZISC $$NPI^XUSNPI
IHS VA Utilities	2	($$VAL,$$VALI)^XBDIQ1 $$DIR^XBDIR

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR DM PRT REPRINT LETTER

Entry Points

Name	Comments	DBIA/ICR reference
ONEDM	;
PAID(BARDM,BARDMC)	;SET THE PRINT QUEUED STATUS TO NOT QUEUED AND BILL STATUS TO PAID P.OTT MAY 2013
TSTPRT	;EP
PERCHK	;
INSCHK1	;
POLCHK	;TEST FOR POLICY NO, POLICY HOLDER AND POLICY HOLDER DOB
NOTPRT(BARDM)	;
SEL	;EP;SELECT BILL BAR1.824 NEW CODE - EXCLUDE NOT PRINTED LETTERS FROM LOOKUP
B	;SELECT BATCH
LERR	;
L	;SELECT LETTER
PATCHK	;
XIT	;
VAR	;SET LET VARIABLES
LET2(BARCYCLE,BARDM,BARDMC)	;
INSCHK	;
VARSET	;RESET VARS
LETB	;SET CYCLES TO PRINT BATCHES
ST	;
LETS	;SET CYCLES TO SINGLE LETTERS
XIT2	;
LET	;BEGIN PRINT LETTERS
SORT1
SORT0
SORT3
SORT2

External References

Name	Field # of Occurrence
DD^%DT	LET2+2, ONEDM+1
^%DTC	PATCHK+9
COMMA^%DTC	LET2+4, ONEDM+3
NOW^%DTC	TSTPRT+9
^%ZIS	ST+11, XIT+1, TSTPRT+5
^%ZISC	XIT+2, TSTPRT+24
PRINT^BARDMLP1	TSTPRT+23, ONEDM+14
MCD^BARDMRE	INSCHK1+3
MCR^BARDMRE	INSCHK1+1
PRVT^BARDMRE	INSCHK1+4
RR^BARDMRE	INSCHK1+2
INSTYP^BARDMU	LET2+13, ONEDM+12
PAR^BARDMU	TSTPRT+1
RRDT^BARDMU	ST+5
^DIC	B+5, SEL+6
^DIE	PAID+3, PAID+6
$$GET1^DIQ	POLCHK+8, POLCHK+10
^DIR	LERR+6
$$VAL^XBDIQ1	VAR+10, LET2+9, LET2+12, LET2+14, ONEDM+8, ONEDM+11, PATCHK+2, PATCHK+3, PATCHK+5, PERCHK+1 , PERCHK+3, PERCHK+4, PERCHK+5, PERCHK+6
$$VALI^XBDIQ1	PATCHK+7, PATCHK+8
$$DIR^XBDIR	ST+6, TSTPRT+3, L+15, B+15
$$NPI^XUSNPI	POLCHK+9, POLCHK+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ST+10
Function Call: WRITE	Prompt: !?5,"Select Letter for Bill : " Line Location: L+10
Function Call: WRITE	Prompt: !?10,I_". ",$P(BARDM(I),U,3)," Letter" Line Location: L+11
Function Call: WRITE	Prompt: !?10,I,". All Letters" Line Location: L+12
Function Call: WRITE	Prompt: !?10,I,". Letters 1-3" Line Location: L+13
Function Call: WRITE	Prompt: ! Line Location: L+14
Function Call: WRITE	Prompt: !?5,"Select Cycle for Batch:" Line Location: B+12
Function Call: WRITE	Prompt: !?10,I_". ",$P(BARDM(I),U,2)," - Total Letters = ",$P(BARDM(I),U,3) Line Location: B+13
Function Call: WRITE	Prompt: !?10,I,". All Letters" Line Location: B+14
Function Call: WRITE	Prompt: !,"MISSING DATA IN ^BARBL(",DUZ(2),",",BARBIEN Line Location: LET2+8
Function Call: WRITE	Prompt: !,"Cycle: ",BARCYCLE," Bill status of ",$P(^BARBL(DUZ(2),BARBIEN,0),U,1)," changed." Line Location: LET2+16
Function Call: WRITE	Prompt: !,"This reprint will keep the original status." Line Location: LET2+17
Function Call: WRITE	Prompt: !,"MISSING DATA IN ^BARBL(",DUZ(2),",",BARBIEN Line Location: ONEDM+7
Function Call: WRITE	Prompt: !,"Letters have not been printed for this Bill" Line Location: LERR+1
Routine Call	DIE Line Location: PAID+3 PAID+6
Routine Call	DIC Line Location: B+5 SEL+6
Routine Call	DIR Line Location: LERR+6
Routine Call	%ZIS Line Location: ST+11 XIT+1 TSTPRT+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^BARBL(2906 - [#90050.01]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	POLCHK+4, INSCHK+7, INSCHK+8, INSCHK+11, INSCHK1+1, INSCHK1+2, INSCHK1+3, INSCHK1+4
^AUPNPAT - [#9000001]	POLCHK+5, POLCHK+6
^AUTNINS - [#9999999.18]	INSCHK+1
^BAR(90052.06	VAR+2
^BARBL(	LET2+6, LET2+10, LET2+11, ONEDM+5, ONEDM+9, ONEDM+10, POLCHK+3
^BARDM(	L+5, L+7, L+8, LETB+5, LET2+2, LET2+4, LET2+5, ONEDM+1, ONEDM+3, ONEDM+4 , NOTPRT+3, NOTPRT+4
^BARDMLG(	B+9, B+10, LETB+2, LETB+3
^DD("DD"	TSTPRT+10
^DPT - [#2]	POLCHK+7, PATCHK+4
^TMP("BARDMERR"	LET+1!, SORT0+2, SORT0+3, SORT0+4, SORT1+1, SORT1+3, SORT1+4, SORT1+5, SORT2+1, SORT2+3 , SORT2+4, SORT2+5, SORT3+3, SORT3+4, SORT3+5, SORT3+6, SORT3+7, LET2+19, LET2+21, LET2+24* , LET2+27, LET2+31
^VA(200 - [#200]	LET2+7, ONEDM+6

Label References

Name	Line Occurrences
@(	ST+8
INSCHK	POLCHK+13
INSCHK1	INSCHK+9, INSCHK+11
LERR	L+5, L+9, B+11
LET	ST+14
LET2	LETS+5, LETB+8
LETB	LET+11, LET+12
LETS	LET+4, LET+5, LET+7
ONEDM	SORT0+4, SORT1+5, SORT2+5, SORT3+7
PATCHK	POLCHK+14
PERCHK	POLCHK+15
POLCHK	LET2+18, ONEDM+13
SEL	L+2
SORT0	LET+15
SORT1	LET+16
SORT2	LET+17
SORT3	LET+18
TSTPRT	ST+2, TSTPRT+25
VAR	ST+13, TSTPRT+8
VARSET	TSTPRT+8, POLCHK+11
XIT	ST+4, ST+7, ST+9, ST+15

Naked Globals

Name	Field # of Occurrence
^(0	LET2+10, ONEDM+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TSTPRT+10
AGE	XIT2+2!, PATCHK+9*
>> BARAD1	VAR+3*
>> BARAD2	VAR+3*
>> BARAMTO	TSTPRT+19, LET2+4, ONEDM+3*
>> BARB	LETB+1, LETB+2, LETB+3
>> BARBAT	B+7*, B+9, B+10, LETB+2, LETB+3
>> BARBIEN	LET2+5, LET2+6, LET2+8, LET2+10, LET2+11, LET2+12, ONEDM+4, ONEDM+5, ONEDM+9, ONEDM+10 , ONEDM+11, POLCHK+3, POLCHK+10, PATCHK+7
>> BARBILN	TSTPRT+19, LET2+9, ONEDM+8*
BARCT	XIT2+1!, L+6, L+8, L+9, L+11, L+12, L+13, B+8, B+10, B+11 , B+13, B+14, LETB+1*
>> BARCTY	VAR+3*
BARCYCLE	XIT2+1!, SORT0+1, SORT0+2, SORT0+3, SORT0+4, SORT1+2, SORT1+3, SORT1+4, SORT1+5, SORT2+2* , SORT2+3, SORT2+4, SORT2+5, SORT3+2, SORT3+3, SORT3+4, SORT3+5, SORT3+6, SORT3+7, LETS+2 , LETS+5, LETB+4*, LETB+5, LETB+8, LET2~, LET2+21, LET2+24, LET2+27, LET2+31
BARCYL	XIT2+1!, L+6, L+7, L+8, L+15, B+8, B+9, B+10, B+15, LET+4 , LET+5, LET+7, LET+11, LET+12, NOTPRT+1~, NOTPRT+3*, NOTPRT+4
>> BARD3P	LET2+10, ONEDM+9, POLCHK+4, INSCHK+7, INSCHK+8, INSCHK+11, INSCHK1+1, INSCHK1+2, INSCHK1+3, INSCHK1+4
>> BARD3PD	LET2+11, ONEDM+10, POLCHK+4, INSCHK+7, INSCHK+8, INSCHK+11, INSCHK1+1, INSCHK1+2, INSCHK1+3, INSCHK1+4
>> BARDAC	LET2+10, LET2+14, ONEDM+9
>> BARDACG	TSTPRT+13*, POLCHK+2, POLCHK+13, POLCHK+14, POLCHK+15
>> BARDACI	INSCHK+1, INSCHK+7, INSCHK+8, INSCHK+11, PERCHK+1, PERCHK+3, PERCHK+4, PERCHK+5, PERCHK+6
>> BARDBDT	LET2+10, ONEDM+9
>> BARDI	LET2+14*
BARDM	L+5, L+7, L+8, SORT0+3, SORT0+4, SORT1+4, SORT1+5, SORT2+4, SORT2+5, SORT3+6 , SORT3+7, LETS+2, LETS+4, LETS+5, LETB+3, LETB+5, LETB+7, LETB+8, LET2~, LET2+2 , LET2+4, LET2+5, LET2+9, LET2+21, LET2+24, LET2+27, LET2+31, ONEDM+1, ONEDM+3, ONEDM+4 , ONEDM+8, PAID~, PAID+1, PAID+5, SEL+8*, NOTPRT~, NOTPRT+3, NOTPRT+4
BARDM(	L+8, L+11, L+12, L+13, B+10, B+13, B+14*, LET+4, LET+5, LET+11 , LET+12, LETS+2, LETB+2, LETB+3, LETB+4
BARDM("DOS"	TSTPRT+20, LET2+3, LET2+12, ONEDM+2, ONEDM+11*
BARDM("INS"	VARSET+2, INSCHK+1, INSCHK+2, INSCHK+3, INSCHK+4, INSCHK+5
BARDM("INS_CTY"	TSTPRT+16, INSCHK+3, PATCHK+3, PERCHK+4
BARDM("INS_NM"	TSTPRT+14, LET2+26, LET2+29, INSCHK+2, PATCHK+1, PERCHK+2
BARDM("INS_ST"	TSTPRT+17, INSCHK+3, PATCHK+4, PERCHK+5
BARDM("INS_STR"	TSTPRT+15, INSCHK+2, PATCHK+2, PERCHK+3
BARDM("INS_TX"	VARSET+2, INSCHK+5
BARDM("INS_ZP"	TSTPRT+18, INSCHK+4, PATCHK+5, PERCHK+6
BARDM("MEMBER"	VARSET+2*
BARDM("PAT_IEN"	POLCHK+3*, POLCHK+5, POLCHK+6, POLCHK+7, POLCHK+8, PATCHK+2, PATCHK+3, PATCHK+4, PATCHK+5, PATCHK+8
BARDM("POL_DOB"	VARSET+2*
BARDM("POL_HOLDER"	VARSET+2*, LET2+23, LET2+30
BARDM("POL_HOLDER_IEN"	VARSET+2*
BARDM("POL_NUM"	VARSET+2*
BARDMC	SORT0+4, SORT1+5, SORT2+5, SORT3+7, LETS+2, LETS+3, LETS+5, LETB+5, LETB+6, LETB+8 , LET2~, LET2+2, LET2+4, LET2+21, LET2+24, LET2+27, LET2+31, ONEDM+1, ONEDM+3, PAID~ , PAID+1
>> BARDMINS	SORT0+2, SORT0+3, SORT0+4, SORT1+3, SORT1+4, SORT1+5, SORT2+3, SORT2+4, SORT2+5, SORT3+4 , SORT3+5, SORT3+6, SORT3+7, LET2+20*, LET2+21, LET2+24, LET2+27, LET2+31
>> BARDOB	TSTPRT+21, POLCHK+8
>> BARDTP	TSTPRT+10, LET2+2, ONEDM+1*
BARERRCT	XIT2+2!
BARERRT	XIT2+2!
>> BARFAC	VAR+10*
>> BARHRN	POLCHK+5, POLCHK+6
BARL	XIT2+1!, TSTPRT+13, INSCHK+8, INSCHK+11*, INSCHK1+1, INSCHK1+2, INSCHK1+3, INSCHK1+4
>> BARLDOB	VAR+7*
>> BARLEN	VAR+1*
>> BARLTY	ST+6*, ST+8, LET+3, LET+9
>> BARMIN	TSTPRT+12, VARSET+1, POLCHK+1, POLCHK+13, PATCHK+9*
>> BARMRGL	VAR+4, VAR+9
>> BARMRGT	VAR+4, VAR+8
>> BARNPI	VAR+7*
>> BARNPIF	TSTPRT+21, POLCHK+9
>> BARNPIP	TSTPRT+21, POLCHK+10
BARPAR	VAR+5, VAR+6, VAR+7, VAR+11!
BARPAR1	VAR+2*, VAR+3, VAR+4, VAR+11!
>> BARPAT	TSTPRT+19, POLCHK+7, PATCHK+1, PERCHK+1*, PERCHK+2
>> BARPBDT	TSTPRT+22*
>> BARPCP(	VAR+6*
>> BARPH	VAR+3*
>> BARPIEN	VAR+2
>> BARPMX	VAR+4*
>> BARPSRT	LET+15, LET+16, LET+17, LET+18, LET2+21, LET2+22, LET2+25, LET2+28
>> BARQ	ST+3, ST+9, TSTPRT+2, L+3, L+16, B+1, B+6, B+16, LET+2, LET+6 , LETS+1, LERR+1, SEL+1, SEL+7*
>> BARREQ	B+1, SEL+1
BARRET	NOTPRT+1~, NOTPRT+2, NOTPRT+5, NOTPRT+6
>> BARRPT	ST+1*
>> BARSEQ	LET2+19*
>> BARSG	VAR+5*
>> BARSG1	VAR+5*
>> BARSG2	VAR+5*
BARSORT	SORT1~, SORT1+1, SORT1+3, SORT1+4, SORT1+5, SORT2~, SORT2+1, SORT2+3, SORT2+4, SORT2+5 , LET2+23, LET2+24, LET2+26, LET2+27
BARSORT1	SORT3~, SORT3+3, SORT3+4, SORT3+5, SORT3+6, SORT3+7, LET2+29, LET2+31
BARSORT2	SORT3~, SORT3+5, SORT3+6, SORT3+7, LET2+30, LET2+31
>> BARST	VAR+3*
BARTMP	NOTPRT+1~, NOTPRT+4*, NOTPRT+5
>> BARTST	INSCHK+6*, INSCHK+10
>> BARVLOC	POLCHK+4*, POLCHK+5
>> BARZP	VAR+3*
>> C	VAR+6*
CY	XIT2+1!, TSTPRT+13, LET+4, LET+5, LET+7, LET+10, LET+11, LET+12, SORT0, SORT0+2* , SORT1+2, SORT1+3, SORT2+2, SORT2+3, SORT3+1, SORT3+3, LETS+2, LETB+2, LETB+3, LETB+4
DA	XIT2+1!, LERR+2!, PAID+1, PAID+4!, PAID+5, PAID+7!
DA(1	PAID+1*
DIC	XIT2+1!, B+2, LERR+2!, SEL+2
DIC("A"	B+3, SEL+4
DIC("S"	SEL+3*
DIC(0	B+4, SEL+5
DIE	PAID+1, PAID+4!, PAID+5, PAID+7!, SEL+2*
DIR	LERR+2!
DIR("A"	LERR+5*
DIR(0	LERR+4*
DR	LERR+2!, PAID+2, PAID+4!, PAID+5, PAID+7!
>> DUOUT	ST+4, ST+7, TSTPRT+7, L+16, B+16
DUZ	LET2+7, ONEDM+6
DUZ(2	VAR+2, VAR+10, L+5, L+7, L+8, B+2, B+9, B+10, LETB+2, LETB+3 , LETB+5, LET2+2, LET2+4, LET2+5, LET2+6, LET2+8, LET2+10, LET2+11, ONEDM+1, ONEDM+3 , ONEDM+4, ONEDM+5, ONEDM+9, ONEDM+10, POLCHK+3, POLCHK+6, POLCHK+9, PAID+1, PAID+5, SEL+2 , NOTPRT+3, NOTPRT+4
I	XIT2+1!, VAR+1, VAR+6, L+11, L+12, L+13, L+15, B+13, B+14*, B+15
I1	XIT2+1!
IO	ST+12, TSTPRT+6
IO("S"	XIT+1, LERR+3
>> IOP	XIT+1*
>> IOS	XIT+1
IOST	LERR+3
U	VAR+3, VAR+4, VAR+5, VAR+6, L+8, L+11, B+10, B+13, LETS+2, LETB+2 , LETB+3, LETB+4, LET2+2, LET2+4, LET2+5, LET2+7, LET2+10, LET2+11, ONEDM+1, ONEDM+3 , ONEDM+4, ONEDM+6, ONEDM+9, ONEDM+10, POLCHK+3, POLCHK+4, POLCHK+5, POLCHK+6, POLCHK+7, POLCHK+9 , POLCHK+10, INSCHK+2, INSCHK+3, INSCHK+4, INSCHK+5, INSCHK+11, INSCHK1+1, INSCHK1+2, INSCHK1+3, INSCHK1+4 , PATCHK+4, NOTPRT+4
X	XIT2+1!, LET2+4, ONEDM+3, PATCHK+9
>> X1	PATCHK+7*
>> X2	LET2+4, ONEDM+3, PATCHK+8*
>> Y	TSTPRT+3, TSTPRT+4, TSTPRT+10, B+6, B+7, LET2+2, ONEDM+1, SEL+7, SEL+8
Z	XIT2+1!

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARDMLPR

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: