Routine: BDGIPL8

Call Graph

Package	Total	Call Graph
IHS Changes To ADT	4	($$CONF,INIT,PRTKL)^BDGF $$CURLOS^BDGF1 $$HRCN^BDGF2 SET^BDGIPL1
Registration	4	EN^DGPMLOS EN^VALM TERM^VALM0 CLEAR^VALM1
Kernel	3	^%ZISC $$REPEAT^XLFSTR DISP^XQORM1
VA Fileman	1	$$GET1^DIQ

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for BDG IPL BY LOS ; assumes BDGSRT and BDGSRT2 are set
HDR	; -- header code
SET(LINE,NUM,COUNT,IEN)	; put display line into array
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
HDG	; heading for paper report
INIT	; -- init variables and list array
EXIT	; -- exit code
PRINT	; print report to paper
AGE(P)	; return formatted age
LINE	; set up dislay line for patient
HELP	; -- help code

Name	Field # of Occurrence
^%ZISC	PRINT+9
$$CONF^BDGF	HDR+2, HDG+2
INIT^BDGF	PRINT+2
PRTKL^BDGF	PRINT+10
$$CURLOS^BDGF1	LINE+7
$$HRCN^BDGF2	LINE+4
SET^BDGIPL1	SET+1
EN^DGPMLOS	INIT+11, INIT+21
$$GET1^DIQ	INIT+13, INIT+23, LINE+3, LINE+6, LINE+8, LINE+9, AGE+1
EN^VALM	EN+3
TERM^VALM0	EN+2
CLEAR^VALM1	EN+2, EN+4
$$REPEAT^XLFSTR	HDG+7, HDG+10, PAD+2
DISP^XQORM1	HELP+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,BDGLN Line Location: PRINT+8
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !,BDGUSR,?16,$$CONF^BDGF Line Location: HDG+2
Function Call: WRITE	Prompt: !,BDGDATE,?(80-$L(X)\2),X,?70,"Page: ",BDGPG Line Location: HDG+4
Function Call: WRITE	Prompt: !,BDGTIME,?(80-$L(X)\2),X Line Location: HDG+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+7
Function Call: WRITE	Prompt: !?5,"Patient",?25,"Chart #",?35,"Age",?41,"Admit",?50,"LOS" Line Location: HDG+8
Function Call: WRITE	Prompt: ?57,"Srv",?63,"Community" Line Location: HDG+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+10
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+3

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	INIT+10, INIT+20
^DPT - [#2]	INIT+10, INIT+20, LINE+8
^DPT("CN"	INIT+7, INIT+16, INIT+17
^TMP("BDGIPL"	INIT+2!, PRINT+5, PRINT+7, EXIT+1!
^TMP("BDGIPL1"	INIT+2!, INIT+13, INIT+23, INIT+26, INIT+31, INIT+32, INIT+37!

Name	Line Occurrences
$$AGE	LINE+5
$$PAD	LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+8, LINE+9, SP+1
$$SP	HDR+2, HDR+4, HDR+6, LINE+2
EXIT	PRINT+10
HDG	PRINT+2, PRINT+6
INIT	BDGIPL8+7
LINE	INIT+33
PRINT	BDGIPL8+7
SET	INIT+29, INIT+35, LINE+10

Name	Field # of Occurrence
BDGCNT	INIT+1~, INIT+3, INIT+29, INIT+35, LINE+2, LINE+10, LINE+13
>> BDGCOP	PRINT+9
>> BDGDATE	HDG+4
BDGLN	PRINT+1~, PRINT+7*, PRINT+8
BDGPG	PRINT+1~, HDG+1*, HDG+4
>> BDGSRT	HDR+3, INIT+6, INIT+7, INIT+28, HDG+5
>> BDGSRT2	HDR+5, INIT+11, INIT+21, HDG+3
>> BDGTIME	HDG+6
>> BDGUSR	HDG+2
BDGX	PRINT+1~, PRINT+5*, PRINT+7
COUNT	SET~, SET+1
D	PAD~, PAD+2
>> D0	INIT+10, INIT+20
DFN	INIT+1~, INIT+7, INIT+10, INIT+13, INIT+17, INIT+20, INIT+23, INIT+32*, LINE+3, LINE+4 , LINE+5, LINE+6, LINE+7, LINE+8, LINE+9, LINE+10, AGE+1
DUZ(2	LINE+4
IEN	SET~, SET+1
IO	PRINT+2
IOF	HDG+1
>> IORVOFF	INIT+29
>> IORVON	INIT+29
IOSL	PRINT+6
IOST	BDGIPL8+7, LINE+2
L	PAD~, PAD+2
LINE	LINE+1~, LINE+2, LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+8, LINE+9, LINE+10 , SET~, SET+1
N	SP~, SP+1
NAME	INIT+1~, INIT+31*, INIT+32
NUM	SET~, SET+1
P	AGE~
U	HDR+3, INIT+7, HDG+5
VALMCNT	EN+2~, INIT+3*, INIT+29, INIT+35, LINE+10
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+4*
>> VALMHDR(3	HDR+6*
WD	INIT+1~, INIT+7, INIT+13, INIT+16, INIT+17, INIT+23, INIT+26*, INIT+29, INIT+31, INIT+32
X	HDR+1~, HDR+3, HDR+4, HDR+5, HDR+6, INIT+10, INIT+11, INIT+20, INIT+21, HDG+3* , HDG+4, HDG+5, HDG+6, HELP+1, AGE+1~, AGE+2, AGE+3