Routine: BDMVRL8

Package	Total	Call Graph
Diabetes Registry	6	(DDS,DIC,DIE,DIK,DIR,FILE)^BDMFDIC PAUSE^BDMFMENU REG^BDMFUTIL ($$ICD,$$SNOMED)^BDMUTL VALM^BDMVRL $$VALMSG^BDMVU
VA Fileman	2	IX^DIK ^DIR
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Registration	1	(CLEAR,FULL)^VALM1

Package	Total	Caller Graph
Diabetes Registry	1	BDMGUA

Entry Points

Name	Comments	DBIA/ICR reference
DL	;EP;FOR DIAGNOSIS LIST FUNCTIONS
CADD1	;
HDR	;
CLEDIT	;EP;TO EDIT EXISTING DIAGNOSIS LIST ENTRY
BACK
COMINIT	;EP;INITIALIZE LIST OF COMMENTS
CLIST	;LIST ALL DIAGNOSIS
PAUSE	;
COMEDIT	;EP;TO EDIT COMMENTS
CD1
CDELETE	;EP;TO DELETE DIAGNOSIS FROM PATIENT'S DIAGNOSIS LIST
CLD1
CINIT	;EP;INITIALIZE LIST OF PATIENTS DIAGNOSIS
CLDELETE	;EP;TO DELETE DIAGNOSIS LIST ENTRY
B
CLINIT	;EP;TO INITIALIZE DIAGNOSIS LIST
CL	;EP;FOR DIAGNOSIS LIST FUNCTIONS
CLADD	;EP;TO ADD NEW DIAGNOSIS
Z(X)	;SET TMP NODE
CE1
GETPLDX	;
DIAGLIST	;CREATE DIAGNOSIS LIST ARRAY
CDISP	;EP;DISPLAY AND EDIT DIAGNOSIS
COMDISP	;EP;TO DISPLAY AND EDIT CASE COMMENTS
CSEL	;SELECT DIAGNOSIS
CEDIT	;EP;TO EDIT DIAGNOSIS
CLE1
CADD	;EP;TO ADD DIAGNOSIS

External References

