Routine: BGP6DCHW

Package	Total	Call Graph
Kernel	2	$$FMTE^XLFDT $$STRIP^XLFSTR
IHS Patient	1	($$AGE,$$COMMRES,$$TRIBE)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Patient Care Component Reports	1	$$START1^APCLDF
VA Fileman	1	$$GET1^DIQ

Package

Total

Call Graph

$$FMTE^XLFDT $$STRIP^XLFSTR

($$AGE,$$COMMRES,$$TRIBE)^AUPNPAT

$$VAL^XBDIQ1

$$START1^APCLDF

$$GET1^DIQ

Name	Comments	DBIA/ICR reference
SET	;
STATE(P)	;
UIDV(VISIT)	;EP - generate unique ID for visit
LZERO(V,L)	;EP - left zero fill
UID(BGPA)	;PEP-Given DFN return unique patient record id. ; BGPA can be DFN, but is not required if DFN or DA exists.
GEN	;EP
DATE(D)	;EP
RZERO(V,L)	;ep right zero fill

FileNo	Call Tags
^AUTTLOC - [#9999999.06]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMSR - [#9000010.01]	GEN+12, GEN+15, GEN+16
^AUPNVMSR("AD"	GEN+10, GEN+11
^AUPNVSIT - [#9000010]	GEN+7, GEN+8, GEN+9, SET+16, SET+17
^AUPNVSIT("AC"	GEN+2
^AUTTLOC - [#9999999.06]	SET+5, SET+6
^AUTTMSR - [#9999999.07]	GEN+14
^AUTTSITE(1	SET+6, UID+13, UIDV+3
^BGPGPDCS - [#90374.03]	SET+22*
^DIC(5 - [#5]	STATE+4, STATE+6
^DPT - [#2]	SET+11, SET+13
^TMP($J	GEN+3!, GEN+5, GEN+6

Name	Field # of Occurrence
%	LZERO+1~, LZERO+2, RZERO+1~, RZERO+2
>> A	GEN+4*
>> B	GEN+4*
BGPA	UID~, UID+13
>> BGPACTCL	GEN+1
>> BGPBBD	GEN+4, SET+8
>> BGPCHWC	SET+1*, SET+22
>> BGPED	GEN+4, GEN+18, SET+9
>> BGPHTV	SET+2*, SET+18, SET+19
>> BGPRPT	SET+22
>> BGPWTV	SET+2*, SET+20, SET+21
>> C	STATE+1*, STATE+2, STATE+3
D	DATE~, DATE+1, DATE+2
>> DFN	GEN+2, GEN+4, GEN+18, SET+10, SET+11, SET+12, SET+13, SET+14
DT	SET+7
DUZ(2	SET+4, SET+5
>> E	GEN+4*
>> G	GEN+6*
>> H	GEN+11, GEN+16, GEN+17, GEN+18, SET+2
I	SET+18, SET+19, SET+20, SET+21, LZERO+1~, LZERO+2, RZERO+1~, RZERO+2
L	LZERO~, LZERO+2, RZERO~, RZERO+2
>> M	GEN+11*, GEN+12, GEN+15, GEN+16
P	STATE~, STATE+1
>> R	SET+3, SET+4, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11, SET+12 , SET+13, SET+14, SET+15, SET+16, SET+17, SET+19, SET+21*, SET+22
>> S	STATE+3, STATE+4, STATE+5, STATE+6
>> T	GEN+12, GEN+13, GEN+14, GEN+15, GEN+16
U	GEN+6, GEN+8, GEN+9, GEN+12, GEN+14, GEN+15, GEN+16, SET+4, SET+5, SET+6 , SET+7, SET+8, SET+9, SET+10, SET+11, SET+12, SET+13, SET+14, SET+15, SET+16 , SET+17, SET+19, SET+21, UID+13, UIDV+3, STATE+6
V	GEN+6, GEN+7, GEN+8, GEN+9, GEN+10, GEN+11, SET+15, SET+16, SET+17, LZERO~ , LZERO+2, LZERO+3, RZERO~, RZERO+2*, RZERO+3
VISIT	UIDV~, UIDV+1, UIDV+4
>> W	GEN+11, GEN+15, GEN+17, GEN+18, SET+2
X	GEN+6, UIDV+2~, UIDV+3, UIDV+4
>> Z	LZERO+2, RZERO+2

Information