Routine: BDMVRL3

Package	Total	Call Graph
Diabetes Registry	5	(DDS,DIC,DIE,DIK,DIR,FILE)^BDMFDIC (PAUSE,RP)^BDMFMENU REG^BDMFUTIL VALM^BDMVRL MP1^BDMVRL1
Case Management System	2	CURRENT^ACMED ^ACMLPAT
Patient Care Component Reports	2	^APCLD99 GO^APCLDM
VA Fileman	2	(,IX)^DIK ^DIR
Registration	1	(CLEAR,FULL)^VALM1

Entry Points

Name	Comments	DBIA/ICR reference
USER	;EP;TO SETUP DMS USER
DL	;EP;FOR DIAGNOSIS LIST FUNCTIONS
CADD1	;
CLEDIT	;EP;TO EDIT EXISTING COMPLICATIONS LIST ENTRY
U1
BACK
COMINIT	;EP;INITIALIZE LIST OF COMMENTS
DA	;EP;TO DO THE DIABETES AUDIT
CLIST	;LIST ALL COMPLICATIONS
COMEDIT	;EP;TO EDIT COMMENTS
CD1
RR	;EP;TO START PRINT OF REGISTER REPORTS
CDELETE	;EP;TO DELETE COMPLICATION FROM PATIENT'S COMPLICATION LIST
AU1
CLD1
CINIT	;EP;INITIALIZE LIST OF PATIENTS COMPLICATIONS
CLDELETE	;EP;TO DELETE COMPLICATION LIST ENTRY
COMPLIST	;CREATE COMPLICATIONS LIST ARRAY
PAUSE	;
CLINIT	;EP;TO INITIALIZE COMPLICATIONS LIST
CL	;EP;FOR COMPLICATIONS LIST FUNCTIONS
CLADD	;EP;TO ADD NEW COMPLICATION
DMMEDS	;EP;TO SELECT DM MED TAXONOMY FOR DISPLAY OF DM MEDS
UNEW	;ADD NEW DMS USER
AUR	;REMOVE KEY
AU
CE1
CDISP	;EP;DISPLAY AND EDIT COMPLICATIONS
COMDISP	;EP;TO DISPLAY AND EDIT CASE COMMENTS
CSEL	;SELECT COMPLICATION
CEDIT	;EP;TO EDIT COMPLICATION
CLE1
AU11
Z(X)	;SET TMP NODE
ULIST	;LIST DMS USERS
CADD	;EP;TO ADD COMPLICATION
DELETE	;EP;TO DELETE A PATIENT FROM CMS

External References

