Routine: BDGADD2

Package

Total

Call Graph

SET^BDGADD ($$HRCN,$$HRCND)^BDGF2

$$FMTE^XLFDT $$REPEAT^XLFSTR

$$ADS^BSRPEP

$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGADD1

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
LINE	; set up display line
LINES	; loop thru patients found and list in alpha order

Name	Field # of Occurrence
SET^BDGADD	LINES+3, LINES+4, LINES+5, LINE+9
$$HRCN^BDGF2	LINE+3
$$HRCND^BDGF2	LINE+3
$$ADS^BSRPEP	BDGADD2+8
$$GET1^DIQ	BDGADD2+25, BDGADD2+26, BDGADD2+27, BDGADD2+28, BDGADD2+29, LINE+2
$$FMTE^XLFDT	BDGADD2+23
$$REPEAT^XLFSTR	LINES+5, PAD+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	BDGADD2+6
^ADGDS - [#9009012]	BDGADD2+19, BDGADD2+22, BDGADD2+23
^ADGDS("AA"	BDGADD2+14, BDGADD2+16, BDGADD2+17

Name	Line Occurrences
$$PAD	LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+8, SP+1
$$SP	LINES+4, LINE+2
LINE	LINES+8
LINES	BDGADD2+9, BDGADD2+33

Name	Field # of Occurrence
^(0	BDGADD2+19

Name	Field # of Occurrence
>> BDGT	BDGADD2+8, BDGADD2+13
D	PAD~, PAD+2
DATE	BDGADD2+12~, BDGADD2+13, BDGADD2+14, BDGADD2+16, BDGADD2+17
DAYCT	BDGADD2+7~, BDGADD2+8, BDGADD2+9, BDGADD2+12~, BDGADD2+13, BDGADD2+31*, BDGADD2+33, LINES+4
DFN	BDGADD2+12~, BDGADD2+15, BDGADD2+16, BDGADD2+17, BDGADD2+19, BDGADD2+22, BDGADD2+23, BDGADD2+25, BDGADD2+27, BDGADD2+28 , BDGADD2+29, BDGADD2+30, LINES+1~, LINES+8*, LINE+2, LINE+3, LINE+4, LINE+5, LINE+6, LINE+7 , LINE+8
DGDS	BDGADD2+7~, BDGADD2+12~
DGDS(	BDGADD2+27, BDGADD2+28, BDGADD2+29, BDGADD2+30, LINES+7, LINES+8, LINE+4, LINE+5, LINE+6, LINE+7 , LINE+8
>> DGZ	BDGADD2+19*, BDGADD2+26, BDGADD2+28
DGZA	BDGADD2+12~
DSN	BDGADD2+12~, BDGADD2+17*, BDGADD2+19, BDGADD2+22, BDGADD2+23
DUZ(2	LINE+3
END	BDGADD2+12~, BDGADD2+13*, BDGADD2+14
L	PAD~, PAD+2
LINE	LINE+1~, LINE+2, LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+8*, LINE+9
N	SP~, SP+1
NAME	BDGADD2+12~, BDGADD2+25, BDGADD2+27, BDGADD2+28, BDGADD2+29, BDGADD2+30, LINES+1~, LINES+7, LINES+8, LINE+4 , LINE+5, LINE+6, LINE+7, LINE+8
RELDT	BDGADD2+12~, BDGADD2+23*, BDGADD2+30
U	BDGADD2+22, BDGADD2+23, BDGADD2+26, BDGADD2+27, BDGADD2+28, BDGADD2+29, BDGADD2+30, LINE+4, LINE+5, LINE+6 , LINE+7, LINE+8
>> VALMCNT	LINES+3, LINES+4, LINES+5, LINE+9
>> X	BDGADD2+6, BDGADD2+26, BDGADD2+27

Information