Routine: BDGEPI

Information

BDGEPI ; IHS/ANMC/LJF - EXTENDED PATIENT INQUIRY ;

Source file <BDGEPI.m>

Package	Total	Call Graph
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	2	$$CONF^BDGF ($$HRCN,$$NAMEPRT,$$STATUS)^BDGF2
Kernel	2	$$REPEAT^XLFSTR DISP^XQORM1
IHS VA Utilities	1	ENP^XBDIQ1
VA Fileman	1	IX^DIC

Package	Total	Caller Graph
IHS Changes To ADT	2	BDGPI BDGPV1
Registration	1	DGPMV20

Name	Comments	DBIA/ICR reference
HELP	; -- help code
EN	;EP; -- main entry point for BDG EXTENDED PI ; assumes DGPMCA is set to corresponding admission ; and DFN is set to patient internal entry number
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
ROOM(RBED)	; return room and bed-display mode
EXPND	; -- expand code
INIT	; -- init variables and list array
EXIT	; -- exit code
ASK	;EP; when admission ien not known but patient is known
SET(LINE,NUMBER)	; put display line into array
MOVEMT(X1,X2)	; return type of movement phrase

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	INIT+8, INIT+49, INIT+51
^DGPM("CA"	INIT+5
^TMP("BDGEPI"	INIT+2!, SET+2*, EXIT+1!

Name	Line Occurrences
$$MOVEMT	INIT+24
$$PAD	INIT+24, INIT+25, INIT+26, INIT+27, INIT+28, SP+1
$$ROOM	INIT+25
$$SP	HDR+2, HDR+4, HDR+5, INIT+33, INIT+39, INIT+42, INIT+45, INIT+46, INIT+50
EN	ASK+8
SET	INIT+29, INIT+35, INIT+41, INIT+42, INIT+45, INIT+46, INIT+52, INIT+54

Name	Field # of Occurrence
>> ARRAY	INIT+21*, INIT+26, INIT+27, INIT+28
BDG	INIT+1~, INIT+19!
BDG(	INIT+24, INIT+25, INIT+32, INIT+33, INIT+34, INIT+38, INIT+39, INIT+40, INIT+42, INIT+45 , INIT+46
BDG2	INIT+1~, INIT+20!
BDGX	INIT+1~
BDGX(	INIT+9, INIT+11, INIT+14, INIT+15, INIT+16
D	ASK+4*, ASK+7!, PAD~, PAD+2
DATE	INIT+1~, INIT+8, INIT+9, INIT+11, INIT+14, INIT+15, INIT+16
>> DFN	ASK+4, HDR+3, HDR+5
DGPMCA	ASK+1~, ASK+8*, INIT+5
DIC	ASK+1~, ASK+4*
DIC("S"	ASK+5*
DIC("W"	ASK+5*
DIC(0	ASK+4*
DUZ(2	HDR+3
FIRST	INIT+1~, INIT+49, INIT+50
IEN	INIT+1~, INIT+5, INIT+8, INIT+9, INIT+11, INIT+15, INIT+16, INIT+19
IEN2	INIT+1~, INIT+16*, INIT+20, INIT+21, INIT+49, INIT+51
L	PAD~, PAD+2
LINE	INIT+1~, INIT+24, INIT+25, INIT+26, INIT+27, INIT+28, INIT+29, INIT+33, INIT+34, INIT+35 , INIT+39, INIT+40, INIT+41, INIT+50, INIT+51*, INIT+52, SET~, SET+2
N	SP~, SP+1
NUMBER	SET~, SET+1*, SET+2
RBED	ROOM~, ROOM+1, ROOM+2
VALMCNT	EN+3~, INIT+2*, INIT+29, INIT+35, INIT+41, INIT+42, INIT+45, INIT+46, INIT+52, INIT+54
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+4*
>> VALMHDR(3	HDR+5*
X	ASK+1~, ASK+4, HDR+1~, HDR+3, HDR+4, HDR+5, INIT+1~, INIT+11, INIT+49, INIT+51 , HELP+1
X1	MOVEMT~, MOVEMT+1
X2	MOVEMT~, MOVEMT+1, MOVEMT+2
Y	ASK+1~, ASK+7, ASK+8