Routine: BDGICR5

Package	Total	Call Graph
Kernel	3	^%ZISC $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	1	($$BROWSE,$$CONF,$$NUMDATE,$$RANGE,$$READ,INIT,MSG,PRTKL,ZIS)^BDGF
VA Fileman	1	$$GET1^DIQ

Package

Total

Call Graph

Kernel

^%ZISC $$REPEAT^XLFSTR DISP^XQORM1

Registration

EN^VALM TERM^VALM0 CLEAR^VALM1

IHS Changes To ADT

($$BROWSE,$$CONF,$$NUMDATE,$$RANGE,$$READ,INIT,MSG,PRTKL,ZIS)^BDGF

VA Fileman

$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
SET(DATA,NUM)	; put display line into array
EN	;EP; -- main entry point for BDG IC COMPLETED WEEKLY
HDR	; -- header code
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
CHOICE	;;
HDG	; heading for paper report
INIT	; -- init variables and list array
EXIT	; -- exit code
PRINT	; print report to paper
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+10
$$BROWSE^BDGF	BDGICR5+20
$$CONF^BDGF	HDR+2, HDG+3
$$NUMDATE^BDGF	INIT+42, INIT+51, INIT+66
$$RANGE^BDGF	HDR+10, HDG+12
$$READ^BDGF	BDGICR5+5, BDGICR5+8, BDGICR5+10, BDGICR5+13, BDGICR5+18
INIT^BDGF	PRINT+2
MSG^BDGF	INIT+1
PRTKL^BDGF	PRINT+10
ZIS^BDGF	BDGICR5+21
$$GET1^DIQ	INIT+11, INIT+17, INIT+21, INIT+23, INIT+24, INIT+25, INIT+28, INIT+29, INIT+43, INIT+44 , INIT+45, INIT+48, INIT+49, INIT+52, INIT+53, INIT+54, INIT+57, INIT+59
EN^VALM	EN+3
TERM^VALM0	EN+2
CLEAR^VALM1	EN+2, EN+4
$$REPEAT^XLFSTR	HDG+14, HDG+19, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,BDGLN Line Location: PRINT+9
Function Call: WRITE	Prompt: @IOF Line Location: HDG+2
Function Call: WRITE	Prompt: !,BDGUSR,?11,"***",$$CONF^BDGF,"***" Line Location: HDG+3
Function Call: WRITE	Prompt: !,BDGDATE,?25,"Completed Charts Report",?70,"Page: ",BDGPG Line Location: HDG+4
Function Call: WRITE	Prompt: !,BDGTIME,?(80-$L(X)\2),X Line Location: HDG+11
Function Call: WRITE	Prompt: !?(80-$L(X)\2),X Line Location: HDG+12
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+14
Function Call: WRITE	Prompt: !,X,?13,"HRCN",?19,"Patient Name",?46,"Typ",?51,"Dsch/Surg" Line Location: HDG+16
Function Call: WRITE	Prompt: ?62,"WHO",?67,X Line Location: HDG+18
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+19
Routine Call	VALM Line Location: EN+3

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^BDGIC - [#9009016.1]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BDGIC - [#9009016.1]	INIT+8, INIT+9
^TMP("BDGICR5"	INIT+3!, INIT+69, EXIT+1!, SET+2, PRINT+6, PRINT+8
^TMP("BDGICR5A"	INIT+3!, INIT+33*, INIT+37, INIT+39, INIT+40, INIT+41, INIT+70!

Label References

Name	Line Occurrences
$$PAD	HDR+14, HDR+15, HDR+17, INIT+43, INIT+44, INIT+47, INIT+50, INIT+51, INIT+54, INIT+57 , INIT+59, SP+1
$$SP	HDR+2, HDR+8, HDR+9, HDR+11, HDR+16, INIT+66, HDG+10, HDG+17
EN	BDGICR5+20
EXIT	PRINT+10
HDG	PRINT+3, PRINT+7
INIT	EN+1
PRINT	EN+1
SET	INIT+60, INIT+64, INIT+67

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDGBD	BDGICR5+4~, BDGICR5+8*, BDGICR5+9, HDR+10, INIT+7, HDG+12
>> BDGDATE	HDG+4
BDGED	BDGICR5+4~, BDGICR5+10*, BDGICR5+11, HDR+10, INIT+8, HDG+12
BDGLN	PRINT+1~, PRINT+8*, PRINT+9
BDGPG	PRINT+1~, HDG+2*, HDG+4
BDGPRT	EN+1*, INIT+1, EXIT+1!
BDGSRT	BDGICR5+4~, BDGICR5+13*, BDGICR5+14, INIT+21
BDGSTG	BDGICR5+4~, BDGICR5+5*, BDGICR5+7, HDR+13, HDR+16, INIT+6, INIT+23, INIT+24, INIT+25, INIT+52 , INIT+53, INIT+57, INIT+59, HDG+15, HDG+17
>> BDGTIME	HDG+11
BDGTYP	BDGICR5+4~, BDGICR5+18*, HDR+6, INIT+18, INIT+19, HDG+8
>> BDGUSR	HDG+3
BDGX	PRINT+1~, PRINT+6*, PRINT+8
CAT	INIT+17~*, INIT+18, INIT+19
COUNT	INIT+2~, INIT+36, INIT+61, INIT+63, INIT+64
COUNT(	INIT+61*, INIT+65, INIT+66
D	PAD~, PAD+2
DATA	SET~, SET+2
DATE	INIT+2~, INIT+7, INIT+8, INIT+9, INIT+33, INIT+41*, INIT+42
DEFAULT	BDGICR5+4~, BDGICR5+7*, BDGICR5+8, BDGICR5+10, BDGICR5+13
IEN	INIT+2~, INIT+9, INIT+11, INIT+17, INIT+21, INIT+23, INIT+24, INIT+25, INIT+28, INIT+29 , INIT+33, INIT+40, INIT+41, INIT+43, INIT+44, INIT+45, INIT+48, INIT+49, INIT+52, INIT+53 , INIT+57, INIT+59
IO	PRINT+2
IOF	HDG+2
IOSL	PRINT+7
IOST	EN+1
L	PAD~, PAD+2
LINE	INIT+2~, INIT+42, INIT+43, INIT+44, INIT+47, INIT+50, INIT+51, INIT+54, INIT+57, INIT+59* , INIT+60, INIT+66*, INIT+67
N	SP~, SP+1
NUM	SET~, SET+1*, SET+2
SORT1	INIT+2~, INIT+21, INIT+23, INIT+24, INIT+25, INIT+33, INIT+37*, INIT+39, INIT+40, INIT+41 , INIT+61
SORT2	INIT+2~, INIT+21, INIT+28, INIT+29, INIT+30, INIT+33, INIT+38, INIT+39, INIT+40, INIT+41
>> VALMCAP	HDR+17*
VALMCNT	EN+2~, INIT+3, INIT+60, INIT+64, INIT+67, INIT+69
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+9*
>> VALMHDR(3	HDR+11*
X	HDR+1~, HDR+6, HDR+8, HDR+9, HDR+10, HDR+11, HDR+13, HDR+14, HDR+15, HDR+16* , HDR+17, INIT+2~, INIT+45, INIT+47, INIT+48, INIT+49, INIT+50, INIT+51, INIT+52, INIT+53* , INIT+54, INIT+65, INIT+66, HELP+1, HDG+1~, HDG+8~, HDG+10, HDG+11, HDG+12, HDG+15 , HDG+16, HDG+17*, HDG+18
XREF	INIT+2~, INIT+6*, INIT+8, INIT+9

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGICR5

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items