Name	Field # of Occurrence
CURRENT^ACMED	DELETE+5, RR+8
^ACMLPAT	DELETE+9
^APCLD99	DA+7
GO^APCLDM	DA+22
DDS^BDMFDIC	CE1+3
DIC^BDMFDIC	DA+11, DA+19, CLADD+7, UNEW+5
DIE^BDMFDIC	COMEDIT+7, CLE1+7
DIK^BDMFDIC	CD1+2, CLD1+5, AU+13
DIR^BDMFDIC	CADD+9, CSEL+4, U1+2, AU+8, AU+26
FILE^BDMFDIC	CADD1+6, CLADD+14, UNEW+15, AU11+6
PAUSE^BDMFMENU	DELETE+10, CLIST+7, ULIST+14
RP^BDMFMENU	RR+9
REG^BDMFUTIL	CDISP+1, CADD+1, CEDIT+1, CDELETE+1, CLDELETE+1, CINIT+1, COMDISP+1, COMEDIT+1, COMINIT+1, DELETE+1 , DA+1, DMMEDS+1, RR+1, CLINIT+1, CLADD+1, CLEDIT+1, CL+1, DL+1, USER+1
VALM^BDMVRL	CDISP+4, COMDISP+4, CL+4, DL+4
MP1^BDMVRL1	DMMEDS+19
^DIK	AUR+2
IX^DIK	CD1+6
^DIR	PAUSE+2
CLEAR^VALM1	COMEDIT+3, CLIST+1
FULL^VALM1	CLE1+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"ADD Complications 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(42.1,X,0),U)," as a complication. Use Edit or Delete to modify this complication." Line Location: CADD1+2
Function Call: WRITE	Prompt: ! Line Location: CSEL+3
Function Call: WRITE	Prompt: !!?5,"NO.",?10,"COMPLICATION" 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 COMPLICATION NAME:" Line Location: CLE1+1
Function Call: WRITE	Prompt: ! Line Location: CLE1+5
Function Call: WRITE	Prompt: ! Line Location: UNEW+4
Function Call: WRITE	Prompt: ! Line Location: AU+7
Function Call: WRITE	Prompt: ! Line Location: AU+25
Function Call: WRITE	Prompt: !?5,"Current DMS Authorized Users",?35,"Manager Authority" Line Location: ULIST+2
Function Call: WRITE	Prompt: !?5,"----------------------------",?35,"-----------------" Line Location: ULIST+3
Routine Call	DIR Line Location: PAUSE+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^APCLRPT - [#9001200]	Classic Fileman Calls
^ACM(41 - [#9002241]	Classic Fileman Calls
^ACM(42 - [#9002242]	Classic Fileman Calls
^ACM(42.1 - [#9002242.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	DA+4
^ACM(41 - [#9002241]	COMINIT+11, COMINIT+12
^ACM(41.1 - [#9002241.1]	UNEW+9, UNEW+14*, AU, ULIST+7
^ACM(42 - [#9002242]	CADD1+2, CD1+5, CLD1+1, CINIT+14, CINIT+15, CINIT+26
^ACM(42.1 - [#9002242.1]	CADD1+2, CINIT+19, COMPLIST+3, COMPLIST+4, CLADD+13*
^ATXAX - [#9002226]	DMMEDS+8, DMMEDS+13, DMMEDS+14
^ATXAX("B"	DMMEDS+5, DMMEDS+7
^DD("DD"	CINIT+27
^DIC(19.1 - [#19.1]	AU+14, AU+18, AU11, ULIST+5
^TMP("BDMVR"	CINIT+3!, COMINIT+3!, CLINIT+3!, Z+2*
^VA(200 - [#200]	UNEW+8, AU+15, AU+19, AU11+4, AU11+5*, ULIST+8, ULIST+9

Label References

Name	Line Occurrences
AU	UNEW+9
AU11	UNEW+18, AU1
AUR	AU+16, AU+27
BACK	CLDELETE+5, CLDELETE+8, COMINIT+16, CLADD+15, CLEDIT+5, CLEDIT+7
CADD1	CADD+11
CD1	CDELETE+6
CE1	CADD1+10, CEDIT+6
CLD1	CLDELETE+7
CLE1	CLEDIT+6
CLIST	CADD+4
COMPLIST	CLIST+4, CLINIT+6
CSEL	CEDIT+3, CDELETE+3, CLDELETE+4, CLEDIT+4
PAUSE	CADD1+2
U1	USER+3
ULIST	U1+5
UNEW	U1+4
Z	CINIT+8, CINIT+10, CINIT+12, CINIT+32, COMINIT+7, COMINIT+9, COMINIT+15, CLINIT+9, CLINIT+11, CLINIT+13 , CLINIT+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	CINIT+4~, CINIT+13, CINIT+14, CINIT+15, CINIT+20, CINIT+22, CINIT+23, CINIT+25, CINIT+30, CINIT+34 , COMINIT+10, COMINIT+11, COMINIT+12, CLINIT+14, CLINIT+15, CLINIT+18, CLINIT+20
>> ACMCTRLP	RR+6*
>> ACMCTRLS	RR+7*
ACMDM	RR+3!, RR+10*
ACMEP	DELETE+4~, DELETE+6*, RR+3!
ACMES	RR+3!
ACMGTP	RR+3!
ACMPC	RR+3!
ACMPP	DELETE+4~, DELETE+6*, RR+3!
ACMPRV	RR+3!
ACMPS	RR+3!
ACMPTDEL	DELETE+4~, DELETE+6*
ACMPTNA	RR+3!
ACMQUIT	DELETE+4~
ACMRG	DELETE+7, RR+3!, RR+4
ACMRGDFN	RR+3!
ACMRGNA	DELETE+8, RR+3!, RR+5
ACMRGTP	DELETE+4~, DELETE+6*
ACMSRT	RR+3!
>> APCL1	DA+15*
>> APCL2	DA+20*
>> APCLDMRG	DA+21*
B	CINIT+4~
BDM	DMMEDS+3~
BDM(	DMMEDS+9*, DMMEDS+11
BDM("COMP"	CEDIT+6, CDELETE+6, CINIT+34, CLINIT+20
BDM("COMPLICATIONS"	CADD+11, CADD+12!, CADD1+1, CLDELETE+7, CLD1, CLD1+2, COMPLIST+1!, COMPLIST+11*, CLIST+3!, CLIST+5 , CLIST+11, CLIST+12, CLEDIT+6, CLE1+2
BDM("COMPLIST"	COMPLIST+1!, COMPLIST+6*, COMPLIST+9, COMPLIST+11, CLINIT+4!, CLINIT+15, CLINIT+20
BDM("TMP"	CINIT+3!, CINIT+20*, CINIT+23, CINIT+25, CINIT+34
>> BDMCDA	CADD1+9, CEDIT+6, CE1, CDELETE+6*, CD1
>> BDMI	CLEDIT+6*
BDMJ	CADD+5, CADD+6, CADD+11, CEDIT+6, CDELETE+6, CLDELETE+6~, CLDELETE+7, CINIT+3!, CINIT+21, CINIT+24 , CINIT+29, CINIT+34, CSEL+1, DMMEDS+3~, COMPLIST+7, COMPLIST+10, COMPLIST+11, CLIST+3!, CLINIT+21*
BDMMEDS	DMMEDS+3~, DMMEDS+17
BDMMEDS(	DMMEDS+16*
BDMOUT	USER+3, USER+4!
>> BDMPAT0	CADD+3
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, DELETE+2, DELETE+3!, DA+2, DMMEDS+2, RR+2, CLINIT+2 , CLADD+2, CLEDIT+2, CLEDIT+3!, CLEDIT+5!, CL+2, DL+2, USER+2, USER+3, USER+4!, U1+3 , UNEW+6*, ULIST+11
>> BDMRDA	CADD1+5, CINIT+17, DELETE+7, DA+21, RR+4, COMPLIST+3, CLADD+9, UNEW+9, UNEW+11, AU , AU+11, ULIST+7
>> BDMREGNM	DELETE+8, DA+6, RR+5
>> BDMRPDA	CADD1+2, CADD1+5, COMEDIT+4, COMINIT+11, COMINIT+12
>> BDMTXDA	DMMEDS+10, DMMEDS+11, DMMEDS+13, DMMEDS+14
>> BDMUNAM	UNEW+8*, AU+1, AU+4, AU+21, AU+22
>> BDMUSER	UNEW+7*, AU, AU+10, AU+15, AU+19, AUR+1, AU11+1, AU11+3, AU11+4, AU11+5
>> BDMVALM	CDISP+3, CDISP+4, COMDISP+3, COMDISP+4, CL+3, CL+4, DL+3, DL+4
BDMX	CADD+11, CADD1+1, CEDIT+5~, CEDIT+6, CDELETE+5~, CDELETE+6, CD1+4~, CD1+5, CD1+6, CLDELETE+6~ , CLDELETE+7, CLD1, CLD1+2, UNEW+16, AU1, AU11, ULIST+4~, ULIST+6, ULIST+7, ULIST+8 , ULIST+9, ULIST+10, ULIST+11*, ULIST+12, ULIST+13
BDMX(	ULIST+9*, ULIST+11, ULIST+13
BDMY	CADD+11, CEDIT+6, CDELETE+6, CLDELETE+7, CSEL+6, CLEDIT+6, ULIST+4~, ULIST+8, ULIST+9
BDMZ	CEDIT+5~, CDELETE+5~, UNEW+17, AU+15, AU+16, AU+19, AU+21, AU+22, AU+27, AUR+1 , AU11+4, AU11+6, ULIST+4~, ULIST+5, ULIST+9
C	CINIT+4~, CINIT+13, CINIT+18, CINIT+20, CINIT+23*, CINIT+25, CINIT+34
DA	CE1, CD1, CD1+4~, CD1+6!, CLD1, CLD1+1, COMEDIT+4, DMMEDS+18, CLADD+10, CLADD+11 , CLADD+13, CLE1+2, UNEW+11, UNEW+12, UNEW+14, AU+10, AUR+1, AU11+4
DA(1	CLADD+10, UNEW+11, AU+11, AU+12, AUR+1, AU11+3*
>> DFN	CADD1+2, CADD1+5, CD1+5, CINIT+14, DMMEDS+18
>> DIC	CADD1+3, DA+9, DA+17, CLADD+3, CLADD+11, UNEW+1, UNEW+12, AU11+1
>> DIC("A"	CLADD+5, UNEW+3
>> DIC("B"	DA+6*
>> DIC("DR"	CADD1+5*
>> DIC(0	CADD1+4, DA+10, DA+18, CLADD+4, CLADD+12, UNEW+2, UNEW+13, AU11+2
>> DIE	CE1+1, COMEDIT+5, CLE1+3*
DIK	CD1+1, CD1+4~, CD1+6!, CLD1+4, AU+12, AUR+1, AU11+1
>> DINUM	UNEW+10*
DIR	PAUSE+1!, PAUSE+2!
DIR("A"	CADD+7, CSEL+2, U1+1, AU+4, AU+5, AU+21, AU+22, AU+23, PAUSE+2*
DIR("B"	AU+6, AU+24
DIR(0	CADD+6, CSEL+1, U1, AU+3, AU+20, PAUSE+2
>> DR	CE1+2, COMEDIT+6, CLE1+4*
IOF	CLE1, ULIST+1, ULIST+14
IOSL	ULIST+14
J	CLINIT+5~
>> ONSET	CINIT+33*
S	DMMEDS+3~
T	DMMEDS+3~, DMMEDS+4, DMMEDS+5, DMMEDS+7
TX	DMMEDS+3~, DMMEDS+4*, DMMEDS+5
U	CADD+3, CADD1+2, CLD1+2, CINIT+17, CINIT+26, DMMEDS+8, DMMEDS+14, COMPLIST+6, COMPLIST+11, CLIST+12 , UNEW+8, AU11+5, ULIST+8
>> VALMBCK	BACK*
>> VALMCNT	CINIT+6, COMINIT+5, CLINIT+7, CLINIT+17, CLINIT+20, CLINIT+21, Z+1, Z+2
X	CADD1+1, CADD1+2, CINIT+4~, CINIT+5, CINIT+7, CINIT+8, CINIT+9, CINIT+10, CINIT+11, CINIT+12 , CINIT+28, CINIT+29, CINIT+30, CINIT+31, CINIT+32, COMINIT+4~, COMINIT+6, COMINIT+7, COMINIT+8, COMINIT+9 , COMINIT+14, COMINIT+15, DA+3, DA+8, DA+16, DMMEDS+3~, DMMEDS+6, DMMEDS+7, DMMEDS+8, DMMEDS+9 , DMMEDS+12, DMMEDS+13, DMMEDS+14, COMPLIST+2, COMPLIST+3, COMPLIST+4, COMPLIST+6, CLIST+2~, CLIST+10, CLIST+11* , CLIST+12, CLINIT+5~, CLINIT+8, CLINIT+9, CLINIT+10, CLINIT+11, CLINIT+12, CLINIT+13, CLINIT+16, CLINIT+17* , CLINIT+18, CLINIT+19, CLADD+9, CLEDIT+6, CLE1+2, UNEW+10, AU+14, AU+15, AU+18, AU+19 , AU11*, AU11+4, Z~, Z+2
Y	CADD+10, CADD1+8, CADD1+9, CINIT+4~, CINIT+15, CINIT+16, CINIT+17, CINIT+19, CINIT+20, CINIT+25* , CINIT+26, CINIT+31, CINIT+33, COMINIT+4~, COMINIT+12, COMINIT+13, COMINIT+14, CSEL+5, CSEL+6, DA+12 , DA+15, DA+20, DMMEDS+3~, DMMEDS+14, DMMEDS+15, DMMEDS+16, COMPLIST+4, COMPLIST+5, COMPLIST+6, COMPLIST+8* , COMPLIST+9*, COMPLIST+11, CLIST+2~, CLINIT+5~, CLADD+8, CLADD+10, U1+3, U1+4, U1+5, UNEW+6 , UNEW+7, UNEW+8, UNEW+9, UNEW+10, AU+9, AU+27
Z	CINIT+4~, COMINIT+4~, DMMEDS+3~, CLIST+2~, CLINIT+5~

Customize PDF page

Package: Diabetes Registry

Routine: BDMVRL3

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: