Routine: BDGSYS7

Information

BDGSYS7 ; IHS/ANMC/LJF - TRANSFER FACILITY SETUP ; [ 07/31/2003 1:14 PM ]

Source file <BDGSYS7.m>

Package	Total	Call Graph
Registration	4	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2
VA Fileman	3	^DIC ^DIE $$GET1^DIQ
Kernel	2	$$REPEAT^XLFSTR DISP^XQORM1

Name	Comments	DBIA/ICR reference
RESET	; -- update partition for return to list manager
EN	; -- main entry point for BDG SYS TRANSFER FAC
HELP	; -- help code
EDIT	;EP; called by Edit Entry protocol
SP(N)	; -- SUBRTN to pad N number of spaces
EXPND	; -- expand code
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
INIT	; -- init variables and list array
EXIT	; -- exit code
SET(DATA,NUM,N,LINE)	; put display line into array
ADD	;EP; called by Add Entry protocol
HDR	; -- header code

FileNo	Call Tags
^DG(40.8 - [#40.8]	GET1^DIQ
^AUTTTFAC - [#9999999.91]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUTTTFAC("B"	INIT+5, INIT+7
^TMP("BDGSYS7"	INIT+3!, INIT+14, SET+2, SET+3, EXIT+1!, EDIT+6, EDIT+7, EDIT+8, EDIT+9

Name	Field # of Occurrence
>> BDGDIV	HDR+2
BDGN	EDIT+1~, EDIT+9, EDIT+11, EDIT+12, ADD+5, ADD+6
COUNT	INIT+1~, INIT+8*, INIT+9, INIT+12
D	PAD~, PAD+2
DA	EDIT+1~, EDIT+12, ADD+1~, ADD+6
DATA	SET~, SET+2
DDSFILE	EDIT+1~, ADD+1~
DIC	ADD+1~, ADD+3*
DIC(0	ADD+3*
>> DIE	EDIT+12, ADD+6
DLAYGO	ADD+1~, ADD+3*
DR	EDIT+1~, EDIT+12, ADD+1~, ADD+6
IEN	INIT+1~, INIT+6, INIT+7, INIT+9, INIT+10, INIT+11, INIT+12
L	PAD~, PAD+2
LINE	INIT+1~, INIT+9, INIT+10, INIT+11, INIT+12, SET~, SET+1, SET+2, SET+3
N	SET~, SET+3, SP~, SP+1
NAME	INIT+1~, INIT+4, INIT+5, INIT+7
NUM	SET~, SET+3
>> VALMBCK	RESET+1, RESET+2
VALMCNT	EN+1~, INIT+2*, INIT+12, INIT+15
>> VALMHDR(1	HDR+3*
>> VALMQUIT	RESET+1
>> VALMY	EDIT+4
>> VALMY(	EDIT+5
X	HDR+1~, HDR+2, HDR+3, HELP+1, EDIT+1~, EDIT+5*, EDIT+9
>> XQORNOD(0	EDIT+3
Y	INIT+1~, EDIT+1~, EDIT+6*, EDIT+7, EDIT+8, EDIT+9, ADD+1~, ADD+3, ADD+5
Z	EDIT+1~, EDIT+7*, EDIT+8, EDIT+9