Routine: BDGADS

Information

BDGADS ; IHS/ANMC/LJF - A&D SUMMARY PRINT ;

Source Information

Source file <BDGADS.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	4	^%ZISC ($$DOW,$$FMADD,$$FMTE)^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
IHS Changes To ADT	3	PATDATA^BDGADS1 ($$CONF,INIT,PRTKL)^BDGF $$ACTSRV^BDGPAR
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
IHS Changes To ADT	2	BDGADS1 BDGADS2
Registration	1	DGPMGL1

Entry Points

Name	Comments	DBIA/ICR reference
SET(DATA,NUM)	; put display line into array
EN	; -- main entry point for BDG A&D SUMMARY
HDR	; -- header code
PHDG	; heading for paper report
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
EXPND	; -- expand code
TOTALS	; set up total display lines
HDG	; set up column headings
INIT	; -- init variables and list array
EXIT	; -- exit code
PRINT	; print report to paper
LINE	; build display line
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+8
PATDATA^BDGADS1	INIT+44
$$CONF^BDGF	HDR+1, PHDG+2
INIT^BDGF	PRINT+2
PRTKL^BDGF	PRINT+8
$$ACTSRV^BDGPAR	INIT+17, INIT+26, INIT+34, INIT+40
$$GET1^DIQ	HDR+2, PHDG+3
EN^VALM	EN+4
TERM^VALM0	EN+2
CLEAR^VALM1	EN+2, EN+5
$$DOW^XLFDT	HDR+4, PHDG+5
$$FMADD^XLFDT	INIT+4
$$FMTE^XLFDT	HDR+4, PHDG+5
$$REPEAT^XLFSTR	TOTALS+2, PHDG+7, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("BDGADS",$J,BDGX,0) Line Location: PRINT+7
Function Call: WRITE	Prompt: @IOF Line Location: PHDG+1
Function Call: WRITE	Prompt: !,BDGUSR,?11,"*",$$CONF^BDGF,"*" Line Location: PHDG+2
Function Call: WRITE	Prompt: !,BDGDATE,?(80-$L(X)\2),X,?70,"Page: ",BDGPG Line Location: PHDG+4
Function Call: WRITE	Prompt: !,BDGTIME,?(80-$L(X)\2),X Line Location: PHDG+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: PHDG+7
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BDGCTX - [#9009016.6]	LINE+2, LINE+3, LINE+4
^DIC(45.7 - [#45.7]	INIT+12, INIT+16, INIT+21, INIT+25, INIT+30, INIT+33, INIT+39
^TMP("BDGADS"	INIT+2!, SET+2*, PRINT+5, PRINT+7, EXIT+1!

Label References

Name	Line Occurrences
$$PAD	TOTALS+6, TOTALS+11, TOTALS+16, TOTALS+20, TOTALS+25, LINE+19, HDG+2, HDG+4, SP+1
$$SP	HDR+1, HDR+3, HDR+5, HDG+4
EXIT	PRINT+8
HDG	INIT+8
INIT	BDGADS+5
LINE	INIT+18, INIT+27, INIT+35, INIT+41
PHDG	PRINT+2, PRINT+6
PRINT	BDGADS+5
SET	INIT+38, INIT+43, TOTALS+2, TOTALS+7, TOTALS+12, TOTALS+17, TOTALS+21, TOTALS+26, LINE+20, HDG+3 , HDG+5
TOTALS	INIT+43

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BDGDATE	PHDG+4
BDGPG	PRINT+1~, PHDG+1*, PHDG+4
BDGREP	EXIT+1!
BDGT	BDGADS+5, EN+1~, EN+3, HDR+4, INIT+4, INIT+17, INIT+26, INIT+34, INIT+40, LINE+2 , PHDG+5
>> BDGTIME	PHDG+6
>> BDGUSR	PHDG+2
BDGX	PRINT+1~, PRINT+5*, PRINT+7
CNT	LINE+1~
CNT(	LINE+19, LINE+23, LINE+24
CNT(1	LINE+9*
CNT(2	LINE+10*
CNT(3	LINE+11*
CNT(4	LINE+12*
CNT(5	LINE+13*
CNT(6	LINE+14*
CNT(7	LINE+15*
D	PAD~, PAD+2
DATA	LINE+1~, LINE+2*, LINE+10, LINE+11, LINE+12, LINE+13, LINE+14, LINE+15, SET~, SET+2
DUZ(2	HDR+2, PHDG+3
I	INIT+6, TOTALS+1~, TOTALS+6, TOTALS+11, TOTALS+16, TOTALS+20, TOTALS+25, LINE+1~, LINE+19, LINE+23 , LINE+24*
IO	PRINT+2
IOF	PHDG+1
IOSL	PRINT+6
IOST	BDGADS+5
L	PAD~, PAD+2
LINE	TOTALS+1~, TOTALS+5, TOTALS+6, TOTALS+7, TOTALS+10, TOTALS+11, TOTALS+12, TOTALS+15, TOTALS+16, TOTALS+17 , TOTALS+19, TOTALS+20, TOTALS+21, TOTALS+24, TOTALS+25, TOTALS+26, LINE+1~, LINE+18, LINE+19, LINE+20 , HDG+1~, HDG+2, HDG+3, HDG+4, HDG+5
N	SP~, SP+1
NUM	SET~, SET+1*, SET+2
PREV	INIT+1~, INIT+4*, LINE+3, LINE+4
>> RD	BDGADS+5, EN+3
REMA	LINE+1~, LINE+3*, LINE+9
REMP	LINE+1~, LINE+4*, LINE+9
SRV	INIT+1~, INIT+16, INIT+17, INIT+25, INIT+26, INIT+33, INIT+34, INIT+39, INIT+40, LINE+2 , LINE+3, LINE+4
SRVN	INIT+1~, INIT+12, INIT+13, INIT+14, INIT+16, INIT+21, INIT+22, INIT+23, INIT+25, INIT+30* , INIT+31, INIT+33, INIT+39*, LINE+6, LINE+18
TOT	INIT+1~, INIT+6, TOTALS+20, LINE+24
TOT(	INIT+6, LINE+23
TOT("D"	TOTALS+14, TOTALS+16
TOT("I"	TOTALS+4, TOTALS+6
TOT("N"	TOTALS+23, TOTALS+25
TOT("O"	TOTALS+9, TOTALS+11
TYPE	LINE+1~, LINE+6*, LINE+23, LINE+24
U	TOTALS+6, TOTALS+11, TOTALS+16, TOTALS+20, TOTALS+25, LINE+3, LINE+4, LINE+10, LINE+11, LINE+12 , LINE+13, LINE+14, LINE+15, LINE+23, LINE+24
VALMCNT	EN+1~, INIT+3*, INIT+38, INIT+43, TOTALS+2, TOTALS+7, TOTALS+12, TOTALS+17, TOTALS+21, TOTALS+26 , LINE+20, HDG+3, HDG+5
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+3*
>> VALMHDR(3	HDR+5*
X	HDR+2, HDR+3, HDR+4, HDR+5, TOTALS+1~, TOTALS+5, TOTALS+6, TOTALS+10, TOTALS+11, TOTALS+15* , TOTALS+16, TOTALS+19, TOTALS+20, TOTALS+24, TOTALS+25, LINE+18, LINE+19, PHDG+3, PHDG+4, PHDG+5* , PHDG+6, HELP+1*

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGADS

Call Graph Total: 11

Caller Graph Total: 3