Routine: BARDMLP

Information

BARDMLP ;IHS/OIT/FCJ - 1 OF 2 ;DEBT MANAGEMENT PRINT LETTERS

Source Information

Source file <BARDMLP.m>

Call Graph

Call Graph Total: 15

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

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Accounts Receivable	2	BAR DM PRT LETTER BAR DM PRT TEST 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
UNDL	;
TSTPRT	;EP
LGUP	;ADD BILL TO LOG FILE
PERCHK	;
INSCHK1	;
101
POLCHK	;TEST FOR POLICY NO, POLICY HOLDER AND POLICY HOLDER DOB
LGADD	;ENTRY TO LOG FILE
LGCYL	;ADD CYCLE TO LOG FILE
ETST1
SUMMARY	;
PATCHK	;
XIT	;
ETST	;ERROR TEST
VAR	;SET LET VARIABLES
INSCHK	;
VARSET	;RESET VARS
CYUP	;CYCLE UPDATE - SET LETTER STATUS AND QUE
ST	;
XIT2	;
LET	;
SORT1	;
SORT0
SORT3
SORT2	;

External References

Name	Field # of Occurrence
^%DTC	PATCHK+10
COMMA^%DTC	LET+17, ONEDM+2
NOW^%DTC	LGADD+1
^%ZIS	XIT+1, TSTPRT+5, LET+58
^%ZISC	XIT+2, TSTPRT+24, LET+66
PRINT^BARDMLP1	TSTPRT+23, ONEDM+15
CALC^BARDMRE	ETST+13
MCD^BARDMRE	INSCHK1+3
MCR^BARDMRE	INSCHK1+1
PRINT^BARDMRE	ETST+14
PRVT^BARDMRE	INSCHK1+4
RR^BARDMRE	INSCHK1+2
^BARDMRQN	LET+71
CYDAY^BARDMRU	LET+16
INSTYP^BARDMU	LET+33, ONEDM+11
PAR^BARDMU	TSTPRT+1
RRDT^BARDMU	ST+6
^DIC	CYUP+8, LGADD+4, LGCYL+5, LGUP+11
^DIE	CYUP+4, CYUP+12, PAID+3, PAID+6
$$GET1^DIQ	LET+29, ONEDM+8, ONEDM+10, POLCHK+6
^DIR	ETST+5, LET+75, SUMMARY+14
$$VAL^XBDIQ1	VAR+10, LET+22, LET+27, LET+34, ONEDM+4, ONEDM+7, ONEDM+12, PATCHK+2, PATCHK+3, PATCHK+6 , PERCHK+1, PERCHK+3, PERCHK+4, PERCHK+5, PERCHK+6
$$VALI^XBDIQ1	PATCHK+8, PATCHK+9
$$DIR^XBDIR	TSTPRT+3, LET+69
$$NPI^XUSNPI	LET+28, LET+29, ONEDM+9, ONEDM+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ST+2
Function Call: WRITE	Prompt: ! Line Location: ETST1+0
Function Call: WRITE	Prompt: !,"MISSING DATA IN ^BARBL(",DUZ(2),",",BARBIEN Line Location: LET+21
Function Call: WRITE	Prompt: !,"Bill status of ",$P(^BARBL(DUZ(2),BARBIEN,0),U,1)," changed. Flagging DL as PAID." Line Location: LET+31
Function Call: WRITE	Prompt: !," # of letters in queue : ",$J(BARTOT,6) Line Location: SUMMARY+3
Function Call: WRITE	Prompt: " with errors." Line Location: SUMMARY+4
Function Call: WRITE	Prompt: " incl. ",BARNOK1," letter(s) with errors." Line Location: SUMMARY+5
Function Call: WRITE	Prompt: !,"# of letters that will be printed : ",$J(BAROK2+BARNOK2,6) Line Location: SUMMARY+6
Function Call: WRITE	Prompt: !,"NOTE: According to the parameter setup only ",BARPMX," letters will be printed." Line Location: SUMMARY+7
Function Call: WRITE	Prompt: ! Line Location: UNDL+2
Function Call: WRITE	Prompt: "-" Line Location: UNDL+2
Routine Call	DIE Line Location: CYUP+4 CYUP+12 PAID+3 PAID+6
Routine Call	DIC Line Location: CYUP+8 LGADD+4 LGCYL+5 LGUP+11
Routine Call	DIR Line Location: ETST+5 LET+75 SUMMARY+14
Routine Call	%ZIS Line Location: XIT+1 TSTPRT+5 LET+58

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	LET+25, LET+26, INSCHK+7, INSCHK+8, INSCHK+11, INSCHK+12, INSCHK1+1, INSCHK1+2, INSCHK1+3, INSCHK1+4
^AUPNPAT - [#9000001]	POLCHK+4
^AUTNINS - [#9999999.18]	INSCHK+1
^BAR(90052.06	VAR+2
^BARBL(	LET+19, LET+23, LET+24, LET+30, LET+31, ONEDM+5, ONEDM+6, ONEDM+13, POLCHK+3, CYUP+11
^BARDM(	LET+10, LET+11, LET+15, LET+17, LET+18, ONEDM+2, ONEDM+3
^BARDMLG(	LGUP+2, LGUP+3, LGUP+12*
^DD(90053.08	LGCYL+3
^DD(90053.09	LGUP+9
^DPT - [#2]	POLCHK+5, PATCHK+5
^TMP("BARDM"	101+1!, XIT2+3!, LET+44, LET+47, LET+50, LET+54, SORT0+2, SORT0+3, SORT0+4, SORT1+1 , SORT1+3, SORT1+4, SORT1+5, SORT2+1, SORT2+3, SORT2+4, SORT2+5, SORT3+2, SORT3+3, SORT3+4 , SORT3+5, SORT3+6
^TMP("BARDME"	101!, XIT2+2!, LET+12, LET+13, LET+38, LET+39, LET+41, LET+42
^TMP("BARDMQN"	101+2!, XIT2+4!, LET+55*
^TMP($J	LET+2!
^VA(200 - [#200]	LET+20

Label References

Name	Line Occurrences
CYUP	ONEDM+16
ETST	101+4
ETST1	ETST+8
INSCHK	POLCHK+9
INSCHK1	INSCHK+9, INSCHK+12
LET	101+8
LGADD	LGUP+1
LGCYL	LGUP+3
LGUP	ONEDM+17
ONEDM	SORT0+4, SORT1+5, SORT2+5, SORT3+6
PAID	LET+32
PATCHK	POLCHK+10
PERCHK	POLCHK+11
POLCHK	LET+36, ONEDM+14
SORT0	LET+62
SORT1	LET+63
SORT2	LET+64
SORT3	LET+65
SUMMARY	LET+56
TSTPRT	ST+3, TSTPRT+25
UNDL	SUMMARY+2, SUMMARY+8
VAR	101+7, TSTPRT+9
VARSET	TSTPRT+9, POLCHK+7
XIT	ST+5, 101+6, 101+9
XIT2	101+5

Name	Field # of Occurrence
^(0	LET+23, ONEDM+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LGADD+3
AGE	XIT2+5!, PATCHK+10*
>> BAR2PRT	ETST+2, ETST+10, LET+12, LET+13, SUMMARY+4, SUMMARY+5
>> BARAD1	VAR+3*
>> BARAD2	VAR+3*
>> BARAMTO	TSTPRT+17, LET+17, ONEDM+2*
>> BARBIEN	LET+18, LET+19, LET+21, LET+23, LET+24, LET+27, LET+29, LET+30, LET+31, ONEDM+3 , ONEDM+5, ONEDM+6, ONEDM+7, ONEDM+10, ONEDM+13, POLCHK+3, PATCHK+8, CYUP+11
>> BARBILN	TSTPRT+17, LET+22, ONEDM+4*, LGUP+10
>> BARCT	LET+4, LET+40, LET+43
>> BARCTY	VAR+3*
>> BARCYCLE	LET+8, LET+10, LET+15, LET+44, LET+47, LET+50, LET+54, LET+55, 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+1*, SORT3+2, SORT3+3, SORT3+4, SORT3+5, SORT3+6, LGCYL+4, LGUP+2, LGUP+3
>> BARD3P	LET+23, LET+25, LET+26, ONEDM+5, INSCHK+7, INSCHK+8, INSCHK+11, INSCHK+12, INSCHK1+1, INSCHK1+2 , INSCHK1+3, INSCHK1+4
>> BARD3PD	LET+24, LET+25, LET+26, ONEDM+6, INSCHK+7, INSCHK+8, INSCHK+11, INSCHK+12, INSCHK1+1, INSCHK1+2 , INSCHK1+3, INSCHK1+4
>> BARDAC	LET+23, LET+34, ONEDM+5, ONEDM+12
>> BARDACG	TSTPRT+11*, POLCHK+2, POLCHK+9, POLCHK+10, POLCHK+11
>> BARDACI	INSCHK+1, INSCHK+7, INSCHK+8, INSCHK+12, PERCHK+1, PERCHK+3, PERCHK+4, PERCHK+5, PERCHK+6
>> BARDBDT	LET+23, ONEDM+5
>> BARDI	LET+34, LET+35, ONEDM+12
>> BARDINS(	LET+35
>> BARDITY	LET+35
BARDM	LET+10, LET+11, LET+12, LET+13, LET+15, LET+17, LET+18, LET+22, LET+32, LET+38 , LET+39, LET+41, LET+42, LET+44, LET+47, LET+50, LET+54, LET+55, SORT0+3, SORT0+4 , SORT1+4, SORT1+5, SORT2+4, SORT2+5, SORT3+5*, SORT3+6, ONEDM+2, ONEDM+3, ONEDM+4, CYUP+1 , PAID~, PAID+1, PAID+5
BARDM("DOS"	TSTPRT+18, LET+14, LET+27, ONEDM+1, ONEDM+7*
BARDM("INS"	VARSET+2, INSCHK+1, INSCHK+2, INSCHK+3, INSCHK+4, INSCHK+5
BARDM("INS_CTY"	TSTPRT+14, INSCHK+3, PATCHK+3, PERCHK+4
BARDM("INS_NM"	TSTPRT+12, LET+49, LET+52, INSCHK+2, PATCHK+1, PERCHK+2
BARDM("INS_ST"	TSTPRT+15, INSCHK+3, PATCHK+5, PERCHK+5
BARDM("INS_STR"	TSTPRT+13, INSCHK+2, PATCHK+2, PERCHK+3
BARDM("INS_TX"	VARSET+2, INSCHK+5
BARDM("INS_ZP"	TSTPRT+16, INSCHK+4, PATCHK+6, PERCHK+6
BARDM("MEMBER"	VARSET+2*
BARDM("PAT_IEN"	ONEDM+8, POLCHK+3*, POLCHK+4, POLCHK+5, POLCHK+6, PATCHK+2, PATCHK+3, PATCHK+5, PATCHK+6, PATCHK+9
BARDM("POL_DOB"	VARSET+2*
BARDM("POL_HOLDER"	VARSET+2*, LET+46, LET+53
BARDM("POL_HOLDER_IEN"	VARSET+2*
BARDM("POL_NUM"	VARSET+2*
BARDMC	LET+14, LET+15, LET+17, LET+32, LET+44, LET+47, LET+50, LET+54, LET+55, SORT0+4* , SORT1+5, SORT2+5, SORT3+6*, ONEDM+2, CYUP+1, PAID~, PAID+1
>> BARDMINS	LET+26, LET+44, LET+47, LET+50, LET+54, LET+55, SORT0+2, SORT0+3, SORT0+4, SORT1+3* , SORT1+4, SORT1+5, SORT2+3, SORT2+4, SORT2+5, SORT3+3, SORT3+4, SORT3+5, SORT3+6
>> BARDOB	TSTPRT+22, ONEDM+8, POLCHK+6*
>> BARDTP	TSTPRT+21*
>> BARERRCT	ETST+12*, ETST+14, ETST+16
>> BARFAC	VAR+10*
>> BARHRN	POLCHK+4*
>> BARL	TSTPRT+11, INSCHK+8, INSCHK+11*, INSCHK+12, INSCHK1+1, INSCHK1+2, INSCHK1+3, INSCHK1+4
>> BARLDOB	VAR+7*
>> BARLEN	VAR+1*
>> BARLG	LGADD+5*, LGCYL+1, LGCYL+2, LGUP+1, LGUP+2, LGUP+3, LGUP+5, LGUP+8, LGUP+12
>> BARLGC	LGCYL+6, LGUP+2, LGUP+6, LGUP+8, LGUP+12
>> BARLQ	LET+16
>> BARMIN	TSTPRT+10, VARSET+1, POLCHK+1, POLCHK+9, PATCHK+10*
>> BARMRGL	VAR+4, VAR+9
>> BARMRGT	VAR+4, VAR+8
BARNOK1	LET+3~, LET+6, LET+38, SUMMARY+5
BARNOK2	LET+3~, LET+7, LET+41, SUMMARY+6
>> BARNPI	VAR+7*
>> BARNPIF	TSTPRT+22, LET+28, ONEDM+9*
>> BARNPIP	TSTPRT+22, LET+29, ONEDM+10*
BAROK1	LET+3~, LET+6, LET+39
BAROK2	LET+3~, LET+7, LET+42, SUMMARY+6
BARPAR	VAR+5, VAR+6, VAR+7, VAR+11!
BARPAR1	VAR+2*, VAR+3, VAR+4, VAR+11!
>> BARPAT	TSTPRT+17, POLCHK+5, PATCHK+1, PERCHK+1*, PERCHK+2
>> BARPBDT	TSTPRT+19*
>> BARPCP(	VAR+6*, CYUP+11
>> BARPH	VAR+3*
>> BARPIEN	VAR+2
>> BARPMX	VAR+4*, LET+40, SUMMARY+7
>> BARPSRT	LET+44, LET+45, LET+48, LET+51, LET+62, LET+63, LET+64, LET+65
>> BARQ	ST+4, 101+5, ETST+7, ETST+9, ETST+15, TSTPRT+2, LET+4, LET+8, LET+10, LET+15 , LET+57, SUMMARY+1, SUMMARY+16, SUMMARY+17
>> BARRPT	ST+1, TSTPRT+20
>> BARSG	VAR+5*
>> BARSG1	VAR+5*
>> BARSG2	VAR+5*
BARSORT	LET+3~, LET+46, LET+47, LET+49, LET+50, SORT1+1, SORT1+3, SORT1+4, SORT1+5, SORT2+1 , SORT2+3, SORT2+4, SORT2+5
>> BARSORT1	LET+52, LET+54, SORT3+2, SORT3+3, SORT3+4, SORT3+5, SORT3+6
>> BARSORT2	LET+53, LET+54, SORT3+4, SORT3+5, SORT3+6
>> BARST	VAR+3*
BARTMP	UNDL+1~, UNDL+2*
>> BARTOT	LET+5, LET+37, SUMMARY+3, SUMMARY+6, SUMMARY+7, SUMMARY+12, SUMMARY+13, SUMMARY+17
>> BARTST	INSCHK+6*, INSCHK+10, INSCHK+11
>> BARZP	VAR+3*
>> C	VAR+6*
>> CY	TSTPRT+11, LET+4, LET+9, LET+16, SORT0, SORT0+2, SORT1+2, SORT1+3, SORT2+2, SORT2+3* , SORT3, SORT3+2, CYUP+5, CYUP+7, CYUP+11
DA	CYUP+1, CYUP+5!, CYUP+10, CYUP+13!, LGADD+6!, LGCYL+7!, LGUP+4!, PAID+1, PAID+4!, PAID+5 , PAID+7!
DA(1	CYUP+1, LGCYL+1, LGUP+6, PAID+1
DA(2	LGUP+5*
DIC	CYUP+1, CYUP+5!, CYUP+13!, LGADD+2, LGCYL+2, LGUP+4!, LGUP+8
DIC("P"	LGCYL+3, LGUP+9
DIC(0	CYUP+7, LGADD+2, LGCYL+2, LGUP+7
DIE	CYUP+1, CYUP+5!, CYUP+13!, LGUP+4!, PAID+1, PAID+4!, PAID+5*, PAID+7!
DIR	ETST+6!, LET+72!, LET+76!, LGUP+4!, SUMMARY+10!, SUMMARY+15!
DIR("A"	ETST+4, LET+74, SUMMARY+12, SUMMARY+13
DIR(0	ETST+3, LET+73, SUMMARY+11*
>> DIROUT	ETST+7
>> DIRUT	ETST+7
DR	CYUP+3, CYUP+5!, CYUP+11, CYUP+13!, LGUP+4!, PAID+2, PAID+4!, PAID+5, PAID+7!
DT	TSTPRT+21, CYUP+3
>> DTOUT	ETST+7
>> DUOUT	ST+5, 101+6, ETST+7, TSTPRT+6
DUZ	LET+20, CYUP+3
DUZ(2	VAR+2, VAR+10, LET+10, LET+11, LET+15, LET+17, LET+18, LET+19, LET+21, LET+23 , LET+24, LET+28, LET+30, LET+31, ONEDM+2, ONEDM+3, ONEDM+5, ONEDM+6, ONEDM+9, ONEDM+13 , POLCHK+3, POLCHK+4, CYUP+11, LGADD+2, LGCYL+2, LGUP+2, LGUP+3, LGUP+8, LGUP+12, PAID+1 , PAID+5
ERRCT	XIT2+5!
ERRT	XIT2+5!
>> I	VAR+1, VAR+6
IO	TSTPRT+8, LET+60
IO("S"	XIT+1
IOF	ST+2
>> IOP	XIT+1*
>> IOS	XIT+1
>> POP	TSTPRT+7, LET+59
U	ETST+9, VAR+3, VAR+4, VAR+5, VAR+6, LET+11, LET+17, LET+18, LET+20, LET+23 , LET+24, LET+26, LET+28, LET+29, LET+30, LET+31, ONEDM+2, ONEDM+3, ONEDM+5, ONEDM+6 , ONEDM+9, ONEDM+10, ONEDM+13, POLCHK+3, POLCHK+4, POLCHK+5, INSCHK+2, INSCHK+3, INSCHK+4, INSCHK+5 , INSCHK+12, INSCHK1+1, INSCHK1+2, INSCHK1+3, INSCHK1+4, PATCHK+5, CYUP+11, LGCYL+3, LGUP+9, LGUP+12
X	ETST+8, ETST+9, LET+17, LET+72, ONEDM+2, PATCHK+10, CYUP+7, LGADD+3, LGCYL+4, LGUP+4! , LGUP+10, SUMMARY+10, SUMMARY+16
>> X1	PATCHK+8*
>> X2	LET+17, ONEDM+2, PATCHK+9*
Y	ETST+10, TSTPRT+3, TSTPRT+4, LET+68, LET+69, LET+70, LET+72, CYUP+9, CYUP+10, LGADD+5 , LGCYL+6, LGUP+4!, SUMMARY+10

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARDMLP

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: