Routine: BWCBE

Information

BWCBE ;IHS/ANMC/MWR - UTIL: MOSTLY PATIENT DATA;15-Feb-2003 21:49;PLS

Source file <BWCBE.m>

Package	Total	Call Graph
Women's Health	4	DIE^BWFMAN AUTOADD^BWPATE NEW2^BWPROC $$NORMAL^BWUTL4
IHS VA Utilities	2	^XBKVAR EN^XBNEW
Patient Care Component Reports	1	$$PRIMPROV^APCLV
VA Fileman	1	^DIR

Name	Comments	DBIA/ICR reference
PATIENT	;---> If Patient isn't in Women's Health Database, add her.
EP1	;EP - called from xbnew
EP(PATDFN,VSIT,VFIEN)	;EP - called from template (APCD CBE (ADD))
ADD(BWERR,BWDFN,BWPCCDT,BWVST,BWDX,BWPROV,BWVFDA)	;EP
PROC	;---> Create CBE Procedure in BW PROCEDURE File #9002086.1.
STORE	;---> STORE VISIT AND V FILE IEN'S IN WH PROCEDURE FILE #9002086.1.

Name	Line Occurrences
Function Call: WRITE	Prompt: "I got an error" Line Location: EP1+7
Routine Call	DIR Line Location: EP1+4

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	EP1+6
^BWP - [#9002086]	PATIENT+1
^BWPCD - [#9002086.1]	PROC+20

Name	Line Occurrences
ADD	EP1+6

Name	Field # of Occurrence
>> APCDTRES	EP+5, EP1+2, PROC+21*
BWDA	PROC+4~, PROC+11, PROC+20, STORE+1, STORE+4
BWDFN	ADD~, ADD+11, PATIENT+1, PATIENT+2, PROC+5, PROC+11
BWDR	PROC+4~, PROC+5, PROC+6, PROC+7, PROC+8, PROC+9*, PROC+11
BWDX	ADD~, PROC+6
BWERR	ADD~, ADD+12, ADD+15, PATIENT+2, PATIENT+3, PATIENT+4, PROC+11, PROC+12, PROC+13
>> BWLOC	PROC+7
BWPCCDT	ADD~, PROC+5, PROC+8, PROC+11
>> BWPN	EP1+4*
>> BWPOP	STORE+4
BWPROV	ADD~, PROC+6
>> BWSTAT	PROC+8
BWVFDA	ADD~, STORE+3
BWVST	ADD~, STORE+3
DA	EP1+4!
DIR	EP1+4!
DIR("A"	EP1+4*
DIR(0	EP1+4*
DR	STORE+2~, STORE+3*, STORE+4
DT	PROC+9
DUZ	PROC+9
DUZ(2	PATIENT+2, PROC+7
ERR	EP1+1~, EP1+2*, EP1+6, EP1+7
PATDFN	EP~, EP+1, EP1+6
RESULT	EP1+1~, EP1+5*, EP1+6
U	EP1+6, PROC+20
VFIEN	EP~, EP+3*, EP1+6
VSIT	EP~, EP+2, EP1+6
X	PROC+20~*, PROC+21
>> Y	EP1+5