Routine: APCDEREG

Package	Total	Call Graph
VA Fileman	3	^DIC FILE^DICN ^DIR
Asthma Tracking System	1	$$LASTSEV^BATU
IHS Patient	1	($$DOB,$$HRN)^AUPNPAT
IHS VA Utilities	1	^XBFMK
Immunization Tracking	1	AUTOADD^BIPATE
MailMan	1	^XMB
Women's Health	1	$$CDCID^BWUTL5

Entry Points

Name	Comments	DBIA/ICR reference
ASTHMA(PATIENT)	;
GETTYPE	;
CNTCMS()	;
WH(PATIENT)	;
CMS(PATIENT,REGISTER)	;EP
CMSREG	;GET WHICH CMS REGISTER
IMM(PATIENT)	;

External References

Name	Field # of Occurrence
$$DOB^AUPNPAT	ASTHMA+8
$$HRN^AUPNPAT	ASTHMA+8
$$LASTSEV^BATU	ASTHMA+8
AUTOADD^BIPATE	IMM+2
$$CDCID^BWUTL5	WH+10
^DIC	CMSREG+4
FILE^DICN	CMS+5, ASTHMA+3, WH+12
^DIR	GETTYPE+9
^XBFMK	CMSREG+3, CMSREG+5, CMSREG+7
^XMB	ASTHMA+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Sorry I don't know the patient.",! Line Location: APCDEREG+4
Function Call: WRITE	Prompt: !,"The following is a list of registers this patient can be added to." Line Location: GETTYPE+2
Function Call: WRITE	Prompt: !,"If you choose a CASE MANAGEMENT REGISTER you will be prompted to" Line Location: GETTYPE+3
Function Call: WRITE	Prompt: !,"enter which of the ",$$CNTCMS," CMS registers to add the patient to.",! Line Location: GETTYPE+4
Function Call: WRITE	Prompt: !,"CMS Register not selected." Line Location: GETTYPE+12
Function Call: WRITE	Prompt: !! Line Location: CMSREG+1
Function Call: WRITE	Prompt: !!?14,$P(^DPT(PATIENT,0),U)," is already on the ",$P(^ACM(41.1,REGISTER,0),U)," register." Line Location: CMS+1
Function Call: WRITE	Prompt: !!?10,"Adding ",$P(^DPT(PATIENT,0),U),!?13," to the ",$P(^ACM(41.1,REGISTER,0),U)," CMS Register." Line Location: CMS+2
Function Call: WRITE	Prompt: !!,$P(^DPT(PATIENT,0),U)," has been added to the ",$P(^ACM(41.1,REGISTER,0),U)," Register." Line Location: CMS+6
Function Call: WRITE	Prompt: !!,$P(^DPT(PATIENT,0),U)," is already in the Asthma Register.",! Line Location: ASTHMA+1
Function Call: WRITE	Prompt: !! Line Location: ASTHMA+2
Function Call: WRITE	Prompt: !!,"Error encountered when attempting to add this patient to the asthma register." Line Location: ASTHMA+4
Function Call: WRITE	Prompt: !!,$P(^DPT(PATIENT,0),U)," has been added to the Asthma Register." Line Location: ASTHMA+5
Function Call: WRITE	Prompt: !!,"Females Only..." Line Location: WH+1
Function Call: WRITE	Prompt: !!,$P(^DPT(PATIENT,0),U)," is already in the WH Register.",! Line Location: WH+2
Function Call: WRITE	Prompt: !!,$P(^DPT(PATIENT,0),U)," has been added to the Women's Health Register." Line Location: WH+18
Function Call: WRITE	Prompt: !!,$P(^DPT(PATIENT,0),U)," is already in the Immunization Register.",! Line Location: IMM+1
Function Call: WRITE	Prompt: !!,ERR Line Location: IMM+3
Function Call: WRITE	Prompt: !!,$P(^DPT(PATIENT,0),U)," has been added to the immunization Register." Line Location: IMM+4
Routine Call	DIC Line Location: CMSREG+4
Routine Call	DIR Line Location: GETTYPE+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BWP - [#9002086]	Classic Fileman Calls
^ACM(41 - [#9002241]	Classic Fileman Calls
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls
^BATREG - [#90181.01]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	CMS+1
^ACM(41.1 - [#9002241.1]	CMS+1, CMS+2, CMS+6, CNTCMS+1
^APCDREGA - [#9001002.6]	GETTYPE+5, GETTYPE+6, GETTYPE+8, GETTYPE+13
^BATREG - [#90181.01]	ASTHMA+1
^BATSITE - [#90181.05]	ASTHMA+2
^BIP - [#9002084]	IMM+1
^BWP - [#9002086]	WH+2
^BWSITE - [#9002086.02]	WH+6
^DPT - [#2]	GETTYPE+9, CMS+1, CMS+2, CMS+6, ASTHMA+1, ASTHMA+5, ASTHMA+8, WH+1, WH+2, WH+18 , IMM+1, IMM+4

Label References

Name	Line Occurrences
$$CNTCMS	GETTYPE+4
CMSREG	GETTYPE+12
GETTYPE	APCDEREG+5, GETTYPE+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDC	GETTYPE+5~, GETTYPE+6, GETTYPE+7, GETTYPE+8, GETTYPE+14!
APCDCMGR	WH+5~, WH+6*, WH+8
>> APCDCMS	GETTYPE+12, CMSREG+2, CMSREG+6
>> APCDPRMT	WH+7*, WH+14
>> APCDREGT	GETTYPE+1, GETTYPE+11, GETTYPE+13
APCDX	GETTYPE+5~*, GETTYPE+6, GETTYPE+7, GETTYPE+8, GETTYPE+14!
APCDY	GETTYPE+14!
APCDY(	GETTYPE+7*, GETTYPE+13
APCDYY	GETTYPE+6*, GETTYPE+12, GETTYPE+14!
>> AUPNPAT	APCDEREG+4, GETTYPE+9
>> C	CNTCMS+1*, CNTCMS+2
D0	APCDEREG+3~
DA	APCDEREG+3~, GETTYPE+9!, CMS+5!
DD	CMS+3!, CMS+5!, ASTHMA+3!, WH+11!
DI	APCDEREG+3~
DIADD	ASTHMA+3*!
DIC	APCDEREG+3~, CMSREG+4, CMS+3!, CMS+4, CMS+5!, ASTHMA+3, WH+5~, WH+11, WH+12!
DIC("A"	CMSREG+4*
DIC("DR"	CMS+4, ASTHMA+3, WH+8, WH+9, WH+10*
DIC(0	CMSREG+4, CMS+4, ASTHMA+3, WH+11
DIE	CMS+4*, CMS+5!
DINUM	ASTHMA+3!, WH+3
DIR	GETTYPE+9!
DIR("A"	GETTYPE+9*
DIR("B"	GETTYPE+9*
DIR(0	GETTYPE+9*
>> DIRUT	GETTYPE+10
DL	APCDEREG+3~
DLAYGO	ASTHMA+3!, WH+11
DO	CMS+5!, ASTHMA+3!, WH+11!
DP	APCDEREG+3~
DR	CMS+5!
DT	CMS+4, WH+10
DUZ(2	ASTHMA+2, ASTHMA+8, WH+10, IMM+2
>> ERR	IMM+2, IMM+3
PATIENT	CMS~, CMS+1, CMS+2, CMS+4, CMS+6, ASTHMA~, ASTHMA+1, ASTHMA+3, ASTHMA+5, ASTHMA+8 , WH~, WH+1, WH+2, WH+3, WH+10, WH+18, IMM~, IMM+1, IMM+2, IMM+4
REGISTER	CMS~, CMS+1, CMS+2, CMS+4, CMS+6
>> SITE	WH+6
U	GETTYPE+6, GETTYPE+8, GETTYPE+9, CMS+1, CMS+2, CMS+6, ASTHMA+1, ASTHMA+2, ASTHMA+5, ASTHMA+8 , WH+1, WH+2, WH+6, WH+18, IMM+1, IMM+4
X	APCDEREG+3~, CMS+4, ASTHMA+3, WH+3, CNTCMS+1~
XMB	ASTHMA+7!, ASTHMA+9*, ASTHMA+10!
XMB(1	ASTHMA+8*
XMB(2	ASTHMA+8*
XMB(3	ASTHMA+8*
XMB(4	ASTHMA+8*
XMB(5	ASTHMA+8*
Y	APCDEREG+3~, GETTYPE+11, GETTYPE+12, CMSREG+5, CMSREG+6, ASTHMA+4, WH+14, WH+17*

Customize PDF page

Package: Patient Care Component

Routine: APCDEREG

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: