Routine: BDGILD6

Information

BDGILD6 ; IHS/ANMC/LJF - FACILITY TRANSFERS ;

Source file <BDGILD6.m>

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

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for BDG ILD FACILITY TRANSFERS
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
HDG	; heading for paper report
INIT	; -- init variables and list array
EXIT	; -- exit code
PRINT	; print report to paper
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("BDGILD6",$J,LINE,0) Line Location: PRINT+6
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !,BDGUSR,?13,"*",$$CONF^BDGF,"*" Line Location: HDG+2
Function Call: WRITE	Prompt: !,BDGDATE,?(80-$L(X)\2),X,?71,"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: !,X,!,$$REPEAT^XLFSTR("=",80) Line Location: HDG+10
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+3

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

Name	Line Occurrences (* Changed, ! Killed)
^TMP("BDGILD6"	INIT+1!, INIT+5, INIT+6*, PRINT+4, PRINT+6, EXIT+1!

Name	Field # of Occurrence
>> BDGBD	HDR+5, HDG+5
>> BDGDATE	HDG+4
>> BDGED	HDR+5, HDG+5
BDGPG	PRINT+1~, HDG+1*, HDG+4
>> BDGTIME	HDG+6
>> BDGTYP	HDR+8, HDG+8
>> BDGUSR	HDG+2
D	PAD~, PAD+2
DUZ(2	HDR+3, HDG+3
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+5
IOST	EN+1
L	PAD~, PAD+2
LINE	PRINT+1~, PRINT+4*, PRINT+6
N	SP~, SP+1
>> VALMCAP	HDR+8*
VALMCNT	EN+2~, INIT+2, INIT+6
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+4*
>> VALMHDR(3	HDR+6*
X	HDR+1~, HDR+3, HDR+4, HDR+5, HDR+6, HDG+3, HDG+4, HDG+5, HDG+6, HDG+8* , HDG+9, HDG+10, HELP+1