Name	Field # of Occurrence
DDS^BDMFDIC	CE1+3
DIC^BDMFDIC	CLADD+7
DIE^BDMFDIC	COMEDIT+7, CLE1+7
DIK^BDMFDIC	CD1+2, CLD1+5
DIR^BDMFDIC	CADD+9, CSEL+4
FILE^BDMFDIC	CADD1+6, CLADD+14
PAUSE^BDMFMENU	CLIST+7
REG^BDMFUTIL	CDISP+1, CADD+1, CEDIT+1, CDELETE+1, CLDELETE+1, CINIT+1, COMDISP+1, COMEDIT+1, COMINIT+1, CLINIT+1 , CLADD+1, CLEDIT+1, CL+1, DL+1
$$ICD^BDMUTL	GETPLDX+6
$$SNOMED^BDMUTL	GETPLDX+7
VALM^BDMVRL	CDISP+4, COMDISP+4, CL+4, DL+4
$$VALMSG^BDMVU	HDR+1
IX^DIK	CD1+5
^DIR	PAUSE+2
CLEAR^VALM1	COMEDIT+3, CLIST+1
FULL^VALM1	CLE1+6
$$VAL^XBDIQ1	CINIT+21, CINIT+23, CINIT+24, CINIT+25, CINIT+26
$$VALI^XBDIQ1	CINIT+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"ADD Diagnosis for ",$P(BDMPAT0,U) Line Location: CADD+3
Function Call: WRITE	Prompt: ! Line Location: CADD+8
Function Call: WRITE	Prompt: !!,"Patient already has ",$P(^ACM(44.1,X,0),U)," as a diagnosis. Use Edit or Delete to modify this diagnosis" Line Location: CADD1+2
Function Call: WRITE	Prompt: ! Line Location: CSEL+3
Function Call: WRITE	Prompt: !!?5,"NO.",?10,"DIAG" Line Location: CLIST+8
Function Call: WRITE	Prompt: !?5,"---",?10,"--------------------" Line Location: CLIST+9
Function Call: WRITE	Prompt: ! Line Location: CLADD+6
Function Call: WRITE	Prompt: @IOF Line Location: CLE1+0
Function Call: WRITE	Prompt: !,"Edit DIAGNOSIS NAME:" Line Location: CLE1+1
Function Call: WRITE	Prompt: ! Line Location: CLE1+5
Routine Call	DIR Line Location: PAUSE+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACM(41 - [#9002241]	Classic Fileman Calls
^ACM(44 - [#9002244]	Classic Fileman Calls
^ACM(44.1 - [#9002244.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	COMINIT+11, COMINIT+12
^ACM(44 - [#9002244]	CADD1+2, CD1+4, CLD1+1, CINIT+37, CINIT+38, CINIT+49
^ACM(44.1 - [#9002244.1]	CADD1+2, CINIT+42, DIAGLIST+3, DIAGLIST+4, CLADD+13*
^ATXAX - [#9002226]	GETPLDX+6
^ATXAX("B"	GETPLDX+1
^AUPNPROB - [#9000011]	GETPLDX+4, GETPLDX+5, GETPLDX+7
^AUPNPROB("AC"	GETPLDX+3
^AUTTLOC - [#9999999.06]	CINIT+22
^DD("DD"	CINIT+50
^TMP("BDMVR"	CINIT+3!, COMINIT+3!, CLINIT+3!, Z+2*

Label References

Name	Line Occurrences
BACK	CLDELETE+5, CLDELETE+8, COMINIT+16, CLADD+15, CLEDIT+5, CLEDIT+7
CADD1	B
CD1	CDELETE+6
CE1	CADD1+9, CEDIT+6
CLD1	CLDELETE+7
CLE1	CLEDIT+6
CLIST	CADD+4
CSEL	CEDIT+3, CDELETE+3, CLDELETE+4, CLEDIT+4
DIAGLIST	CLIST+4, CLINIT+5
GETPLDX	CINIT+16
PAUSE	CADD1+2
Z	CINIT+9, CINIT+11, CINIT+13, CINIT+17, CINIT+27, CINIT+29, CINIT+31, CINIT+33, CINIT+35, CINIT+55 , COMINIT+7, COMINIT+9, COMINIT+15, CLINIT+8, CLINIT+10, CLINIT+12, CLINIT+18

Naked Globals

Name	Field # of Occurrence
^(0	CINIT+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	CINIT+4~, CINIT+36, CINIT+37, CINIT+38, CINIT+43, CINIT+45, CINIT+46, CINIT+48, CINIT+53, CINIT+57 , COMINIT+10, COMINIT+11, COMINIT+12, CLINIT+13, CLINIT+14, CLINIT+17, CLINIT+19
B	CINIT+4~
>> BDM("DIAG"	B, B+1!, CADD1+1, CEDIT+6, CDELETE+6, CLDELETE+7, CLD1, CLD1+2, CINIT+57, DIAGLIST+1! , DIAGLIST+11, CLIST+3!, CLIST+5, CLIST+11, CLIST+12, CLINIT+19*, CLEDIT+6, CLE1+2
>> BDM("DIAGLIST"	DIAGLIST+1!, DIAGLIST+6*, DIAGLIST+9, DIAGLIST+11, CLINIT+4!, CLINIT+14, CLINIT+19
>> BDM("TMP"	CINIT+3!, CINIT+43*, CINIT+46, CINIT+48, CINIT+57
>> BDMCDA	CADD1+8, CEDIT+6, CE1, CDELETE+6*, CD1
>> BDMI	CLEDIT+6*
BDMJ	CADD+5, CADD+6, B, CEDIT+6, CDELETE+6, CLDELETE+6~, CLDELETE+7, CINIT+3!, CINIT+44, CINIT+47 , CINIT+52, CINIT+57, CSEL+1, DIAGLIST+7, DIAGLIST+10, DIAGLIST+11, CLIST+3!, CLINIT+20*
>> BDMPAT0	CADD+3
BDMPLDX	CINIT+15!, CINIT+17
BDMPLDX(	CINIT+19, GETPLDX+6, GETPLDX+7
BDMPLDX(0	CINIT+18
BDMQUIT	CDISP+2, CADD+2, CEDIT+2, CEDIT+4!, CDELETE+2, CDELETE+4!, CLDELETE+2, CLDELETE+3!, CLDELETE+5!, CINIT+2 , COMDISP+2, COMEDIT+2, COMINIT+2, CSEL+5*, CLINIT+2, CLADD+2, CLEDIT+2, CLEDIT+3!, CLEDIT+5!, CL+2 , DL+2
>> BDMRDA	CADD1+5, CINIT+40, DIAGLIST+3, CLADD+9
>> BDMRPDA	CADD1+2, CADD1+5, COMEDIT+4, COMINIT+11, COMINIT+12
>> BDMVALM	CDISP+3, CDISP+4, COMDISP+3, COMDISP+4, CL+3, CL+4, DL+3, DL+4
BDMX	B, CADD1+1, CEDIT+5~, CEDIT+6, CDELETE+5~, CDELETE+6, CD1+3~, CD1+4, CD1+5, CLDELETE+6~ , CLDELETE+7*, CLD1, CLD1+2
>> BDMY	B, CEDIT+6, CDELETE+6, CLDELETE+7, CSEL+6*, CLEDIT+6
BDMZ	CEDIT+5~, CDELETE+5~
C	CINIT+4~, CINIT+36, CINIT+41, CINIT+43, CINIT+46*, CINIT+48, CINIT+57
D	GETPLDX+3~*
DA	CE1, CD1, CD1+3~, CD1+5!, CLD1, CLD1+1, COMEDIT+4, CLADD+10, CLADD+11, CLADD+13 , CLE1+2*
DA(1	CLADD+10*
>> DFN	CADD1+2, CADD1+5, CD1+4, CINIT+37, GETPLDX+3
>> DIC	CADD1+3, CLADD+3, CLADD+11*
>> DIC("A"	CLADD+5*
>> DIC("DR"	CADD1+5*
>> DIC(0	CADD1+4, CLADD+4, CLADD+12*
>> DIE	CE1+1, COMEDIT+5, CLE1+3*
DIK	CD1+1, CD1+3~, CD1+5!, CLD1+4*
DIR	PAUSE+1!, PAUSE+2!
DIR("A"	CADD+7, CSEL+2, PAUSE+2*
DIR(0	CADD+6, CSEL+1, PAUSE+2*
>> DR	CE1+2, COMEDIT+6, CLE1+4*
F	CINIT+14~, CINIT+20*, CINIT+22
I	GETPLDX+3~, GETPLDX+5*, GETPLDX+6
IOF	CLE1
J	CINIT+14~, CINIT+19*, CINIT+20, CINIT+21, CINIT+23, CINIT+24, CINIT+25, CINIT+26
N	CINIT+14~, CINIT+21*, CINIT+22
>> ONSET	CINIT+56*
T	GETPLDX+1~*, GETPLDX+2, GETPLDX+6
U	CADD+3, CADD1+2, CLD1+2, CINIT+22, CINIT+40, CINIT+49, DIAGLIST+6, DIAGLIST+11, CLIST+12, GETPLDX+4 , GETPLDX+5, GETPLDX+6, GETPLDX+7
>> VALMBCK	BACK*
>> VALMCNT	CINIT+6, COMINIT+5, CLINIT+6, CLINIT+16, CLINIT+19, CLINIT+20, Z+1, Z+2
VALMHDR	HDR+2!
VALMHDR(1	HDR+4*
VALMHDR(2	HDR+5*
VALMHDR(3	HDR+6*
>> VALMSG	HDR+1*
X	CADD1+1, CADD1+2, CINIT+4~, CINIT+5, CINIT+8, CINIT+9, CINIT+10, CINIT+11, CINIT+12, CINIT+13 , CINIT+14~, CINIT+17, CINIT+22, CINIT+23, CINIT+24, CINIT+25, CINIT+26, CINIT+27, CINIT+28, CINIT+29 , CINIT+30, CINIT+31, CINIT+32, CINIT+33, CINIT+34, CINIT+35, CINIT+51, CINIT+52, CINIT+53, CINIT+54* , CINIT+55, COMINIT+4~, COMINIT+6, COMINIT+7, COMINIT+8, COMINIT+9, COMINIT+14, COMINIT+15, DIAGLIST+2, DIAGLIST+3* , DIAGLIST+4, DIAGLIST+6, CLIST+2~, CLIST+10, CLIST+11, CLIST+12, GETPLDX+3~, GETPLDX+4, GETPLDX+5, GETPLDX+6 , GETPLDX+7, CLINIT+7, CLINIT+8, CLINIT+9, CLINIT+10, CLINIT+11, CLINIT+12, CLINIT+15, CLINIT+16, CLINIT+17* , CLINIT+18, CLADD+9, CLEDIT+6, CLE1+2, Z~, Z+2
Y	CADD+10, CADD1+7, CADD1+8, CINIT+4~, CINIT+14~, CINIT+38, CINIT+39, CINIT+40, CINIT+42, CINIT+43 , CINIT+48, CINIT+49, CINIT+54, CINIT+56, COMINIT+4~, COMINIT+12, COMINIT+13, COMINIT+14, CSEL+5, CSEL+6 , DIAGLIST+4, DIAGLIST+5, DIAGLIST+6, DIAGLIST+8, DIAGLIST+9, DIAGLIST+11, CLIST+2~, CLADD+8, CLADD+10
Z	CINIT+4~, CINIT+14~, COMINIT+4~, CLIST+2~

Customize PDF page

Package: Diabetes Registry

Routine: BDMVRL8

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: