Routine: BARDMRQN

Package	Total	Call Graph
VA Fileman	5	DD^%DT COMMA^%DTC ^DIC $$GET1^DIQ ^DIR
IHS Accounts Receivable	2	CALC^BARDMRQC (RRDT,RTRN)^BARDMU
IHS VA Utilities	1	$$VAL^XBDIQ1

Package	Total	Caller Graph
IHS Accounts Receivable	2	BARDMLP BARDMXX

Entry Points

Name	Comments	DBIA/ICR reference
HDR2	;
SELI	;SELECT INSURANCE TYPE
SELD	;SELECT DETAIL
DATE(Y)	;
DET	;DETAIL
SELA	;SELECT ACCOUNT
TOT	;PRINT TOTALS
SELC	;SELECT CYCLE
XIT	;
PRINT	;
GTOT
ST	;
TRT	;<--------------
HDR	;

External References

Name	Field # of Occurrence
DD^%DT	DATE+1
COMMA^%DTC	TOT+13
CALC^BARDMRQC	ST+7
RRDT^BARDMU	SELD+14
RTRN^BARDMU	TOT+15, TOT+17, DET+11, DET+18
^DIC	SELI+3, SELA+4
$$GET1^DIQ	SELI+5
^DIR	SELC+9, SELD+6, SELD+12
$$VAL^XBDIQ1	SELA+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," NO DATA TO LIST " Line Location: SELD+2
Function Call: WRITE	Prompt: ! Line Location: SELD+6
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !,"Printed letters in batch ",$$DATE($G(BARTMP)) Line Location: HDR+6
Function Call: WRITE	Prompt: !,"Printed letters in time period ",$$DATE($G(BARFROM))," - ",$$DATE($G(BARTO)) Line Location: HDR+8
Function Call: WRITE	Prompt: Y Line Location: HDR+9
Function Call: WRITE	Prompt: !,"SEQ",?6,"CYCLE",?13,"INS TYPE/INS-ACCOUNT",?55,"# OF BILLS",?69,"AMOUNT",! Line Location: HDR+10
Function Call: WRITE	Prompt: "-" Line Location: HDR+11
Function Call: WRITE	Prompt: @IOF,!,BARRDT,?23,"Debt Letter Print Report",?70,"PAGE: ",BARPG Line Location: HDR2+2
Function Call: WRITE	Prompt: !!,"A/R PARENT LOCATION: ",BARPSAT(DUZ(2),.01) Line Location: HDR2+3
Function Call: WRITE	Prompt: ?65,BARDL Line Location: HDR2+4
Function Call: WRITE	Prompt: !,"A/R ACCOUNT: ",BARDI,?62,"PERIOD: ",BARPCD($P(BARDL," ",2))," Days" Line Location: HDR2+5
Function Call: WRITE	Prompt: ! Line Location: HDR2+6
Function Call: WRITE	Prompt: "=" Line Location: HDR2+6
Function Call: WRITE	Prompt: !,?40,"SERVICE",?49,"BILLED",?60,"BILLED" Line Location: HDR2+7
Function Call: WRITE	Prompt: !,?2,"HRN",?8,"BILL #",?16,"PATIENT",?40,"DATE",?49,"DATE",?60,"AMOUNT",?72,"BALANCE" Line Location: HDR2+8
Function Call: WRITE	Prompt: ! Line Location: HDR2+9
Function Call: WRITE	Prompt: "-" Line Location: HDR2+9
Function Call: WRITE	Prompt: !!,BARDL," Does not contain any queued Letters" Line Location: TOT+1
Function Call: WRITE	Prompt: ?66,$J(X,12) Line Location: TOT+13
Function Call: WRITE	Prompt: ! Line Location: TOT+15
Function Call: WRITE	Prompt: ! Line Location: TOT+17
Function Call: WRITE	Prompt: !,?55," ====",?66,"===========" Line Location: TOT+18
Function Call: WRITE	Prompt: !,"-- TOTAL:" Line Location: TOT+19
Function Call: WRITE	Prompt: ?55,$J(BARTOT1,7),?65,$J(BARTOT2,12,2) Line Location: TOT+20
Function Call: WRITE	Prompt: ! Line Location: TOT+23
Function Call: WRITE	Prompt: !,?55," ====",?66,"===========" Line Location: GTOT+0
Function Call: WRITE	Prompt: !,"-- GRAND TOTAL:" Line Location: GTOT+1
Function Call: WRITE	Prompt: ?55,$J(BARGTOT1,7),?65,$J(BARGTOT2,12,2) Line Location: GTOT+2
Function Call: WRITE	Prompt: ! Line Location: GTOT+3
Function Call: WRITE	Prompt: !,BARHRN,?7,BARBIL,?16,$E(BARPAT,1,24),?40,BARSDT,?49,BARBDT Line Location: DET+8
Function Call: WRITE	Prompt: ?58,$J(X,10,2) Line Location: DET+9
Function Call: WRITE	Prompt: Line Location: DET+9
Function Call: WRITE	Prompt: ?70,$J(X,10,2) Line Location: DET+10
Function Call: WRITE	Prompt: ?60,X Line Location: DET+10
Function Call: WRITE	Prompt: ! Line Location: DET+11
Function Call: WRITE	Prompt: !,?58,"----------",?70,"----------" Line Location: DET+13
Function Call: WRITE	Prompt: !,"TOTAL",?38,$P(TMP,U)," Bill(s)" Line Location: DET+15
Function Call: WRITE	Prompt: ?58,$J(X,10,2) Line Location: DET+16
Function Call: WRITE	Prompt: ?70,$J(X,10,2) Line Location: DET+17
Function Call: WRITE	Prompt: ! Line Location: DET+18
Routine Call	DIC Line Location: SELI+3 SELA+4
Routine Call	DIR Line Location: SELC+9 SELD+6 SELD+12

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BAR(90053.03 - [#90053.03]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	DET+3
^BARDMLG(	HDR+5
^DPT - [#2]	DET+3
^TMP("BARDM"	SELD+1, SELD+15, TOT+1, TOT+3, TOT+4, TOT+8, TOT+9, TOT+10, TOT+11, TOT+14 , DET+2, DET+3, DET+4, DET+6, DET+9, DET+10, DET+14

Label References

Name	Line Occurrences
$$DATE	HDR+6, HDR+8
DET	SELD+16
GTOT	PRINT+5
HDR	PRINT+1, TOT+15, TOT+17
HDR2	SELD+16, DET+11
PRINT	TRT+2
SELA	ST+6
SELC	ST+4
SELD	TRT+4
SELI	ST+5
TOT	PRINT+4, PRINT+6
TRT	TRT+6
XIT	ST+4, ST+5, ST+6, ST+8, TRT+3, TRT+5

Naked Globals

Name	Field # of Occurrence
^(	SELD+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BARBAT	HDR+4, HDR+5
>> BARBDT	DET+7*, DET+8
>> BARBIL	DET+2*, DET+3, DET+4, DET+6, DET+8, DET+9, DET+10
>> BARCY	TRT+3, SELC+11*, PRINT+3
>> BARCYN	SELC+11*, PRINT+6
>> BARDAC	SELA+6*
>> BARDCA	SELA+6*, TOT+5
>> BARDCI	ST+6, SELI+5, SELI+6, TOT+6
>> BARDI	SELD+15, HDR2+5, TOT+4, TOT+5, TOT+7, TOT+9, TOT+10, TOT+11, TOT+14, DET+2 , DET+3, DET+4, DET+6, DET+9, DET+10, DET+14
>> BARDIT	SELD+15, TOT+3, TOT+4, TOT+6, TOT+7, TOT+9, TOT+10, TOT+11, TOT+14, DET+2 , DET+3, DET+4, DET+6, DET+9, DET+10, DET+14
>> BARDITI	TOT+7*, TOT+9
>> BARDL	SELD+15, PRINT+4, PRINT+6*, HDR2+4, HDR2+5, TOT+1, TOT+3, TOT+4, TOT+9, TOT+10 , TOT+11, TOT+14, DET+2, DET+3, DET+4, DET+6, DET+9, DET+10, DET+14
>> BARDLQ	PRINT+4, TOT+3, TOT+4, TOT+15, TOT+17, DET+1*, DET+2, DET+11, DET+12, DET+18
>> BARDT	DET+4, DET+5, DET+6, DET+7
>> BARFROM	HDR+7, HDR+8
>> BARGTOT1	PRINT+2, TOT+21, GTOT+2
>> BARGTOT2	PRINT+2, TOT+22, GTOT+2
>> BARHRN	DET+3*, DET+8
BARL	XIT+2!
>> BARMODE	HDR+2, HDR+7
>> BARPAT	DET+3*, DET+8
>> BARPCD(	HDR2+5
>> BARPG	HDR2+1*, HDR2+2
>> BARPSAT(	HDR2+3
>> BARQ	ST+8
>> BARRDT	HDR2+2
>> BARRPT	ST+3*
>> BARSDT	DET+5*, DET+8
>> BARSEQ	ST+3, TRT+1, SELD+1, SELD+2, SELD+10, SELD+13, SELD+15, TOT+7*, TOT+8, TOT+9 , TOT+14
BARTMP	HDR+3~, HDR+5*, HDR+6
>> BARTO	HDR+7, HDR+8
>> BARTOT1	TOT+2, TOT+10, TOT+20, TOT+21
>> BARTOT2	TOT+2, TOT+12, TOT+20, TOT+22
>> BMCQ	ST+3, TRT+3, TOT+1
DA	SELI+7!, SELA+7!
>> DFN	DET+3*
DIC	SELI+1, SELI+7!, SELA+1, SELA+7!
DIC("A"	SELI+2, SELA+2
DIC("S"	SELA+3*
DIC(0	SELI+2, SELA+2
DIR	XIT+1!, SELC+12!, SELD+9!, SELD+17!
DIR("?"	SELC+4, SELC+5, SELC+6, SELC+7, SELC+8*
DIR("A"	SELC+2, SELD+4, SELD+11*
DIR("B"	SELC+3, SELD+5
DIR("L"	SELC+3*
DIR(0	SELC+1, SELD+3, SELD+10*
>> DIRUT	ST+4, ST+5, ST+6, SELC+10
>> DUOUT	SELI+4, SELA+5
DUZ(2	SELI+1, SELA+1, HDR+5, HDR2+3, DET+3
>> I	HDR+11, HDR2+6, HDR2+9*
IOF	HDR+1, HDR2+2
IOSL	TOT+15, TOT+17, DET+11
>> L	TOT+14
>> TMP	DET+14*, DET+15, DET+16, DET+17
U	SELA+6, SELD+15, TOT+1, TOT+9, TOT+10, TOT+11, TOT+14, DET+3, DET+4, DET+6 , DET+9, DET+10, DET+15, DET+16, DET+17
>> X	TOT+11, TOT+12, TOT+13, DET+9, DET+10, DET+16, DET+17*
Y	TRT+5, SELC+11, SELA+6, SELD+7, SELD+8, SELD+13, DATE~, DATE+1, DATE+2
Y(0	SELC+11, SELI+5, SELA+6

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARDMRQN

Information

Source Information

Call Graph

Call Graph Total: 8

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: