Routine: APCDTWC2

Information

APCDTWC2 ; IHS/CMI/LAB - GENERATED FROM 'APCD WCE (ADD)' INPUT TEMPLATE(#XXX), FILE 9000010 01 Aug 2006 5:01 PM ;

Source Information

Source file <APCDTWC2.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Patient Care Component	2	(ARR,RANGE)^APCDTWC EVWCFILE^APCDTWC1
VA Fileman	2	^DIK ^DIR
IHS VA Utilities	1	^XBFMK
Kernel	1	$$FMADD^XLFDT

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
PCC New Encounter Form	3	VENPCCQB VENPCCQC VENPCCQY
Patient Care Component	2	APCDTWC APCDTWC1

Entry Points

Name	Comments	DBIA/ICR reference
EXAM	; EP - ENTER SPECIAL EXAMS AND SCREENING PROCEDURES
DOBAGE(DFN,VDT)	; GIVEN A DFN, RETURN THE DOB AGE IN MONTHS ; PATCHED BY GIS 1/7/07
ASQDOB(DFN,VDT)	; EP - GIVEN A DFN, RETURN THE ADJUSTED (ASQ) DOB ; PATCHED BY GIS 1/7/07
EFILE	; FILE EXAMS IN V WC AND V EXAM
A1
CLEANUP	;EP - CLEANUP
ASQIEN(M)	; EP - GIVEN THE ASQ AGE IN MONTHS, RETURN THE CURRENT ASQ FORM IEN^IEN OF THE NEXT FORM
ASQAGE(DFN,VDT)	;EP - GIVEN A DFN, RETURN THE ASQ AGE IN MONTHS ; PATCHED BY GIS 1/7/07
EQ
A2
EX(TYPE)	;EP - MANAGE SELECTIONS

External References

Name	Field # of Occurrence
ARR^APCDTWC	EX+6
RANGE^APCDTWC	EX+19
EVWCFILE^APCDTWC1	EFILE+1
^DIK	CLEANUP+2
^DIR	EQ+2
^XBFMK	EQ+3
$$FMADD^XLFDT	ASQDOB+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Select EXAM TYPE" Line Location: EQ+0
Function Call: WRITE	Prompt: !,"No ",TITLE," items are available for this visit" Line Location: EX+7
Function Call: WRITE	Prompt: !!,"Select ",TITLE,"(s)" Line Location: EX+18
Function Call: WRITE	Prompt: !,DA Line Location: CLEANUP+2
Routine Call	DIR Line Location: EQ+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VEN(7.12 - [#19707.12]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNBMSR - [#9000024]	ASQDOB+7
^AUPNVWC - [#9000010.46]	EX+14
^AUPNVWC("AD"	EX+8
^AUTTASQ("B"	ASQIEN+5, ASQIEN+6, ASQIEN+7, ASQIEN+8, ASQIEN+9, ASQIEN+10, ASQIEN+11, ASQIEN+12
^DPT - [#2]	DOBAGE+4, ASQDOB+4
^VEN(7.12 - [#19707.12]	CLEANUP+2

Label References

Name	Line Occurrences
$$ASQDOB	ASQAGE+5
$$DOBAGE	ASQDOB+6
A1	DOBAGE+6
A2	ASQDOB+6
EQ	EQ+4, EQ+7
EX	EQ+4, EQ+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXAM+1~, ASQDOB+2~, ASQDOB+8*
AGIEN	EXAM+1~
>> APCDVSIT	EX+8
ARR	EXAM+1~, EX+6, EX+7, EX+17, EX+19, EFILE+2!
ARR(	EX+10, EX+11, EX+14*
>> AUPNPAT	EX+6
D1	ASQAGE+2~, A1*, A1+4, DOBAGE+2~
D2	ASQAGE+2~, A1+1*, A1+4, DOBAGE+2~
>> DA	CLEANUP+2*
DFN	ASQAGE~, ASQAGE+5, DOBAGE~, DOBAGE+4, ASQDOB~, ASQDOB+4, ASQDOB+6, ASQDOB+7
>> DIK	CLEANUP+1*
DIR	EXAM+1~, EQ+2!
DIR("A"	EQ+2*
DIR(0	EQ+1*
DOB	ASQAGE+2~, ASQAGE+5, A1, DOBAGE+2~, DOBAGE+4, DOBAGE+5, ASQDOB+2~, ASQDOB+4, ASQDOB+5, ASQDOB+8 , A2, A2+1
DOM	EXAM+1~, EQ+5, EX+5, EX+6
DT	ASQAGE+4, DOBAGE+3, ASQDOB+3
FTIME	EXAM+1~
GA	ASQDOB+2~, ASQDOB+7*, ASQDOB+8
GRP	EXAM+1~
IEN	ASQIEN+1~, ASQIEN+5, ASQIEN+6, ASQIEN+7, ASQIEN+8, ASQIEN+9, ASQIEN+10, ASQIEN+11, ASQIEN+12
IEN2	ASQIEN+1~, ASQIEN+4, ASQIEN+6, ASQIEN+8, ASQIEN+10, ASQIEN+12*
LOU	EXAM+1~
M	ASQAGE+2~, A1+5*, A1+6, DOBAGE+2~, ASQIEN~, ASQIEN+2, ASQIEN+3, ASQIEN+5, ASQIEN+6, ASQIEN+7 , ASQIEN+9, ASQIEN+11, ASQIEN+12
M1	ASQAGE+2~, A1*, A1+2, A1+3, DOBAGE+2~
M2	ASQAGE+2~, A1+1, A1+2, A1+3, DOBAGE+2~
MD	ASQAGE+2~, A1+3, A1+4, A1+5, DOBAGE+2~
>> NAME	CLEANUP+1, CLEANUP+2
SS	EXAM+1~, EX+4*, EX+14, EFILE+1
TIME	EXAM+1~
TITLE	EXAM+1~, EX+2*, EX+3, EX+7, EX+18
TOT	EXAM+1~, EX+10*, EX+11, EX+14
TYPE	EXAM+1~, EQ+6*, EX~, EX+1, EX+2, EX+4, EX+6
U	DOBAGE+4, ASQDOB+4, ASQDOB+7, ASQIEN+6, ASQIEN+8, ASQIEN+10, ASQIEN+12
VDT	ASQAGE~, ASQAGE+4, ASQAGE+5, A1+1, DOBAGE~, DOBAGE+3, ASQDOB~, ASQDOB+3*, ASQDOB+6, A2
>> VWCIEN	EX+8*, EX+9, EX+14
WVCIEN	EXAM+1~
X	EXAM+1~, EX+11, EX+12, EX+13, EX+14, ASQIEN+1~, ASQIEN+7, ASQIEN+8, ASQIEN+9, ASQIEN+10 , ASQIEN+11
Y	EQ+3, EQ+4, ASQIEN+1~, ASQIEN+6, ASQIEN+8, ASQIEN+10, ASQIEN+12*
Y1	ASQAGE+2~, A1*, A1+3, DOBAGE+2~
Y2	ASQAGE+2~, A1+1, A1+2, A1+3, DOBAGE+2~
YD	ASQAGE+2~, A1+3*, A1+5, DOBAGE+2~

Customize PDF page

Package: Patient Care Component

Routine: APCDTWC2

Call Graph Total: 6

Caller Graph Total: 5