Routine: BDMEDMUP

Information

BDMEDMUP ; IHS/CMI/LAB - EDITS FOR AUPNVSIT (VISIT:9000010) 24-MAY-1993 ; 20 Sep 2013 2:49 PM

Source Information

Call Graph

Call Graph Total: 23

Package	Total	Call Graph
VA Fileman	8	EN^DDIOL ^DDS ^DIC (FILE,YN)^DICN DQ^DICQ ^DIE ^DIK ^DIR
Patient Care Component	6	^APCDALV ^APCDALVR GETVISIT^APCDAPI4 INAC^APCDEA DEDT^APCDEA2 ^APCDEMDI
Diabetes Registry	3	(DENTAL,DEPR,EYE,FLU,FOOT,HEPB,MAM,PAP,PNEU,TD)^BDMEDMU1 (BP,EDUC,EKG,ENDSHF,LAB,MED,PPD,SGHF,TBHF)^BDMEDMU2 (BTLHF,LPHF,REF,RTLHF)^BDMEDMU3
IHS VA Utilities	2	^XBFMK EN^XBVK
Kernel	2	$$FMTE^XLFDT $$UP^XLFSTR
IHS Changes To Scheduling	1	^BSDAPI4
IHS Patient	1	KILL^AUPNPAT

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Diabetes Registry	4	BDMEDMU1 BDMEDMU2 BDMEDMU3 BDMGEA

Entry Points

Name	Comments	DBIA/ICR reference
PROBN	;EP
VSIT01	;EP;9000010,.01 (VISIT,VISIT/ADMIT DATE&TIME)
UPDPCC	;update pcc
EN(BDMEDA,BDMEDMER)	;PEP - called from DM GUI
VSIT01B	;
CTR(X,Y)	;EP - Center X in a field Y wide.
CREATE	;create entry in fileman file
ERR(T)	;EP
EVSIT	;EP - get/create event visit
HT	;
GETPAT	;
SMOKEHF	;
WT	;
XIT	;
PROBNUM(X)	;EP - get problem ien given problem number
BSD	;
DEL
ID	;
REF	;update refusals?
PROB	;

External References

