Routine: BDGICSET

Package	Total	Call Graph
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
VA Fileman	3	$$GET1^DID ^DIE $$GET1^DIQ
Kernel	2	$$REPEAT^XLFSTR DISP^XQORM1
IHS Changes To Scheduling	1	$$DIV^BSDU

Entry Points

Name	Comments	DBIA/ICR reference
HELP	; -- help code
NONE	; if none found
EN	; -- main entry point for BDG IC SETUP ICE
HDR	; -- header code
EDIT	;EP; called by BDG IS SETUP EDIT 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
LABEL(FIELD)	; returns field's title or label
EXIT	; -- exit code
SET(DATA,COUNT)	; put data into display line
STAFF	;EP; called by BDG IC MED STAFF protocol

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^BDGPAR - [#9009020.1]	Classic Fileman Calls, GET1^DID, GET1^DIQ
9009020.13	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BDGPAR - [#9009020.1]	INIT+15
^BDGPAR("B"	INIT+3, EDIT+3, STAFF+2
^TMP("BDGICSET"	INIT+2!, NONE+1, NONE+3, SET+2, EXIT+1!

Name	Field # of Occurrence
CLASS	INIT+14~, INIT+17*, INIT+19
COUNT	SET~, SET+1*, SET+2
D	PAD~, PAD+2
DA	EDIT+2~, EDIT+3, EDIT+4, STAFF+2
DATA	SET~, SET+2
DIE	EDIT+2~, EDIT+4, STAFF+3
DR	EDIT+2~, EDIT+4, STAFF+3
DUZ(2	HDR+1
FAC	INIT+1~, INIT+3*, INIT+6, INIT+15, INIT+16
FIELD	INIT+1~, INIT+5*, INIT+6, INIT+8, INIT+9, LABEL~, LABEL+2, LABEL+3
IEN	INIT+14~, INIT+15*, INIT+16
INACTIVE	INIT+14~, INIT+18*, INIT+19
L	PAD~, PAD+2
LINE	INIT+1~, INIT+6*, INIT+7
N	SP~, SP+1
>> PRV	INIT+16*, INIT+17, INIT+18, INIT+19
>> VALMBCK	EDIT+5, STAFF+4
VALMCNT	EN+1~, INIT+2, INIT+7, INIT+8, INIT+9, INIT+12, INIT+13, INIT+19, NONE+2
>> VALMHDR(1	HDR+2*
X	HDR+1~, HDR+2, LABEL+1~, LABEL+2, LABEL+3, LABEL+4, HELP+1