Routine: BDMDR4

Information

BDMDR4 ; IHS/CMI/LAB - patients w/o TB TX ; 05 Mar 2015 1:11 PM

Source Information

Source file <BDMDR4.m>

Call Graph

Call Graph Total: 19

Package	Total	Call Graph
VA Fileman	6	NOW^%DTC ^DIC FILE^DICN ^DIE IX1^DIK ^DIR
Diabetes Registry	4	$$PPD^BDMDD18 XTMP^BDMOSUT $$LASTHF^BDMSMU ($$DEMO,DEMOCHK)^BDMUTL
IHS VA Utilities	4	^XBDBQUE ^XBFMK GUIR^XBLM EN^XBVK
Kernel	2	^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
Patient Care Component Reports	2	$$START1^APCLDF $$LASTVD^APCLV1
IHS Patient	1	($$DOB,$$DOD,$$HRN,KILL)^AUPNPAT

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Diabetes Registry	1	BDMGRF

Entry Points

Name	Comments	DBIA/ICR reference
REGPROC	;
DEMO	;
GUIEP	;EP
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
BDMG(BDMTR,BDMREG,BDMSTAT,BDMDEMO)	;EP - GUI DMS Entry Point
PRINT	;EP - called from xbdbque
HASTBTX(P)	;
PIH
CHK1SET	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
HASTB(P)	;
NUMDXS(P)	;
INFORM	;
CHKSET	;
A	;
HEAD
ZIS	;
ENDLOG	;-- write the end of the log
ALLPROC	;
START	;
R	;
HEAD1	;
GETINFO	;
EXIT	;clean up and exit
TEST	;
PROC	;EP - called from XBDBQUE

External References

Name	Field # of Occurrence
NOW^%DTC	BDMG+6, ENDLOG+1
^%ZTLOAD	BDMG+20
$$START1^APCLDF	HASTBTX+4, NUMDXS+4
$$LASTVD^APCLV1	PRINT+9
$$DOB^AUPNPAT	PRINT+9
$$DOD^AUPNPAT	CHK1SET+2, CHKSET+1
$$HRN^AUPNPAT	PRINT+9
KILL^AUPNPAT	EXIT+3
$$PPD^BDMDD18	HASTB+3
XTMP^BDMOSUT	PROC+3
$$LASTHF^BDMSMU	PRINT+11
$$DEMO^BDMUTL	CHK1SET+1
DEMOCHK^BDMUTL	DEMO+1
^DIC	R+2
FILE^DICN	BDMG+12
^DIE	ENDLOG+4
IX1^DIK	GUIEP+10
^DIR	GETINFO+2, R+7, R+11, ZIS+2, PRINT+12, HEAD+1, EOP+5
^XBDBQUE	DEMO+5, BROWSE+2
^XBFMK	EXIT+2, BDMG+17
GUIR^XBLM	GUIEP+4
EN^XBVK	EXIT+1
$$FMTE^XLFDT	PRINT+9
$$NOW^XLFDT	BDMG+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$LOC) Line Location: INFORM+2
Function Call: WRITE	Prompt: !,$$CTR($$USR) Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This report will list patients who have a positive PPD/TB who have",!,"no documentation of treatment being completed." Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"Treatment Completed is defined as having Health Factor TB - TX COMPLETE",!,"documented.",! Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"No register selected." Line Location: R+3
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT" Line Location: PRINT+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,"ZZZZZZZ" Line Location: HEAD1+2
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page ",BDMPG,! Line Location: HEAD1+4
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,$S($G(BDMDUZ2):BDMDUZ2,1:DUZ(2)),0),U))/2),$P(^DIC(4,$S($G(BDMDUZ2):BDMDUZ2,1:DUZ(2)),0),U),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: $$CTR("PATIENTS W/POSITIVE PPD/TB W/O DOCUMENTED TX COMPLETE",80),! Line Location: HEAD1+6
Function Call: WRITE	Prompt: $$CTR("Patients on the "_$P(^ACM(41.1,BDMREG,0),U)_" Register",80),! Line Location: HEAD1+7
Function Call: WRITE	Prompt: !,"PATIENT NAME",?22,"HRN",?29,"DOB",?47,"LAST VISIT",!,BDM80D Line Location: PIH+0
Routine Call	DIE Line Location: ENDLOG+4
Routine Call	DIC Line Location: R+2
Routine Call	DIR Line Location: GETINFO+2 R+7 R+11 ZIS+2 PRINT+12 HEAD+1 EOP+5

FileNo	Call Tags
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls
^BDMGUI - [#9003201.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	REGPROC+4, REGPROC+5, REGPROC+6
^ACM(41.1 - [#9002241.1]	HEAD1+7
^AUPNPAT - [#9000001]	ALLPROC+4, CHK1SET+3, CHK1SET+4, CHKSET+2, CHKSET+3
^BDMGUI - [#9003201.4]	GUIEP+8, GUIEP+9
^DIC(4 - [#4]	HEAD1+5, LOC+1
^DPT - [#2]	CHK1SET+8, CHKSET+7, PRINT+9
^TMP($J	GUIEP+2!, GUIEP+5, GUIEP+6, GUIEP+12!
^VA(200 - [#200]	HEAD1+4, USR+1
^XTMP("BDMDR4"	PROC+2!, CHK1SET+8, CHKSET+7, PRINT+4, PRINT+6, PRINT+7, PRINT+10, PRINT+14!

Label References

Name	Line Occurrences
$$CTR	INFORM+2, INFORM+3, HEAD1+6, HEAD1+7
$$HASTB	CHK1SET+5, CHKSET+4
$$HASTBTX	CHK1SET+7, CHKSET+6
$$LOC	INFORM+2
$$USR	INFORM+3
@(	GETINFO+5
ALLPROC	PROC+5
BDMG	TEST+1
BROWSE	DEMO+3
CHK1SET	ALLPROC+4
CHKSET	REGPROC+5, REGPROC+6
ENDLOG	GUIEP+11
EXIT	START+2, START+4, GETINFO+6, ZIS+3, DEMO+2, DEMO+3, DEMO+6, PRINT+4, BDMG+21, GUIEP+13
GETINFO	START+3
HEAD	PRINT+3, PRINT+8
HEAD1	HEAD
INFORM	START+1
PROC	GUIEP+1
R	R+8, R+12
REGPROC	PROC+4
ZIS	GETINFO+7

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BDMG+7, ENDLOG+2
BDM	HASTBTX+2~, NUMDXS+2~
BDM(	NUMDXS+6
BDM(1	HASTBTX+5
>> BDM80D	PRINT+2*, PIH
BDMBTH	PROC+1*, PROC+2, CHK1SET+8, CHKSET+7, PRINT+4, PRINT+6, PRINT+7, PRINT+10, PRINT+14!
>> BDMDATA	GUIEP+6*, GUIEP+8
BDMDEMO	DEMO+1, DEMO+2, CHK1SET+1, BDMG~
>> BDMDUZ2	CHK1SET+3, CHK1SET+4, CHKSET+2, CHKSET+3, PRINT+9, HEAD1+5
>> BDMGIEN	BDMG+16*
>> BDMGUI	EXIT+1, PRINT+1, HEAD1+2, BDMG+2*
BDMIEN	BDMG+4~, BDMG+14, BDMG+15, BDMG+16, GUIEP+8, GUIEP+9, GUIEP+10, ENDLOG+3
>> BDMIOSL	PRINT+1*, PRINT+8
BDMJOB	PROC+1*, PROC+2, CHK1SET+8, CHKSET+7, PRINT+4, PRINT+6, PRINT+7, PRINT+10, PRINT+14!
>> BDMLDAT	BDMG+3*
>> BDMNAME	PRINT+5, PRINT+6, PRINT+7, PRINT+9, PRINT+10
>> BDMND	GETINFO+1, BDMG+1
BDMNOW	BDMG+4~, BDMG+7, BDMG+9, BDMG+10, ENDLOG+2, ENDLOG+3
BDMOPT	BDMG+4~, BDMG+5*, BDMG+10
>> BDMPG	PRINT+3, HEAD, HEAD1+1, HEAD1+2, HEAD1+4
BDMQ	PRINT+5!, PRINT+6, PRINT+7, PRINT+8, HEAD+1*
>> BDMQUIT	START+4, GETINFO+3, GETINFO+6, R+3
BDMREG	GETINFO+1, R+1, R+4*, REGPROC+4, HEAD1+7, BDMG~
BDMS	HASTB+2~, HASTB+3*, HASTB+4
BDMSTAT	GETINFO+1, R+6, R+9, R+13, REGPROC+5, REGPROC+6, BDMG~
>> BDMTB	CHK1SET+5, CHK1SET+6, CHK1SET+8, CHKSET+4, CHKSET+5, CHKSET+7
>> BDMTEMP	ZIS+1, ZIS+4, DEMO+3
BDMTR	GETINFO+1, GETINFO+4, PROC+4, PROC+5, HEAD1+7, BDMG~
>> BDMX	PRINT+7*
>> C	GUIEP+5, GUIEP+8, GUIEP+9
DA	GETINFO+2!, R+7!, R+11!, ZIS+2!, BDMG+13!, GUIEP+10, ENDLOG+3, ENDLOG+5!
DD	BDMG+8!
>> DFN	ALLPROC+4, CHK1SET+1, CHK1SET+2, CHK1SET+3, CHK1SET+4, CHK1SET+5, CHK1SET+7, CHK1SET+8, HASTB+3, REGPROC+5 , REGPROC+6, CHKSET+1, CHKSET+2, CHKSET+3, CHKSET+4, CHKSET+6, CHKSET+7, PRINT+7, PRINT+9, PRINT+10 , PRINT+11
DFOUT	EOP+4!
DIADD	BDMG+11*, BDMG+13!
DIC	R+2, BDMG+8!, BDMG+11, BDMG+13!
DIC("A"	R+2*
DIC("DR"	BDMG+10*
DIC(0	R+2, BDMG+11
DIE	ENDLOG+3*, ENDLOG+5!
>> DIK	GUIEP+10*
DIR	GETINFO+2!, R+7!, R+11!, ZIS+2!, PRINT+12!, HEAD+1!, EOP+3~
DIR("A"	GETINFO+2, R+7, R+11, ZIS+2, PRINT+12*
DIR("B"	GETINFO+2, R+7, R+11, ZIS+2
DIR(0	GETINFO+2, R+7, R+11, ZIS+2, PRINT+12, HEAD+1, EOP+5*
DIRUT	GETINFO+3, R+8, R+12, ZIS+3, PRINT+12*, EOP+4!
DLAYGO	BDMG+11*, BDMG+13!
DLOUT	EOP+4!
DO	BDMG+8!
DR	ENDLOG+3*, ENDLOG+5!
DT	HASTB+3, GUIEP+9
DTOUT	HEAD+1, EOP+4!
DUOUT	PRINT+12, EOP+4!
DUZ	HEAD1+4, USR+1, BDMG+9, BDMG+10
DUZ(2	CHK1SET+3, CHK1SET+4, CHKSET+2, CHKSET+3, PRINT+9, HEAD1+5, LOC+1
E	HASTB+2~, HASTBTX+2~, HASTBTX+4, NUMDXS+2~, NUMDXS+4
IO	PRINT+12, HEAD+1
IO("S"	EOP+2
IO(0	PRINT+12, HEAD+1
IOF	INFORM+1, PRINT+13, HEAD1+1
IOM	CTR+1, GUIEP+3*
IOSL	PRINT+1
IOST	PRINT+12, HEAD+1, EOP+1
>> IOT	EOP+2
P	HASTB~, HASTBTX~, HASTBTX+1, HASTBTX+4, NUMDXS~, NUMDXS+1, NUMDXS+4
U	CHK1SET+3, CHK1SET+4, CHK1SET+8, HASTBTX+5, REGPROC+5, REGPROC+6, CHKSET+2, CHKSET+3, CHKSET+7, PRINT+9 , HEAD1+4, HEAD1+5, HEAD1+7, USR+1, LOC+1
X	HASTB+2~, HASTBTX+2~, HASTBTX+4, NUMDXS+2~, NUMDXS+4, NUMDXS+5, NUMDXS+6, REGPROC+4, REGPROC+5, REGPROC+6 , CTR~, CTR+1, BDMG+9, GUIEP+5*, GUIEP+6, GUIEP+8
>> XBIOP	BROWSE+2*
>> XBNS	DEMO+4*
>> XBRC	DEMO+4, BROWSE+2
>> XBRP	DEMO+4, BROWSE+1
>> XBRX	DEMO+4, BROWSE+2
Y	GETINFO+4, GETINFO+5, R+3, R+4, R+9, R+13, ZIS+4, HASTBTX+2~, HASTBTX+3, HASTBTX+4 , NUMDXS+2~, NUMDXS+3, NUMDXS+4, NUMDXS+5, NUMDXS+6, NUMDXS+7, HEAD+1, CTR~, CTR+1, BDMG+14 , BDMG+15
>> ZTDESC	BDMG+20*
>> ZTDTH	BDMG+20*
>> ZTIO	BDMG+20*
>> ZTQUEUED	EOP+2
>> ZTREQ	GUIEP+14*
>> ZTRTN	BDMG+20*
ZTSAVE	BDMG+18!
ZTSAVE("*"	BDMG+18*

Customize PDF page

Package: Diabetes Registry

Routine: BDMDR4

Information

Source Information

Call Graph

Call Graph Total: 19

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: