Routine: BDMLLT

Information

BDMLLT ; IHS/CMI/LAB - VIEW PT RECORD LT ;

Source Information

Source file <BDMLLT.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Diabetes Registry	2	DIR^BDMLLTD ^BDMLLTZ
IHS VA Utilities	2	EN^XBNEW EN^XBVK
VA Fileman	2	^DIC ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
CPRINT	;EP;TO PRINT LETTERS FROM LIST OR TEMPLATE
COHORT	;EP;TO ESTABLISH COHORT OF PATIENTS TO PRINT
P1	;
MULTIPLE	;EP;UTILTIY TO SELECT MULTIPLE PATIENTS FOR WHICH TO PRINT BDMLLT LETTER
ZIS	;EP;TO SELECT DEVICE ON WHICH TO PRINT BDMLLT LETTER
LINIT	;EP;TO CREATE ARRAY OF NAMES OF EXISTING LETTERS
S1
PAUSE	;EP
LIST	;LIST LETTERS
REG1	;
DATE	;EP;TO PRINT LETTER DATE
Z(X)	;SET TMP NODE
EXIT	;
TEMPLATE	;SELECT SEARCH TEMPLATE
PATLET	;EP;TO SELECT AND PROCESS PATIENT LETTER
PATIENT	;SELECT INDIVIDUAL PATIENTS TO PRINT LETTER
LINE	;
C1
SELECT	;EP;TO SELECT BDMLLT LETTER
REGISTER	;

External References

Name	Field # of Occurrence
DIR^BDMLLTD	S1+3
^BDMLLTZ	ZIS+6
^DIC	P1+6, TEMPLATE+5, REGISTER+5
^DIR	C1+5, PAUSE+1, REGISTER+9
EN^XBNEW	CPRINT+6
EN^XBVK	EXIT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: S1+2
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: !!,"No patients selected." Line Location: C1+11
Function Call: WRITE	Prompt: !!,"No register selected." Line Location: REGISTER+6
Function Call: WRITE	Prompt: !,"No patients with that status in that register!" Line Location: REG1+5
Function Call: WRITE	Prompt: !!,"There are ",BDMLCNT," patients in the ",$P(^ACM(41.1,BDMLREG,0),U)," register with a status of ",BDMLSTAT,".",!! Line Location: REG1+6
Routine Call	DIC Line Location: P1+6 TEMPLATE+5 REGISTER+5
Routine Call	DIR Line Location: C1+5 PAUSE+1 REGISTER+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	CPRINT+5, REG1+2, REG1+3, REG1+4
^ACM(41.1 - [#9002241.1]	REG1+6
^BDMLET - [#9003201]	LIST+16
^BDMLET("B"	LINIT+12, LINIT+14, LIST+13, LIST+15
^DD("DD"	DATE+3
^DIBT(	TEMPLATE+8
^TMP("BDMTMP"	CPRINT+3!
^TMP($J	EXIT+2!, LINIT+2!, Z+2*
^XTMP("BDMLLT"	EXIT+3!, COHORT+7, C1!, C1+11, P1+9, TEMPLATE+8, CPRINT+2, REG1+2!, REG1+3, REG1+4 , REG1+5

Label References

Name	Line Occurrences
C1	COHORT+4
LIST	SELECT+2
P1	PATIENT+2
PATIENT	C1+8
PAUSE	C1+11, REG1+7
REGISTER	C1+10
SELECT	PATLET+1, COHORT+2
TEMPLATE	C1+9
Z	LINIT+6, LINIT+9, LINIT+19
ZIS	PATLET+4, COHORT+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BDM("STATUS"	REGISTER+11*
BDMBTH	EXIT+3, EXIT+4!, COHORT+1*, COHORT+7, COHORT+10!, C1, C1+11, P1+9, TEMPLATE+8, CPRINT+2 , REG1+2, REG1+3, REG1+4, REG1+5
BDMIANL	CPRINT+6*, CPRINT+7!
BDMJOB	EXIT+3, EXIT+4!, COHORT+1*, COHORT+7, COHORT+10!, C1, C1+11, P1+9, TEMPLATE+8, CPRINT+2 , REG1+2, REG1+3, REG1+4, REG1+5
BDML	LIST+2~, LIST+12, LIST+13, LIST+15, LIST+20, LIST+25
BDMLBROW	COHORT+6*, COHORT+10!
>> BDMLCNT	REG1+2, REG1+3, REG1+4*, REG1+6
>> BDMLDA	S1+5*, PATLET+2, COHORT+3
>> BDMLET	CPRINT+4*
BDMLLTJ	S1, LINIT+2!, LINIT+10, LINIT+15, LINIT+17, LINIT+20, LIST+11, LIST+19, LIST+20, LIST+21 , LIST+22, LIST+23, LIST+24
BDMLLTJB	PATLET+3, COHORT+7, COHORT+10!, C1+1, P1+9, TEMPLATE+8, CPRINT+2, REG1+2, REG1+3, REG1+4 , REG1+5
BDMLLTOT	SELECT+1!
BDMLLTQT	SELECT+1!, S1+4, COHORT+5, C1+7, PATIENT+1!, PATIENT+2, PATIENT+3!, P1+8*
BDMLLTTP	LIST+1!
BDMLLTTP(	S1+4, S1+5, LINIT+20, LINE+3, LINE+7, LINE+11, LIST+20*
BDMLLTX	LIST+2~, LIST+14, LIST+15, LIST+16, LIST+20
BDMLLTY	LIST+2~, LIST+16*, LIST+17, LIST+18
BDMLLTZ	LIST+2~
BDMLREG	LIST+18, C1+10!, REGISTER+1!, REGISTER+7*, REG1+2, REG1+6
>> BDMLRTN	ZIS+1, COHORT+8
>> BDMLSTAT	PATIENT+4, TEMPLATE+9, REGISTER+11*, REG1+3, REG1+4, REG1+6
>> BDMLZDIC	REGISTER+4*
BDMOUT	CPRINT+2, CPRINT+3!
>> BDMRDA	CPRINT+5
>> BDMRPDA	CPRINT+5*
DA	REGISTER+9!
>> DFN	CPRINT+1, CPRINT+2, CPRINT+5
DIC	P1+1~, P1+2, P1+7!, TEMPLATE+1~, TEMPLATE+2, TEMPLATE+6!, REGISTER+1!, REGISTER+3*
DIC("A"	P1+5, REGISTER+3
DIC("S"	P1+4, TEMPLATE+4, REGISTER+4*
DIC(0	P1+3, TEMPLATE+3, REGISTER+2*
>> DIE	REGISTER+3*
DIR	C1+2~, C1+6!, PAUSE+1!, REGISTER+9!
DIR("A"	S1+1, C1+4, PAUSE+1, REGISTER+9
DIR("B"	REGISTER+9*
DIR(0	S1, C1+3, PAUSE+1, REGISTER+9
>> DIRUT	PAUSE+1*, REGISTER+10
DT	DATE+2
>> DUOUT	PAUSE+1
>> I	LINE+4*
IOF	LIST+3
>> J	LINE+2, LINE+3, LINE+6, LINE+7, LINE+11*
>> K	LINE+4*, LINE+5, LINE+9, LINE+10
U	LIST+18, LIST+20, REG1+3, REG1+4, REG1+6
>> VALMCNT	LINIT+3, Z+1, Z+2
X	LINIT+1~, LINIT+4!, LINIT+5, LINIT+6, LINIT+7!, LINIT+8, LINIT+9, LINIT+16!, LINIT+17, LINIT+18 , LINIT+19, Z~, Z+2, REG1+2*, REG1+3, REG1+4
Y	S1+4, S1+5, LINIT+11, LINIT+12, LINIT+14, LINIT+18, LINE+1, LINE+3, LINE+4, DATE+1~ , DATE+2*, DATE+4, C1+7, C1+8, C1+9, C1+10, P1+8, P1+9, TEMPLATE+7, TEMPLATE+8 , REGISTER+6, REGISTER+7, REGISTER+11
>> Z	LINIT+13, LINIT+14, LINIT+20, LINE+5, LINE+7, LINE+8, LINE+9, LINE+10, LINE+11, DATE+4
>> ZTDESC	ZIS+2*
>> ZTRTN	ZIS+1*
>> ZTSAVE("ACM*"	ZIS+3*
>> ZTSAVE("BDM"	ZIS+5*
>> ZTSAVE("DFN"	ZIS+4*

Customize PDF page

Package: Diabetes Registry

Routine: BDMLLT

Call Graph Total: 6