Name	Field # of Occurrence
^APCDALV	EVSIT+11
^APCDALVR	HT+16, WT+16, SMOKEHF+15
GETVISIT^APCDAPI4	BSD+11
INAC^APCDEA	GETPAT+8
DEDT^APCDEA2	BSD+15, EVSIT+13
^APCDEMDI	GETPAT+9
KILL^AUPNPAT	XIT+1
DENTAL^BDMEDMU1	EN+19
DEPR^BDMEDMU1	EN+18
EYE^BDMEDMU1	EN+17
FLU^BDMEDMU1	EN+22
FOOT^BDMEDMU1	EN+16
HEPB^BDMEDMU1	EN+25
MAM^BDMEDMU1	EN+21
PAP^BDMEDMU1	EN+20
PNEU^BDMEDMU1	EN+23
TD^BDMEDMU1	EN+24
BP^BDMEDMU2	EN+12
EDUC^BDMEDMU2	EN+28
EKG^BDMEDMU2	EN+27
ENDSHF^BDMEDMU2	EN+34
LAB^BDMEDMU2	EN+29
MED^BDMEDMU2	EN+30
PPD^BDMEDMU2	EN+26
SGHF^BDMEDMU2	EN+15
TBHF^BDMEDMU2	EN+14
BTLHF^BDMEDMU3	EN+33
LPHF^BDMEDMU3	EN+32
REF^BDMEDMU3	REF+4
RTLHF^BDMEDMU3	EN+31
^BSDAPI4	EVSIT+1
EN^DDIOL	VSIT01+1, VSIT01+4, VSIT01B+1, VSIT01B+2, VSIT01B+3, PROBN+5, PROBN+6, PROBN+7, PROBN+9
^DDS	BDMEDMUP+24
^DIC	GETPAT+4
FILE^DICN	CREATE+3
YN^DICN	GETPAT+6
DQ^DICQ	PROBNUM+12
^DIE	PROB+8
^DIK	DEL
^DIR	BDMEDMUP+10, BDMEDMUP+18, REF+1
^XBFMK	XIT+4, PROB+7, PROB+10, SMOKEHF+28, CREATE+2, CREATE+6
EN^XBVK	XIT+3
$$FMTE^XLFDT	PROB+8, HT+9, WT+9, SMOKEHF+9
$$UP^XLFSTR	PROBN+2, PROBNUM+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR("DMS DATA ENTRY",80) Line Location: BDMEDMUP+4
Function Call: WRITE	Prompt: !!,$$CTR("Diabetes Patient Data Update",80) Line Location: BDMEDMUP+5
Function Call: WRITE	Prompt: ! Line Location: BDMEDMUP+6
Function Call: WRITE	Prompt: !!,"The data you enter for the above patient will be updated in the PCC",!,"database.",! Line Location: BDMEDMUP+9
Function Call: WRITE	Prompt: !!,"Okay, one more thing ... If you intend to update the DM Date of Onset, you" Line Location: BDMEDMUP+13
Function Call: WRITE	Prompt: !,"must have the patient's DM problem number available from the problem list" Line Location: BDMEDMUP+14
Function Call: WRITE	Prompt: !,"The problem number must be entered in the correct field in the following" Line Location: BDMEDMUP+15
Function Call: WRITE	Prompt: !,"format: XXnn, where XX is the facility abbreviation and nn is the" Line Location: BDMEDMUP+16
Function Call: WRITE	Prompt: !,"problem number, e.g.: MU7",! Line Location: BDMEDMUP+17
Function Call: WRITE	Prompt: !!,"Exiting..." Line Location: BDMEDMUP+22
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: BDMEDMUP+25
Function Call: WRITE	Prompt: !!,"the following errors occurred when updating PCC" Line Location: BDMEDMUP+27
Function Call: WRITE	Prompt: !?5,BDMEDMER(X) Line Location: BDMEDMUP+28
Function Call: WRITE	Prompt: !!,"Updating PCC database....hold on a moment...",! Line Location: UPDPCC+1
Function Call: WRITE	Prompt: ! Line Location: GETPAT+2
Routine Call	DIE Line Location: PROB+8
Routine Call	DDS Line Location: BDMEDMUP+24
Routine Call	DIC Line Location: GETPAT+4
Routine Call	DIR Line Location: BDMEDMUP+10 BDMEDMUP+18 REF+1

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNPROB - [#9000011]	Classic Fileman Calls
^BDMEDMUP - [#9003203.2]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	BSD+5, EVSIT+9
^AUPNPROB("AA"	PROBN+9, PROBNUM+10
^AUPNVHF - [#9000010.23]	SMOKEHF+8
^AUPNVHF("AD"	SMOKEHF+8
^AUPNVMSR - [#9000010.01]	HT+8, WT+8
^AUPNVMSR("AD"	HT+8, WT+8
^AUPNVSIT - [#9000010]	HT+9, WT+9, SMOKEHF+9
^AUTTHF - [#9999999.64]	SMOKEHF+5, SMOKEHF+9
^AUTTLOC - [#9999999.06]	PROBN+9
^AUTTLOC("D"	PROBN+6, PROBNUM+7
^AUTTMSR("B"	HT+5, WT+5
^BDMEDMUP - [#9003203.2]	EN+4, EN+5, EN+6
^BDMESITE(	GETPAT+3

Label References

Name	Line Occurrences
$$CTR	BDMEDMUP+4, BDMEDMUP+5
$$PROBNUM	PROB+4
BSD	EVSIT+2
CREATE	BDMEDMUP+21
DEL	BDMEDMUP+25, REF+2, REF+3
EN	UPDPCC+2
ERR	PROB+5, PROB+9, HT+7, HT+9, HT+17, WT+7, WT+9, WT+17, SMOKEHF+7, SMOKEHF+9 , SMOKEHF+16, CREATE+4
EVSIT	HT+6, WT+6, SMOKEHF+6
GETPAT	BDMEDMUP+7
HT	EN+10
PROB	EN+9
REF	BDMEDMUP+30
SMOKEHF	EN+13
UPDPCC	BDMEDMUP+26
VSIT01B	VSIT01+3
WT	EN+11
XIT	BDMEDMUP+8, BDMEDMUP+11, BDMEDMUP+12, BDMEDMUP+19, BDMEDMUP+20, BDMEDMUP+22, BDMEDMUP+25, BDMEDMUP+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GETPAT+6*
APCDALVR	HT+10!, HT+18!, WT+10!, WT+18!, SMOKEHF+10!, SMOKEHF+17!, BSD+9!, EVSIT+4!, EVSIT+14!
APCDALVR("APCDAFLG"	HT+17, WT+17, SMOKEHF+16
APCDALVR("APCDATMP"	HT+13, WT+13, SMOKEHF+13*
APCDALVR("APCDAUTO"	EVSIT+5*
APCDALVR("APCDCAT"	EVSIT+7*
APCDALVR("APCDDATE"	EVSIT+10*
APCDALVR("APCDLOC"	EVSIT+8*
APCDALVR("APCDPAT"	HT+11, WT+11, SMOKEHF+11, EVSIT+6
APCDALVR("APCDTHF"	SMOKEHF+14*
APCDALVR("APCDTTYP"	HT+14, WT+14
APCDALVR("APCDTVAL"	HT+15, WT+15
APCDALVR("APCDTYPE"	EVSIT+9*
APCDALVR("APCDVSIT"	HT+12, WT+12, SMOKEHF+12*, EVSIT+12, EVSIT+13
>> AUPNDOB	VSIT01+3, VSIT01B+3
>> AUPNDOD	VSIT01+3, VSIT01B+2
>> AUPNLK("INAC"	GETPAT+3*
>> AUPNPAT	EN+8*, VSIT01+1, PROBN+9, PROBNUM+10
>> AUPNTALK	VSIT01+1, VSIT01+4, VSIT01B+1, VSIT01B+2, VSIT01B+3
BDMEBSDV	BSD+10!, BSD+11
BDMEBSDV(	BSD+15
BDMEBSDV(0	BSD+12, BSD+14
>> BDMED	PROB+6*, PROB+8
BDMEDA	BDMEDMUP+21, BDMEDMUP+22, BDMEDMUP+24, UPDPCC+2, EN~, EN+4, EN+5, EN+6, DEL, CREATE+1 , CREATE+5*
>> BDMEDMDT	HT+4, WT+4, SMOKEHF+3, BSD+3, EVSIT+10, ID+1
BDMEDMER	BDMEDMUP+27, UPDPCC+2, EN~, EN+3!
BDMEDMER(	BDMEDMUP+28, ERR+1*
>> BDMEDMPT	BDMEDMUP+7, BDMEDMUP+8, EN+8, HT+11, WT+11, SMOKEHF+11, BSD+2, EVSIT+6, CREATE+3, GETPAT+1* , GETPAT+7, GETPAT+8
>> BDMEERR	EN+2, ERR+1
>> BDMEFVOK	VSIT01B+1
BDMEIN	BSD+1!, BSD+11
BDMEIN("PAT"	BSD+2*
BDMEIN("SITE"	BSD+4*
BDMEIN("SRV C	AT" , BSD+6*
BDMEIN("TIME	RANGE" , BSD+7*
BDMEIN("USR"	BSD+8*
BDMEIN("VISIT	DATE" , BSD+3, TYPE" , BSD+5
>> BDMEMCAT	SMOKEHF+5*
>> BDMEMTYP	HT+5, HT+8, HT+14, WT+5, WT+8, WT+14, SMOKEHF+4*, SMOKEHF+5, SMOKEHF+8, SMOKEHF+14
>> BDMEN	PROB+4*, PROB+5, PROB+8
>> BDMEPARM	GETPAT+6
BDMEPI	PROBN+1~, PROBN+4, PROBNUM+2~, PROBNUM+5
BDMEPLOC	PROBN+1~, PROBN+6, PROBN+9, PROBNUM+2~, PROBNUM+7, PROBNUM+10
BDMEPN	PROBN+1~, PROBN+7, PROBN+8, PROBN+9, PROBNUM+2~, PROBNUM+8, PROBNUM+9, PROBNUM+10
BDMEPPL	PROBN+1~, PROBN+4, PROBN+5, PROBN+6, PROBN+7, PROBNUM+2~, PROBNUM+5, PROBNUM+6, PROBNUM+7, PROBNUM+8
>> BDMEREC	EN+5*, EN+8, PROB+1, PROB+2, PROB+3, PROB+6, HT+2, HT+3, HT+4, HT+8 , HT+9, HT+15, WT+2, WT+3, WT+4, WT+8, WT+9, WT+15, SMOKEHF+2, SMOKEHF+4 , SMOKEHF+9
>> BDMEREC1	EN+6*, SMOKEHF+3
BDMEVSIT	HT+1!, HT+7, HT+8, HT+9, HT+12, WT+1!, WT+7, WT+8, WT+9, WT+12 , SMOKEHF+1!, SMOKEHF+7, SMOKEHF+8, SMOKEHF+9, SMOKEHF+12, BSD+14, BSD+15, EVSIT+3!, EVSIT+12, EVSIT+13
D	PROBNUM+12~*!
D0	CREATE+3!
DA	BDMEDMUP+10!, BDMEDMUP+18!, BDMEDMUP+24, DEL, REF+1!, PROB+8*, PROBNUM+12~
DD	CREATE+3!
>> DDSFILE	BDMEDMUP+24*
DIADD	XIT+2!, SMOKEHF+28!, CREATE+3*, CREATE+6!
DIC	CREATE+3, GETPAT+4!, PROBNUM+12~*!
DIC("DR"	CREATE+3*
DIC(0	CREATE+3, GETPAT+4, PROBNUM+12*
>> DIE	PROB+8*
>> DIK	DEL*
DIMSG	BDMEDMUP+25!
DIR	BDMEDMUP+10!, BDMEDMUP+18!, REF+1!
DIR("A"	BDMEDMUP+10, BDMEDMUP+18, REF+1*
DIR("B"	BDMEDMUP+10, BDMEDMUP+18, REF+1*
DIR(0	BDMEDMUP+10, BDMEDMUP+18, REF+1*
>> DIRUT	BDMEDMUP+11, BDMEDMUP+19, REF+2
DLAYGO	XIT+2!, SMOKEHF+28!, CREATE+3*, CREATE+6!
DO	CREATE+3!
>> DR	BDMEDMUP+24, PROB+8
DT	SMOKEHF+3, VSIT01+3, VSIT01B+1
DUZ	BSD+8
DUZ("AG"	GETPAT+9, VSIT01B+2
DUZ(2	BSD+4, BSD+5, EVSIT+8, EVSIT+9, GETPAT+3
DZ	PROBNUM+12~*
>> G	HT+8, HT+9, WT+8, WT+9, SMOKEHF+8*, SMOKEHF+9
IOF	BDMEDMUP+3
IOM	CTR+1
>> N	PROB+3*, PROB+4, PROB+5, PROB+9
P	PROBNUM+2~, PROBNUM+10*, PROBNUM+11
T	ERR~, ERR+1, PROB+5, PROB+9, HT+7, HT+9, HT+17, WT+7, WT+9, WT+17 , SMOKEHF+7, SMOKEHF+9, SMOKEHF+16, BSD+12, BSD+13, CREATE+4*
U	EN+8, PROB+1, PROB+2, PROB+3, PROB+6, HT+2, HT+3, HT+4, HT+8, HT+9 , HT+15, WT+2, WT+3, WT+4, WT+8, WT+9, WT+15, SMOKEHF+2, SMOKEHF+3, SMOKEHF+4 , SMOKEHF+5, SMOKEHF+8, SMOKEHF+9, BSD+5, BSD+12, EVSIT+9, GETPAT+3, GETPAT+6, PROBN+9
>> V	BSD+14*, BSD+15
X	BDMEDMUP+28, HT+8, WT+8, SMOKEHF+8, CREATE+3, GETPAT+8, VSIT01+1!, VSIT01+2, VSIT01+5!, VSIT01B+1! , VSIT01B+2!, VSIT01B+3!, PROBN+2, PROBN+3, PROBN+4, PROBN+5!, PROBN+6!, PROBN+7!, PROBN+9!, PROBNUM~ , PROBNUM+1, PROBNUM+3, PROBNUM+4, PROBNUM+5, PROBNUM+8, CTR~, CTR+1
Y	BDMEDMUP+12, BDMEDMUP+20, REF+3, PROB+9, CREATE+4, CREATE+5, GETPAT+5, GETPAT+7, PROBNUM+12!, CTR~ , CTR+1
>> ZTQUEUED	VSIT01+1, VSIT01+4, VSIT01B+1, VSIT01B+2, VSIT01B+3

Customize PDF page

Package: Diabetes Registry

Routine: BDMEDMUP

Information

Source Information

Call Graph

Call Graph Total: 23

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items