Routine: BDMLET

Package	Total	Call Graph
Diabetes Registry	5	(DIC,DIE,DIR)^BDMFDIC PAUSE^BDMFMENU ^BDMFZIS VALM^BDMVRL SSET^BDMVRL42
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
VA Fileman	2	%XY^%RCR ^DIK
IHS Designated Provider	1	ALLDP^BDPAPI

Package	Total	Caller Graph
Diabetes Registry	1	BDMVRL4

Entry Points

Name	Comments	DBIA/ICR reference
EDUCATE	;EP - to print all education
MULTIPLE	;EP;UTILTIY TO SELECT MULTIPLE PATIENTS FOR WHICH TO PRINT DMS LETTER
VARS	;CONVERT VARIABLES
E11
TEXT	;FOLLOWUP LETTER WITH EDUCATION INSERTS;
S1
BACK
PRIMARY	;EP;TO PRINT PCP PROVIDER NAME IN A LETTER
PRINT	;EP;TO PRINT DMS LETTER
LINE	;
SELECT	;EP;TO SELECT DMS LETTER
PARSE	;DIVIDE UP THE LETTER CONTENT
CENTER	;-- try and center the text here
REGISTER	;EP;TO PRINT PROVIDER NAME IN A LETTER
A1
PATLET	;EP;TO SELECT AND PROCESS PATIENT LETTER
ILIST	;LIST ITEM TEXT
EN
ZIS	;EP;TO SELECT DEVICE ON WHICH TO PRINT DMS LETTER
INSERT	;EP;TO LIST INSERT ITEMS
EDUCP	;EP - print education text
INTPFP	;EP;TO ENTER EDUCATION TEXT WITH FOLLOWUP ITEM
ADDRESS	;EP;TO PRINT PATIENT'S ADDRESS IN A LETTER
ADD	;EP;TO ADD DMS LETTERS
Z(X)	;SET TMP NODE
INTP	;INTERPRET VARIABLES
WHICH	;EP;TO IDENTIFY WHICH LETTER TO USE
FOLLOW	;EP;TO PRINT FOLLOW-UP MESSAGE
PHARTEXT	;FOLLOWUP LETTER WITH EDUCATION INSERTS; NOEL PHARES, NOT EDUCATION OR DEP SCR
IHDR	;
LINIT	;EP;TO CREATE ARRAY OF NAMES OF EXISTING LETTERS
EDIT	;EP;TO EDIT DMS LETTER
LIST	;LIST LETTERS
CHART	;EP;TO PRINT PATIENT CHART NUMBER
INTPF	;EP;TO ENTER EDUCATION TEXT WITH FOLLOWUP ITEM
EXIT
EPPRINT	;EP;TO PRINT LETTER FROM XBNEW CALL
DELETE	;DELETE LETTER

External References

Name	Field # of Occurrence
%XY^%RCR	PARSE+12
DIC^BDMFDIC	A1+7
DIE^BDMFDIC	E11+4
DIR^BDMFDIC	S1+3
PAUSE^BDMFMENU	PRINT+10
^BDMFZIS	ZIS+5
VALM^BDMVRL	EN+1
SSET^BDMVRL42	FOLLOW+3, TEXT+3, PHARTEXT+3
ALLDP^BDPAPI	PRIMARY+2
^DIK	DELETE+5
EN^VALM	INSERT+4
TERM^VALM0	INSERT+2
CLEAR^VALM1	A1, E11, PRINT+2, INSERT+3, INSERT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?16,"------------------------------" Line Location: A1+6
Function Call: WRITE	Prompt: ! Line Location: S1+2
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: INTPF+10
Function Call: WRITE	Prompt: @IOF Line Location: LIST+3
Function Call: WRITE	Prompt: !!?5,"DMS letters currently on file:" Line Location: LIST+4
Function Call: WRITE	Prompt: !!,"NO. LETTER" Line Location: LIST+5
Function Call: WRITE	Prompt: ?27,"NO. LETTER" Line Location: LIST+6
Function Call: WRITE	Prompt: ?54,"NO. LETTER" Line Location: LIST+7
Function Call: WRITE	Prompt: !,"--- --------------------" Line Location: LIST+8
Function Call: WRITE	Prompt: ?27,"--- --------------------" Line Location: LIST+9
Function Call: WRITE	Prompt: ?54,"--- --------------------" Line Location: LIST+10
Function Call: WRITE	Prompt: !,^BDMLETI(Y,2,X,0) Line Location: EDUCP+4
Function Call: WRITE	Prompt: ! Line Location: EDUCP+5
Function Call: WRITE	Prompt: ! Line Location: ADDRESS+2
Function Call: WRITE	Prompt: $P(Z,U) Line Location: ADDRESS+4
Function Call: WRITE	Prompt: ! Line Location: ADDRESS+13
Function Call: WRITE	Prompt: $P(Z,U,4),", ",$P($G(^DIC(5,+$P(Z,U,5),0)),U,2)," ",$P(Z,U,6) Line Location: ADDRESS+15
Function Call: WRITE	Prompt: ! Line Location: INTPFP+10
Routine Call	VALM Line Location: INSERT+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BDMLET - [#9003201]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UPPERCASE"	INTP+3
^ACM(41 - [#9002241]	REGISTER+1, REGISTER+3
^AUPNPAT - [#9000001]	CHART+1
^BDMLET - [#9003201]	PRINT+6, PRINT+7, PARSE+4, PARSE+5, LIST+16
^BDMLET("B"	LINIT+12, LINIT+14, LIST+13, LIST+15
^BDMLETI - [#9003202.4]	INTP+10, ILIST+7, VARS+7, EDUCATE+5, EDUCP+4
^BDMLETI("B"	INTP+7, INTP+8, INTPF+27, INTPFP+29
^BDMLETI("C"	ILIST+4, ILIST+5, VARS+5, EDUCATE+3, EDUCATE+4
^DIC(5 - [#5]	ADDRESS+15
^DPT - [#2]	ADDRESS+1
^TMP("BDMTMP"	FOLLOW+6, FOLLOW+8, FOLLOW+9, TEXT+6, TEXT+8, TEXT+9, PHARTEXT+6, PHARTEXT+8, PHARTEXT+13
^TMP("BDMVR"	EXIT+1!, LINIT+2!, Z+2*
^VA(200 - [#200]	REGISTER+5

Label References

Name	Line Occurrences
A1	ADD+2, WHICH+2
BACK	EDIT+3, E11+6, INSERT+6, DELETE+2, DELETE+6
E11	ADD+3
EDUCP	INTPF+28, EDUCATE+6, INTPFP+30
EXIT	ADD+1, EDIT+1
INTP	PRINT+8
INTPF	TEXT+11
INTPFP	PHARTEXT+15
LINE	PARSE+8
LIST	SELECT+2
PARSE	E11+5
PRINT	EPPRINT+2
S1	EDIT+2, DELETE+1
SELECT	PATLET+1
VARS	PARSE+7
Z	LINIT+19
ZIS	PATLET+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %X	PARSE+10*
>> %Y	PARSE+11*
A	PRINT+4~
B	PRINT+4~
BDM	LIST+2~, LIST+12, LIST+13, LIST+15, LIST+19, LIST+24
BDM("STATUS"	EPPRINT+1, FOLLOW+1, TEXT+1, PHARTEXT+1
BDMJ	S1, LINIT+2!, LINIT+10, LINIT+15, LINIT+17, LINIT+20, LIST+11, LIST+18, LIST+19, LIST+20 , LIST+21, LIST+22, LIST+23
BDMLDA	EXIT!, ADD+3, A1+1!, A1+8, S1+5, E11+1, PRINT+1, PRINT+6, PRINT+7, PARSE+4 , PARSE+5, PARSE+11, PATLET+2, DELETE+3
BDMLETI	ILIST+1!
BDMLETI(	ILIST+7*
BDMLETI("IDX"	ILIST+8*
>> BDMLETIC	ILIST+9*
>> BDMLSTAT	EPPRINT+1
BDMOUT	EXIT!, SELECT+1!
>> BDMPDA	FOLLOW+2, TEXT+2, PHARTEXT+2*
BDMQUIT	EXIT!, SELECT+1!, S1+4*, EDIT+3!, FOLLOW+6, FOLLOW+8, TEXT+6, TEXT+8, DELETE+2!, PHARTEXT+6 , PHARTEXT+8
>> BDMRDA	REGISTER+1
>> BDMRPDA	REGISTER+1*, REGISTER+2, REGISTER+3
>> BDMRTN	ZIS+1*
BDMTMP	PARSE+1~, PARSE+9, LIST+1!
BDMTMP(	S1+4, S1+5, LINIT+20, LINE+3, LINE+7, LINE+11, LIST+19*
>> BDMVALM	EN, EN+1, INSERT+1, INSERT+4
BDMX	LIST+2~, LIST+14, LIST+15, LIST+16, LIST+19, FOLLOW+4~, FOLLOW+5, FOLLOW+6, FOLLOW+8, FOLLOW+9 , TEXT+4~, TEXT+5, TEXT+6, TEXT+8, TEXT+9, PHARTEXT+4~, PHARTEXT+5, PHARTEXT+6, PHARTEXT+8, PHARTEXT+13
BDMY	LIST+2~, LIST+16, LIST+17, FOLLOW+7, FOLLOW+8, FOLLOW+9, FOLLOW+10, TEXT+7, TEXT+8, TEXT+9 , TEXT+10, PHARTEXT+7, PHARTEXT+8*, PHARTEXT+9, PHARTEXT+10, PHARTEXT+11, PHARTEXT+12, PHARTEXT+13, PHARTEXT+14
BDMZ	INTPF+2, INTPF+3, INTPF+4, INTPF+5, INTPF+6, INTPF+7, INTPF+8, INTPF+9, INTPF+11, INTPF+12 , INTPF+13, INTPF+14, INTPF+15, INTPF+16, INTPF+17, INTPF+18, INTPF+19, INTPF+20, INTPF+21, INTPF+22 , INTPF+23, INTPF+24, INTPF+25, INTPF+26, LIST+2~, FOLLOW+9, FOLLOW+10, TEXT+9, TEXT+10, PHARTEXT+13* , PHARTEXT+14, INTPFP+2, INTPFP+3, INTPFP+4, INTPFP+5, INTPFP+6, INTPFP+7, INTPFP+11, INTPFP+12, INTPFP+13 , INTPFP+14, INTPFP+15, INTPFP+16, INTPFP+17, INTPFP+18, INTPFP+19, INTPFP+20, INTPFP+21, INTPFP+22, INTPFP+23 , INTPFP+24, INTPFP+25, INTPFP+26, INTPFP+27, INTPFP+28
C	PRINT+4~, ILIST+2~, ILIST+3, ILIST+6, ILIST+7, ILIST+8, ILIST+9
D	PRINT+4~
>> DA	E11+1, DELETE+3
>> DFN	PRINT+1, CHART+1, ADDRESS+1, FOLLOW+2, FOLLOW+6, FOLLOW+8, FOLLOW+9, TEXT+2, TEXT+6, TEXT+8 , TEXT+9, REGISTER+1, PRIMARY+2, PHARTEXT+2, PHARTEXT+6, PHARTEXT+8, PHARTEXT+13
>> DIC	A1+3*
>> DIC("A"	A1+4*
>> DIC("DR"	A1+5*
>> DIC(0	A1+2, A1+5, WHICH+1
>> DIE	E11+2*
>> DIK	DELETE+4*
>> DIR("A"	S1+1*
>> DIR(0	S1*
>> DLAYGO	A1+5*
>> DR	E11+3*
DT	A1+5
DUZ	A1+5
DUZ(2	CHART+1
E	INTP+1~, INTP+7, INTP+8, INTP+9, INTP+10, VARS+1~, VARS+5, VARS+7, EDUCATE+2~, EDUCATE+3 , EDUCATE+4
I	INTP+6, PARSE+1~, VARS+1~, VARS+3, LINE+4, CENTER+2~, CENTER+7
IO	PRINT+2
IO(0	PRINT+2
IOF	PRINT+3, LIST+3
IOST	PRINT+2
J	INTP+6, INTP+7, INTP+8, INTP+17, PARSE+1~, PARSE+3, VARS+1~, VARS+3, VARS+5, VARS+8 , LINE+2, LINE+3, LINE+6, LINE+7, LINE+11
K	INTP+1~, INTPF+1~, PARSE+1~, VARS+1~, LINE+4*, LINE+5, LINE+9, LINE+10, INTPFP+1~
L	CENTER+2~, CENTER+5*, CENTER+6
M	INTP+1~, INTP+10*, INTP+11, INTP+12
N	CENTER+2~, CENTER+6*, CENTER+7
R	PRIMARY+1!, PRIMARY+2
R("DESIGNATED	PRIMARY PROVIDER" , PRIMARY+3
T	CENTER+2~, CENTER+4*, CENTER+5
U	ILIST+7, VARS+7, LIST+19, CHART+1, EDUCATE+5, ADDRESS+4, ADDRESS+5, ADDRESS+8, ADDRESS+9, ADDRESS+12 , ADDRESS+15, FOLLOW+10, TEXT+10, REGISTER+3, REGISTER+5, PRIMARY+3, PHARTEXT+14
>> VALMBCK	BACK*
>> VALMCNT	LINIT+3, ILIST+9, Z+1*, Z+2
>> VALMHDR(1	IHDR+1*
X	PRINT+4~, PRINT+5, PRINT+6, PRINT+7, INTP+1~, INTP+2, INTPF+1~, INTPF+11, INTPF+12, INTPF+13 , INTPF+14, INTPF+15, INTPF+16, INTPF+17, INTPF+18, INTPF+19, INTPF+20, INTPF+21, INTPF+22, INTPF+23 , INTPF+24, INTPF+25, INTPF+26, INTPF+27, LINIT+1~, LINIT+4!, LINIT+16!, LINIT+17, LINIT+18, LINIT+19 , ILIST+2~, ILIST+3, ILIST+4, ILIST+5, PARSE+1~, PARSE+3, PARSE+4, PARSE+5, VARS+1~, VARS+7 , VARS+8, EDUCATE+2~, EDUCP+3~, EDUCP+4, CENTER+4, Z~, Z+2, INTPFP+1~, INTPFP+11, INTPFP+12* , INTPFP+13, INTPFP+14, INTPFP+15, INTPFP+16, INTPFP+17, INTPFP+18, INTPFP+19, INTPFP+20, INTPFP+21, INTPFP+22 , INTPFP+23, INTPFP+24, INTPFP+25, INTPFP+26, INTPFP+27, INTPFP+28, INTPFP+29
Y	A1+8, S1+4, S1+5, PRINT+4~, PRINT+7, PRINT+8, PRINT+9, INTP+2, INTP+4, INTP+5 , INTP+6, INTP+18, INTPF+27, LINIT+11, LINIT+12, LINIT+14, LINIT+18, ILIST+2~, ILIST+5, ILIST+7 , ILIST+8, PARSE+1~, PARSE+5, PARSE+6, PARSE+7, VARS+3, VARS+8, LINE+1, LINE+3, LINE+4 , EDUCATE+2~, EDUCATE+4, EDUCATE+5, EDUCP+2, EDUCP+4, INTPFP+29
Z	PRINT+4~, INTP+17, LINIT+13, LINIT+14, LINIT+20, PARSE+1~, PARSE+2, VARS+1~, LINE+5, LINE+7 , LINE+8, LINE+9, LINE+10, LINE+11, CHART+1, EDUCATE+1, EDUCP+1, ADDRESS+1, ADDRESS+4, ADDRESS+5 , ADDRESS+8, ADDRESS+9, ADDRESS+12, ADDRESS+15, ADDRESS+16, CENTER+3, CENTER+7, FOLLOW+11, TEXT+12, REGISTER+2 , REGISTER+3, REGISTER+4, REGISTER+5, REGISTER+6, PRIMARY+3, PRIMARY+4, PHARTEXT+16
>> ZTDESC	ZIS+2*
>> ZTRTN	ZIS+1*
>> ZTSAVE("BDM*"	ZIS+3*
>> ZTSAVE("DFN"	ZIS+4*
ZZ	INTP+1~, INTP+4, INTP+17, INTP+18, INTPF+1~, PARSE+1~, PARSE+2, ADDRESS+16, FOLLOW+11, TEXT+12 , PHARTEXT+16*, INTPFP+1~
ZZZ	INTP+1~, INTP+5*, INTPF+1~, ADDRESS+3, ADDRESS+7, ADDRESS+11, ADDRESS+14, INTPFP+1~

Customize PDF page

Package: Diabetes Registry

Routine: BDMLET

Information

Source Information

Call Graph

Call Graph Total: 11

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

Local Variables

Legend: