Routine: BDMVRL5

Package	Total	Call Graph
Diabetes Registry	5	(DIC,DIE,DIK,DIR,FILE)^BDMFDIC (DMLAB,REG)^BDMFUTIL NEWPAT^BDMVRL2 PAT^BDMVRL4 RETURN^BDMVU
Registration	1	CLEAR^VALM1
VA Fileman	1	^DIK

Package	Total	Caller Graph
Diabetes Registry	3	BDMVRL BDMVRL2 BDMVRL4

Entry Points

Name	Comments	DBIA/ICR reference
DXUPD	;EP;UPDATE PATIENT'S DIABETIC DIAGNOSIS
FS
DOB	;DATE OF BIRTH
AGE	;PATIENT AGE
REGPAT	;REGISTER AND PATIENT VARIABLES
PAUSE	;EP; -- end of action pause
NOREG	;EP;NO DIABETES REGISTER ON THE SYSTEM
INA(DFN,ACMRPDA)	;EP - check to see if patient is inactive
DX	;DIABETIC DIAGNOSES
RES(DFN)	;EP;CURRENT RESIDENCE
NR1	;EP;CREATE NEW IHS DIABETES REGISTER
PP	;EP;PRIMARY CARE PROVIDER
NEWCOMP	;IHS DIABETES REGISTER COMPLICATIONS
NEWREG	;CREATE IHS DIABETES REGISTER
DD	;ONSET DATE
NEWPAT	;EP;CREATE ENTRY FOR NEW REGISTER PATIENT
NEWHS	;EP;NEW HEALTH SUMMARIES FOR DMS
COMP	;PATIENT'S COMPLICATIONS
NEWDIAG	;IHS DIABETES REGISTER DIAGNOSES
GETPAT	;EP; -- ask user to select patient
GRD	;EP;PATIENT REGISTER DATA
HRN	;HRN
15	;PAD TO 15 CHARACTERS
30	;PAD TO 30 CHARACTERS
LAB
CONTACT	;CLIENT CONTACT INFO
GETHSTYP	;EP; -- ask user for health summary type

External References

Name	Field # of Occurrence
DIC^BDMFDIC	GETPAT+5, GETHSTYP+9
DIE^BDMFDIC	INA+8, DXUPD+20, PP+14, PP+19, CONTACT+10
DIK^BDMFDIC	DX+23
DIR^BDMFDIC	NOREG+7
FILE^BDMFDIC	DXUPD+25, NEWREG+5, NEWDIAG+8, NEWDIAG+16, NEWCOMP+10, NEWCOMP+18, NEWHS+9, LAB+13, FS+13, FS+28
DMLAB^BDMFUTIL	LAB+15
REG^BDMFUTIL	REGPAT+1
NEWPAT^BDMVRL2	NEWPAT+1
PAT^BDMVRL4	REGPAT+5
RETURN^BDMVU	PAUSE+1
^DIK	DXUPD+6
CLEAR^VALM1	NOREG+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETHSTYP+8
Function Call: WRITE	Prompt: !!,"There is no IHS DIABETES REGISTER on this system." Line Location: NOREG+2
Function Call: WRITE	Prompt: ! Line Location: NOREG+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACM(41 - [#9002241]	Classic Fileman Calls
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls
^ACM(42.1 - [#9002242.1]	Classic Fileman Calls
^ACM(44 - [#9002244]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	REGPAT+3, GRD+3, GRD+4, GRD+5, PP+8, PP+15, CONTACT+1
^ACM(41.1 - [#9002241.1]	NEWREG+2, NEWCOMP+1
^ACM(42 - [#9002242]	COMP+4, COMP+5, COMP+11
^ACM(42.1 - [#9002242.1]	COMP+8, NEWCOMP+4, NEWCOMP+5, NEWCOMP+15*
^ACM(44 - [#9002244]	DX+5, DX+6, DX+15, DD+2
^ACM(44.1 - [#9002244.1]	DXUPD+10, DXUPD+11, DX+9, NEWDIAG+2, NEWDIAG+3, NEWDIAG+13*
^APCCCTRL - [#9001000]	GETHSTYP+3
^APCHSCMP("B"	LAB, FS
^APCHSCTL - [#9001015]	LAB+4, LAB+5, LAB+7, FS+4, FS+5, FS+7, FS+19, FS+20, FS+23*
^APCHSCTL("B"	NEWHS+4
^APCHSFLC("B"	FS+15
^AUPNPAT - [#9000001]	INA+3, INA+4, GRD+33, HRN+1, RES+2, RES+3, RES+4, RES+5, PP+4, PP+5
^AUTTCOM("B"	RES+5
^DD("DD"	GRD+46, GRD+50, GRD+54, GRD+58, GRD+62, GRD+66, DD+3, COMP+12
^DD(9000001	GRD+34, PP+2
^DD(9002241	GRD+11, GRD+15, GRD+42
^DIC(16 - [#16]	GRD+34
^DIC(4 - [#4]	GRD+27
^DIC(5 - [#5]	DOB+7, CONTACT+5
^DPT - [#2]	GRD+7, DOB+3, DOB+6, DOB+9, AGE+3, CONTACT+4, CONTACT+6
^VA(200 - [#200]	GRD+19, GRD+23, GRD+34, GRD+38, PP+6, PP+10

Label References

Name	Line Occurrences
15	GRD+47, GRD+51, GRD+55, GRD+59, GRD+63, GRD+67
30	GRD+8, GRD+12, GRD+16, GRD+20, GRD+24, GRD+28, GRD+31, GRD+35, GRD+39, GRD+43
AGE	GETPAT+13, GRD+70
COMP	GETPAT+17, GRD+74
DD	DX+11, DX+16
DOB	GETPAT+12, GRD+69
DX	GETPAT+16, GRD+73
FS	NEWHS+13
HRN	GETPAT+14, GRD+71
LAB	NEWHS+12
NEWCOMP	NR1+3
NEWDIAG	NR1+2
NEWHS	NR1+4
NEWPAT	REGPAT+4
NEWREG	NR1+1
REGPAT	GETPAT+10
RES	GETPAT+15, GRD+72

Naked Globals

Name	Field # of Occurrence
^(	NEWREG+2
^(0	GETHSTYP+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACM0	COMP+5*, COMP+6, COMP+7, COMP+8
ACMRPDA	INA~, INA+2, INA+5
>> APCHSTYP	GETHSTYP+11*
>> AUPNLK("INAC"	GETPAT+4*, GETPAT+6!, GETPAT+7!
>> BDM	RES+6*
>> BDM("ADDRESS"	DOB+8*
>> BDM("AGE"	AGE+2!, AGE+7*
>> BDM("CASE MAN	AGER" , GRD+21*
>> BDM("CASE PRI	ORITY" , GRD+17*
>> BDM("CLIENT C	ONTACT" , GRD+32*
>> BDM("COMP"	COMP+1!, COMP+10, COMP+13
>> BDM("DATE ACT	IVATED" , GRD+48*
>> BDM("DATE INA	CTIVATED" , GRD+52*
>> BDM("DATE LAS	T EDITED" , GRD+60*
>> BDM("DOB"	DOB+2!, DOB+4*
>> BDM("DX"	DXUPD+3, DXUPD+7, DXUPD+8, DXUPD+15, DXUPD+16, DX+1!, DX+12, DX+19, DX+20, DX+24!
>> BDM("HRN"	HRN+1*
>> BDM("INITIAL	ENTRY DATE" , GRD+56*
>> BDM("LAST REV	IEW DATE" , GRD+64*
>> BDM("NEXT REV	IEW DATE" , GRD+68*
>> BDM("ONSET DI	SPLAY" , DX+12, DD+4*
>> BDM("ONSET"	DXUPD+19, DXUPD+24
>> BDM("PATIENT"	GRD+9*
>> BDM("PHONE"	DOB+9*
>> BDM("PRIMARY	PROVIDER" , GRD+36*
>> BDM("PROVIDER	CATEGORY" , GRD+44*
>> BDM("PUBLIC H	LTH NURSE" , GRD+25*
>> BDM("REGISTER	PROVIDER" , GRD+40*
>> BDM("RES"	RES+6*
>> BDM("STATUS"	GRD+13*
>> BDM("WHERE FO	LLOWED" , GRD+29*
>> BDMCH	GRD+5*
BDMDA	NEWHS+1~, NEWHS+3, NEWHS+4, NEWHS+5, NEWHS+10*, NEWHS+11, LAB+4, LAB+5, LAB+7, LAB+8 , FS+4, FS+5, FS+7, FS+8, FS+19, FS+20, FS+22
BDMDX	DXUPD+9!
>> BDMEXT	DXUPD+2, DXUPD+7, DXUPD+10, DXUPD+16, DX+3, DX+13
>> BDMEXTIN	DXUPD+2, DX+3, DX+13
>> BDMPAT0	GETPAT+9*
BDMPP	PP+3~, PP+6, PP+7, PP+8, PP+9, PP+10, PP+18
BDMPP6	PP+3~, PP+5, PP+6, PP+10, PP+13
BDMQUIT	GETPAT+1!, GETPAT+6, GETPAT+11, GETPAT+18!, REGPAT+2, NOREG+8, LAB+2!, LAB+5, LAB+6!, FS+2! , FS+5, FS+6!, FS+17!, FS+20*, FS+21!
>> BDMRDA	REGPAT+3, DXUPD+24, DX+8, COMP+7, NEWREG+2, NEWREG+6, NEWDIAG+3, NEWDIAG+10, NEWCOMP+1*, NEWCOMP+2 , NEWCOMP+5, NEWCOMP+12
>> BDMREG0	GRD+3*, GRD+6
>> BDMREGDT	GRD+4*, GRD+10, GRD+14, GRD+18, GRD+22, GRD+26, GRD+30, GRD+37, GRD+41, GRD+45 , GRD+49, GRD+53, GRD+57, GRD+61, GRD+65
>> BDMREGNM	NEWREG+1, NEWCOMP+1
>> BDMRPDA	REGPAT+3*, REGPAT+4, REGPAT+5, DXUPD+24, GRD+1, GRD+3, GRD+4, GRD+5, PP+8, PP+15 , PP+16, CONTACT+1, CONTACT+7
BDMX	DXUPD+10, DXUPD+11, DXUPD+12, DXUPD+19, DXUPD+21, DX+18, DX+19, DX+20, DX+24, NEWDIAG+1* , NEWDIAG+2, NEWDIAG+5, NEWCOMP+3, NEWCOMP+4, NEWCOMP+7, NEWHS+1~, NEWHS+2, NEWHS+4, NEWHS+6, NEWHS+12 , NEWHS+13, LAB+15
>> BDMY	NEWDIAG+2, NEWDIAG+3, NEWDIAG+4, NEWDIAG+9, NEWDIAG+13, NEWCOMP+4, NEWCOMP+5, NEWCOMP+6, NEWCOMP+11
>> DA	INA+5, DXUPD+3, DXUPD+4, DXUPD+13, DXUPD+16, DXUPD+17, DX+20, DX+21, PP+11, PP+16* , CONTACT+7, NEWDIAG+11, NEWDIAG+14, NEWCOMP+13, NEWCOMP+15, NEWCOMP+16, LAB+8, LAB+9, FS+8, FS+9 , FS+22, FS+23, FS+24
>> DA(1	NEWDIAG+12, NEWCOMP+14, LAB+8, FS+8, FS+22*
DD	GETHSTYP+1~
DFN	GETPAT+1!, GETPAT+8, GETPAT+15, REGPAT+3, REGPAT+5, INA~, INA+3, INA+4, DXUPD+24, GRD+6 , GRD+7, GRD+33, GRD+72, DOB+3, DOB+6, DOB+9, AGE+3, HRN+1, RES~, RES+2 , RES+3, RES+4, RES+5, DX+5, DX+15, COMP+4, PP+4, PP+5, PP+11, CONTACT+4 , CONTACT+6
DIC	GETPAT+1!, GETPAT+2, GETHSTYP+1~, GETHSTYP+5, DXUPD+22, NEWREG+3, NEWDIAG+6, NEWDIAG+14, NEWCOMP+8, NEWCOMP+16 , NEWHS+7, LAB+9, FS+9, FS+24
DIC("B"	GETHSTYP+7*
DIC("DR"	DXUPD+24, LAB+11, FS+11, FS+26
DIC(0	GETPAT+3, GETHSTYP+6, DXUPD+23, NEWREG+4, NEWDIAG+7, NEWDIAG+15, NEWCOMP+9, NEWCOMP+17, NEWHS+8, LAB+10 , FS+10, FS+25
>> DIE	INA+6, DXUPD+18, PP+12, PP+17, CONTACT+8*
>> DIK	DXUPD+5, DX+22
>> DIR("A"	NOREG+4*
>> DIR("B"	NOREG+5*
>> DIR(0	NOREG+3*
DR	GETHSTYP+1~, INA+7, DXUPD+19, PP+13, PP+18, CONTACT+9*
DT	AGE+4, AGE+6
DUZ(2	GETHSTYP+3, INA+3, INA+4, HRN+1
>> J	DOB+7, CONTACT+5
U	GETHSTYP+3, INA+3, INA+4, DXUPD+3, DXUPD+7, DXUPD+8, DXUPD+10, DXUPD+11, DXUPD+16, GRD+6 , GRD+7, GRD+10, GRD+11, GRD+14, GRD+15, GRD+18, GRD+19, GRD+22, GRD+23, GRD+26 , GRD+27, GRD+30, GRD+33, GRD+34, GRD+37, GRD+38, GRD+41, GRD+42, GRD+45, GRD+49 , GRD+53, GRD+57, GRD+61, GRD+65, DOB+3, DOB+7, DOB+9, AGE+3, HRN+1, RES+3 , RES+4, RES+5, DX+8, DX+12, DX+13, DX+20, DD+2, COMP+7, COMP+10, COMP+11 , COMP+13, PP+4, PP+5, PP+8, PP+10, PP+15, CONTACT+1, CONTACT+5, CONTACT+6, NEWDIAG+13 , NEWCOMP+15, LAB+5, LAB+7, FS+5, FS+7, FS+20, FS+23
X	GETHSTYP+1~, GETHSTYP+2, GETHSTYP+3, GETHSTYP+4, GETHSTYP+7, DXUPD+1~, DXUPD+14, DXUPD+15, DXUPD+16, DXUPD+21 , GRD+2~, GRD+7, GRD+9, GRD+10, GRD+11, GRD+13, GRD+14, GRD+15, GRD+17, GRD+18 , GRD+19, GRD+21, GRD+22, GRD+23, GRD+25, GRD+26, GRD+27, GRD+29, GRD+30, GRD+32 , GRD+33, GRD+34, GRD+36, GRD+37, GRD+38, GRD+40, GRD+41, GRD+42, GRD+44, DOB+1~ , DOB+6, DOB+7, AGE+1~, AGE+3, AGE+5, AGE+6, RES+1~, RES+2, RES+3, RES+4* , RES+5, RES+6, DX+2~, DX+4, DX+5, DX+6, DX+12, DX+15, DX+16, DD+2 , 30+1, COMP+2~, COMP+3, COMP+4, COMP+5, COMP+11, CONTACT+2~, CONTACT+4, CONTACT+5, CONTACT+6* , CONTACT+9, NEWREG+1, NEWREG+2, NEWDIAG+5, NEWDIAG+10, NEWCOMP+7, NEWCOMP+12, NEWHS+6, LAB, LAB+1 , LAB+5, LAB+11, LAB+12, FS, FS+1, FS+5, FS+11, FS+12, FS+15, FS+16 , FS+20, FS+26, FS+27
Y	GETPAT+6, GETPAT+8, GETHSTYP+10, GETHSTYP+11, DXUPD+1~, DXUPD+8, DXUPD+9, GRD+2~, GRD+45, GRD+48 , GRD+49, GRD+52, GRD+53, GRD+56, GRD+57, GRD+60, GRD+61, GRD+64, GRD+65, GRD+68 , DOB+1~, DOB+3, DOB+4, DOB+7, AGE+1~, AGE+4, AGE+5, DX+2~, DX+6, DX+7 , DX+8, DX+9, DX+12, DX+13, DD+1~, DD+2, DD+3, DD+4, 15+1, COMP+2~ , COMP+8, COMP+10, COMP+11, COMP+13, CONTACT+2~, CONTACT+5, NOREG+8, NEWREG+6, NEWDIAG+9, NEWDIAG+11 , NEWDIAG+12, NEWCOMP+11, NEWCOMP+13, NEWCOMP+14, NEWHS+10, LAB+3, LAB+4, LAB+5, LAB+14, FS+3 , FS+4, FS+5, FS+14, FS+18, FS+19*, FS+20
Y(0	GETPAT+9
Z	DXUPD+1~, GRD+2~, DOB+1~, DOB+5, DOB+7, DOB+8, AGE+1~, AGE+5, AGE+6, AGE+7 , DX+2~, DX+4, DX+10, DX+12, DX+13, DX+14, COMP+2~, COMP+3, COMP+9, COMP+10 , COMP+13, CONTACT+2~, CONTACT+3, CONTACT+5*, CONTACT+9

Customize PDF page

Package: Diabetes Registry

Routine: BDMVRL5

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: