Routine: BDGEAN

Call Graph Total: 11

Package	Total	Call Graph
Registration	4	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2
Kernel	3	^%ZISC $$REPEAT^XLFSTR DISP^XQORM1
IHS Changes To ADT	2	($$BROWSE,$$CONF,$$NUMDATE,INIT,PAUSE,PRTKL,ZIS)^BDGF $$HRCN^BDGF2
VA Fileman	2	^DIE $$GET1^DIQ

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for BDG IPL W/ ACCT NO
HELP	; -- help code
EDIT	;EP; select patient from list and edit account #
SP(N)	; -- SUBRTN to pad N number of spaces
EXPND	; -- expand code
HDG	; heading when printing to paper
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,CNT,IEN,NUM)	; put display line into array
PRINT	;
HDR	; -- header code

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"NO visit attached to admission; cannot edit" Line Location: EDIT+14
Function Call: WRITE	Prompt: !,$$GET1^DIQ(9000010,VST,.05),?40,$$GET1^DIQ(9000010,VST,.01),! Line Location: EDIT+16
Function Call: WRITE	Prompt: !,^TMP("BDGEAN",$J,BDGX,0) Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !,BDGTIME,?16,$$CONF^BDGF,?76,BDGUSR Line Location: HDG+2
Function Call: WRITE	Prompt: !,BDGDATE,?25,"Inpatients with Account Numbers",?71,"Page: ",BDGPG Line Location: HDG+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+4
Function Call: WRITE	Prompt: !?5,"Patient Name",?32,"Chart #",?41,"Admission Date" Line Location: HDG+5
Function Call: WRITE	Prompt: ?65,"Account #",!,$$REPEAT^XLFSTR("=",80) Line Location: HDG+6
Routine Call	VALM Line Location: EN+4
Routine Call	DIE Line Location: EDIT+17

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ
^AUPNVSIT - [#9000010]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT("CN"	INIT+5, INIT+11, INIT+12
^TMP("BDGEAN"	INIT+3!, INIT+21, SET+2, SET+3, EDIT+6, EDIT+7, EDIT+8, EDIT+9, PRINT+3, PRINT+5

Name	Field # of Occurrence
ADM	INIT+1~, INIT+12*, INIT+13, INIT+16, INIT+18
>> BDGDATE	HDG+3
BDGN	EDIT+1~, EDIT+9*, EDIT+11, EDIT+13
BDGPG	PRINT+1~, HDG+1*, HDG+3
>> BDGTIME	HDG+2
>> BDGUSR	HDG+2
>> BDGX	PRINT+3*, PRINT+5
CNT	SET~, SET+3
COUNT	INIT+1~, INIT+2, INIT+7, INIT+9, INIT+14, INIT+18, INIT+19
D	PAD~, PAD+2
DA	EDIT+15~, EDIT+17*
DATA	SET~, SET+2
DFN	INIT+1~, INIT+11*, INIT+12, INIT+14, INIT+15
DIE	EDIT+15~, EDIT+17*
DR	EDIT+15~, EDIT+17*
DUZ(2	INIT+15
FIRST	INIT+1~, INIT+2, INIT+7, INIT+8
IEN	SET~, SET+3
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+4
IOST	EN+1
L	PAD~, PAD+2
LINE	INIT+1~, INIT+14, INIT+15, INIT+16, INIT+17, INIT+18
N	SP~, SP+1
NUM	SET~, SET+1*, SET+2, SET+3
>> VALMBCK	EDIT+11, EDIT+14, EDIT+18*
VALMCNT	EN+2~, INIT+2*, INIT+7, INIT+9, INIT+18, INIT+21
>> VALMY	EDIT+4
>> VALMY(	EDIT+5
VST	INIT+1~, INIT+13, INIT+17, EDIT+13~, EDIT+14, EDIT+16, EDIT+17
WARD	INIT+1~, INIT+5*, INIT+9, INIT+11, INIT+12
X	HELP+1, EDIT+1~, EDIT+5, EDIT+9
>> XQORNOD(0	EDIT+3
Y	EDIT+1~, EDIT+6*, EDIT+7, EDIT+8, EDIT+9
Z	EDIT+1~, EDIT+7*, EDIT+8, EDIT+9

Information