Routine: APCDDMUP

Information

APCDDMUP ; IHS/CMI/LAB - EDITS FOR AUPNVSIT (VISIT:9000010) 24-MAY-1993 ;

Source Information

Call Graph

Call Graph Total: 23

Package	Total	Call Graph
Patient Care Component	9	^APCDALV ^APCDALVR GETVISIT^APCDAPI4 (DENTAL,DEPR,EYE,FLU,FOOT,MAM,PAP,PNEU,TD)^APCDDMU1 (BP,EDUC,EKG,LAB,MED,PPD,SGHF,TBHF)^APCDDMU2 (BTLHF,LPHF,REF,RTLHF)^APCDDMU3 INAC^APCDEA DEDT^APCDEA2 ^APCDEMDI
VA Fileman	8	EN^DDIOL ^DDS ^DIC (FILE,YN)^DICN DQ^DICQ ^DIE ^DIK ^DIR
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: 5

Package	Total	Caller Graph
Patient Care Component	3	APCDDMU1 APCDDMU2 APCDDMU3
Diabetes Registry	1	BDMGUB
IHS Personal Health Record	1	BPHRCHK

Entry Points

Name	Comments	DBIA/ICR reference
PROBN	;EP
VSIT01	;EP;9000010,.01 (VISIT,VISIT/ADMIT DATE&TIME)
EN(APCDDA,APCDDMER)	;PEP - called from DM GUI
UPDPCC	;update pcc
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
DENTAL^APCDDMU1	EN+17
DEPR^APCDDMU1	EN+16
EYE^APCDDMU1	EN+15
FLU^APCDDMU1	EN+20
FOOT^APCDDMU1	EN+14
MAM^APCDDMU1	EN+19
PAP^APCDDMU1	EN+18
PNEU^APCDDMU1	EN+21
TD^APCDDMU1	EN+22
BP^APCDDMU2	EN+10
EDUC^APCDDMU2	EN+25
EKG^APCDDMU2	EN+24
LAB^APCDDMU2	EN+26
MED^APCDDMU2	EN+27
PPD^APCDDMU2	EN+23
SGHF^APCDDMU2	EN+13
TBHF^APCDDMU2	EN+12
BTLHF^APCDDMU3	EN+30
LPHF^APCDDMU3	EN+29
REF^APCDDMU3	REF+4
RTLHF^APCDDMU3	EN+28
INAC^APCDEA	GETPAT+8
DEDT^APCDEA2	BSD+15, EVSIT+13
^APCDEMDI	GETPAT+9
KILL^AUPNPAT	XIT+1
^BSDAPI4	EVSIT+1
EN^DDIOL	VSIT01+1, VSIT01+4, VSIT01B+1, VSIT01B+2, VSIT01B+3, PROBN+5, PROBN+6, PROBN+7, PROBN+9
^DDS	APCDDMUP+24
^DIC	GETPAT+4
FILE^DICN	CREATE+3
YN^DICN	GETPAT+6
DQ^DICQ	PROBNUM+12
^DIE	PROB+8
^DIK	DEL
^DIR	APCDDMUP+10, APCDDMUP+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("PCC DATA ENTRY",80) Line Location: APCDDMUP+4
Function Call: WRITE	Prompt: !!,$$CTR("Diabetes Patient Data Update",80) Line Location: APCDDMUP+5
Function Call: WRITE	Prompt: ! Line Location: APCDDMUP+6
Function Call: WRITE	Prompt: !!,"The data you enter for the above patient will be updated in the PCC",!,"database.",! Line Location: APCDDMUP+9
Function Call: WRITE	Prompt: !!,"Okay, one more thing ... If you intend to update the DM Date of Onset, you" Line Location: APCDDMUP+13
Function Call: WRITE	Prompt: !,"must have the patient's DM problem number available from the problem list" Line Location: APCDDMUP+14
Function Call: WRITE	Prompt: !,"The problem number must be entered in the correct field in the following" Line Location: APCDDMUP+15
Function Call: WRITE	Prompt: !,"format: XXnn, where XX is the facility abbreviation and nn is the" Line Location: APCDDMUP+16
Function Call: WRITE	Prompt: !,"problem number, e.g.: MU7",! Line Location: APCDDMUP+17
Function Call: WRITE	Prompt: !!,"Exiting..." Line Location: APCDDMUP+22
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: APCDDMUP+25
Function Call: WRITE	Prompt: !!,"the following errors occurred when updating PCC" Line Location: APCDDMUP+27
Function Call: WRITE	Prompt: !?5,APCDDMER(X) Line Location: APCDDMUP+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: APCDDMUP+24
Routine Call	DIC Line Location: GETPAT+4
Routine Call	DIR Line Location: APCDDMUP+10 APCDDMUP+18 REF+1

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

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	BSD+5, EVSIT+9
^APCDDMUP - [#9001002.2]	EN+3, EN+4
^APCDSITE - [#9001001.2]	GETPAT+3
^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

Label References

Name	Line Occurrences
$$CTR	APCDDMUP+4, APCDDMUP+5
$$PROBNUM	PROB+4
BSD	EVSIT+2
CREATE	APCDDMUP+21
DEL	APCDDMUP+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	APCDDMUP+7
HT	EN+8
PROB	EN+7
REF	APCDDMUP+30
SMOKEHF	EN+11
UPDPCC	APCDDMUP+26
VSIT01B	VSIT01+3
WT	EN+9
XIT	APCDDMUP+8, APCDDMUP+11, APCDDMUP+12, APCDDMUP+19, APCDDMUP+20, APCDDMUP+22, APCDDMUP+25, APCDDMUP+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
APCDBSDV	BSD+10!, BSD+11
APCDBSDV(	BSD+15
APCDBSDV(0	BSD+12, BSD+14
>> APCDD	PROB+6*, PROB+8
APCDDA	APCDDMUP+21, APCDDMUP+22, APCDDMUP+24, UPDPCC+2, EN~, EN+3, EN+4, DEL, CREATE+1, CREATE+5*
>> APCDDMDT	HT+4, WT+4, SMOKEHF+3, BSD+3, EVSIT+10, ID+1
APCDDMER	APCDDMUP+27, UPDPCC+2, EN~, EN+2!
APCDDMER(	APCDDMUP+28, ERR+1*
>> APCDDMPT	APCDDMUP+7, APCDDMUP+8, EN+6, HT+11, WT+11, SMOKEHF+11, BSD+2, EVSIT+6, CREATE+3, GETPAT+1* , GETPAT+7, GETPAT+8
>> APCDERR	EN+1, ERR+1
>> APCDFVOK	VSIT01B+1
APCDIN	BSD+1!, BSD+11
APCDIN("PAT"	BSD+2*
APCDIN("SITE"	BSD+4*
APCDIN("SRV C	AT" , BSD+6*
APCDIN("TIME	RANGE" , BSD+7*
APCDIN("USR"	BSD+8*
APCDIN("VISIT	DATE" , BSD+3, TYPE" , BSD+5
>> APCDMCAT	SMOKEHF+5*
>> APCDMTYP	HT+5, HT+8, HT+14, WT+5, WT+8, WT+14, SMOKEHF+4*, SMOKEHF+5, SMOKEHF+8, SMOKEHF+14
>> APCDN	PROB+4*, PROB+5, PROB+8
>> APCDPARM	GETPAT+6
APCDPI	PROBN+1~, PROBN+4, PROBNUM+2~, PROBNUM+5
APCDPLOC	PROBN+1~, PROBN+6, PROBN+9, PROBNUM+2~, PROBNUM+7, PROBNUM+10
APCDPN	PROBN+1~, PROBN+7, PROBN+8, PROBN+9, PROBNUM+2~, PROBNUM+8, PROBNUM+9, PROBNUM+10
APCDPPL	PROBN+1~, PROBN+4, PROBN+5, PROBN+6, PROBN+7, PROBNUM+2~, PROBNUM+5, PROBNUM+6, PROBNUM+7, PROBNUM+8
>> APCDREC	EN+3*, EN+6, 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
>> APCDREC1	EN+4*, SMOKEHF+3
APCDVSIT	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
>> AUPNDOB	VSIT01+3, VSIT01B+3
>> AUPNDOD	VSIT01+3, VSIT01B+2
>> AUPNLK("INAC"	GETPAT+3*
>> AUPNPAT	EN+6*, VSIT01+1, PROBN+9, PROBNUM+10
>> AUPNTALK	VSIT01+1, VSIT01+4, VSIT01B+1, VSIT01B+2, VSIT01B+3
D	PROBNUM+12~*!
D0	CREATE+3!
DA	APCDDMUP+10!, APCDDMUP+18!, APCDDMUP+24, DEL, REF+1!, PROB+8*, PROBNUM+12~
DD	CREATE+3!
>> DDSFILE	APCDDMUP+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	APCDDMUP+25!
DIR	APCDDMUP+10!, APCDDMUP+18!, REF+1!
DIR("A"	APCDDMUP+10, APCDDMUP+18, REF+1*
DIR("B"	APCDDMUP+10, APCDDMUP+18, REF+1*
DIR(0	APCDDMUP+10, APCDDMUP+18, REF+1*
>> DIRUT	APCDDMUP+11, APCDDMUP+19, REF+2
DLAYGO	XIT+2!, SMOKEHF+28!, CREATE+3*, CREATE+6!
DO	CREATE+3!
>> DR	APCDDMUP+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	APCDDMUP+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+6, 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	APCDDMUP+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	APCDDMUP+12, APCDDMUP+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: Patient Care Component

Routine: APCDDMUP

Information

Source Information

Call Graph

Call Graph Total: 23

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items