Routine: APCDTWC1

Information

APCDTWC1 ; IHS/CMI/LAB - CONTINUATION OF APCDTWC ;

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA Fileman	5	^DIC YN^DICN ^DIE ^DIK ^DIR
IHS VA Utilities	1	^XBFMK
Kernel	1	$$UP^XLFSTR
Patient Care Component	1	($$ASQAGE,$$ASQIEN)^APCDTWC2

Caller Graph

Caller Graph Total: 5

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

Entry Points

Name	Comments	DBIA/ICR reference
PEWCFILE(LOU,TIME,EDU)	;EP - MAKE V WELL CHILD ENTRIES
EXVADD	; MAKE NEW V FILE ENTRY
VMSR(VIEN,TYPE)	;EP - FIND OR CREATE A V MEASUREMENT ENTRY
VWC(DFN,VIEN)	;EP - RETURN THE V WELL CHILD IEN - CREATE A NEW ONE IF NECESSARY
VPECLEAN	; CLEAN SLATE FOR ALL TOPICS IN THE LIST
EXFILE	;EP - MAKE V EXAM ENTRIES ; NEED NEW EXAM TYPE: 'WELL CHILD SCREENING' - DONE ; NEED MULTIPLE UNDER V EXAM FOR SPECIFIC EXAMS - DONE
LOU(TITLE,LOU,TIME,FTIME,EDU)	;EP - GET LEVEL OF UNDERSTANDING, TOTAL PT ED TIME AND FRACTIONAL PT ED TIME, EDUCATOR
NX
FX
CODE(CODE)	;EP - RETURN THE IEN OF THE MOST RECENT VALID/ACTIVE INSTANCE OF A PT ED CODE
FEED1
FEED(VIEN)	;EP - INFANT FEEDING PRACTICES
E1	; V WC SUBFILE ENTRY
EXVCLEAN	; CLEAN OUT ALL V EXAM ENTRIES ASSOCIATED WITH THIS VISIT AND THE EXAM LIST
VPEFILE(LOU,FTIME,EDU)	;EP - MAKE V PATIENT ED ENTRIES
CLN
ASK1
ASK2
ASQM(VIEN)	; RETURN THE ASQ QUESTIONNAIRE (MOS)
UVAR	; USER VARIEBLES
EX
ASKASQ(PCE)	;EP - GET AQS SCORE AND FILE IT
N1	; NUTR COUNSELING FIELDS
N2	; V WC NURT SUBFILE ENTRY
ASQVMSR(PCE)	; FILE ASQ SCORES IN V MEASUREMNTS
F1	; PT ED FIELDS ; VALUES APPLY TO ENTIRE SESSION - NOT JUST A SINGLE TOPIC
F2	; V WELL CHILD PT ED SUBFILE ENTRY
VPEADD	; ADD PATIENT ED ENTRIES IN V PATIENT ED - ONE FOR EACH PT ED CODE WITH SUB-TOPICS IN THE '1' MULTIPLE
EVWCFILE(SS,GUIFLAG)	;EP - FILE EXAMS IN V WC
CLEANVWC(VWCIEN)	;EP - CLEANUP PREVIOUS ENTRIES
TIME
ASQFILE	;EP - RECORD ASQ RESULTS IN V WELL CHILD AND THEN REDUNDANTLY FILE THEM IN V MEASUREMENT
NVWCFILE(LOU,TIME,EDU)	;EP - MAKE V WC NUTR ENTRIES
ASQX

External References

Name	Field # of Occurrence
$$ASQAGE^APCDTWC2	ASQM+4
$$ASQIEN^APCDTWC2	ASQM+5
^DIC	VWC+5, E1+7, VMSR+8, FEED1, EXVADD+5, EXVADD+10, N2+6, F2+6, VPEADD+8, VPEADD+19 , LOU+8
YN^DICN	FEED+7
^DIE	VWC+8, E1+11, ASQFILE+5, ASK2+1, ASQVMSR+8, FEED1+2, EXVADD+7, N1+6, F1+6, VPEADD+11
^DIK	FEED+15, EXVCLEAN+6, CLN, VPECLEAN+5
^DIR	ASK1+3, FEED+11, LOU+12, TIME+2
^XBFMK	EX, ASQX, FEED+14, FEED1+3, EXVADD+13, NX, FX, CLN+3, VPEADD+22, TIME+3 , TIME+11
$$UP^XLFSTR	UVAR+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,X Line Location: E1+10
Function Call: WRITE	Prompt: ! Line Location: E1+12
Function Call: WRITE	Prompt: !!,"No ASQ scores should be entered on this visit!!",!! Line Location: ASQFILE+3
Function Call: WRITE	Prompt: !,"You must specify which form is used before entering results!" Line Location: ASQFILE+7
Function Call: WRITE	Prompt: " ??",!,"A valid score must be a multipe of 5 (0,5,10,15...)" Line Location: ASK1+5
Function Call: WRITE	Prompt: !!,"If possible, record the level of understanding and duration of ",TITLE,"session" Line Location: LOU+9
Routine Call	DIE Line Location: VWC+8 E1+11 ASQFILE+5 ASK2+1 ASQVMSR+8 FEED1+2 EXVADD+7 N1+6 F1+6 VPEADD+11
Routine Call	DIC Line Location: VWC+5 E1+7 VMSR+8 FEED1 EXVADD+5 EXVADD+10 N2+6 F2+6 VPEADD+8 VPEADD+19 LOU+8
Routine Call	DIR Line Location: ASK1+3 FEED+11 LOU+12 TIME+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVMSR - [#9000010.01]	Classic Fileman Calls
^AUPNVXAM - [#9000010.13]	Classic Fileman Calls
^AUPNVPED - [#9000010.16]	Classic Fileman Calls
^AUPNVIF - [#9000010.44]	Classic Fileman Calls
^AUPNVWC - [#9000010.46]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVIF - [#9000010.44]	FEED+8, FEED1+2
^AUPNVIF("AD"	FEED+5
^AUPNVMSR - [#9000010.01]	ASQVMSR+7, ASQVMSR+8, VMSR+4
^AUPNVMSR("AD"	VMSR+4
^AUPNVPED - [#9000010.16]	VPECLEAN+3, VPEADD+11
^AUPNVPED("AD"	VPECLEAN+2
^AUPNVSIT - [#9000010]	ASQM+2, ASQM+3, FEED+2
^AUPNVWC - [#9000010.46]	VWC+8, EVWCFILE+6!, ASQFILE+5, ASQFILE+6, ASQFILE+11, ASK1+2, ASK2+1, NVWCFILE+5!, N1+6, F1+6 , CLEANVWC+4, CLEANVWC+5, LOU+4, LOU+7
^AUPNVWC("AD"	VWC+3, LOU+3
^AUPNVXAM - [#9000010.13]	EXVCLEAN+3, EXVADD+7
^AUPNVXAM("AD"	EXVCLEAN+2
^AUTTEDT - [#9999999.09]	VPECLEAN+4, CODE+4
^AUTTEDT("C"	CODE+3
^AUTTEXAM - [#9999999.15]	EXVCLEAN+4
^AUTTEXAM("C"	EXVADD+3
^AUTTMSR("B"	VMSR+2
^DD(9000010.16	VPEADD+14
^DD(9000010.46	E1+2, N2+2, F2+2
^DPT - [#2]	FEED+3
^VA(200 - [#200]	UVAR+6
^VEN(7.12 - [#19707.12]	E1+11
^VEN(7.14 - [#19707.14]	ASQFILE+8, ASQVMSR+5, ASQM+6

Label References

Name	Line Occurrences
$$ASQM	ASQFILE+3
$$CODE	VPEADD+6
$$VMSR	ASQVMSR+3
$$VWC	EVWCFILE+4, ASQFILE+2, NVWCFILE+3, PEWCFILE+3
ASK1	ASK1+5
ASKASQ	ASQFILE+10
ASQVMSR	ASQFILE+12
ASQX	ASQFILE+2, ASQFILE+7, ASQFILE+11
CLEANVWC	PEWCFILE+5
EX	EVWCFILE+5
FX	NVWCFILE+4
TIME	LOU+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EVWCFILE+1~, E1+5, E1+6, E1+7, ASQFILE+1~, ASKASQ+1~, ASK1+2, FEED+1~, FEED+7, EXFILE+3~ , NVWCFILE+1~, N2+4, N2+5, N2+6, PEWCFILE+1~, F2+4, F2+5, F2+6, CLEANVWC+1~, VPEFILE+1~ , CODE+1~, CODE+4, CODE+5, LOU+4, LOU+5, LOU+6
AGE	FEED+1~, FEED+4*, FEED+6
>> APCDVSIT	EVWCFILE+4, ASQFILE+2, ASQFILE+3, ASQVMSR+3, EXVCLEAN+2, NVWCFILE+3, PEWCFILE+3, VPECLEAN+2, LOU+3
>> ARR	EVWCFILE+2, NVWCFILE+2, PEWCFILE+2
>> ARR(	E1+4, E1+5, E1+9, EXVCLEAN+6, N2+3, N2+4, F2+3, F2+4, CLEANVWC+7, CLEANVWC+8 , VPEADD+4, VPEADD+16, TIME+7
>> ARR("CODE"	EXVCLEAN+6, EXVADD+2, EXVADD+9, EXVADD+10, VPEFILE+2, VPECLEAN+5, VPEADD+2, VPEADD+4, VPEADD+15, VPEADD+17 , TIME+5, TIME+7
ASK	ASQFILE+1~, ASQFILE+9*, ASK1+1
ASQM	ASQFILE+1~, ASQFILE+3, ASQM+1~, ASQM+6, ASQM+7
ASQX	ASKASQ+1~, ASK1+6*
>> AUPNPAT	EVWCFILE+4, ASQFILE+2, NVWCFILE+3, PEWCFILE+3
CAT	VPEFILE+1~
CIEN	EVWCFILE+1~, EXFILE+3~, EXVCLEAN+3, EXVCLEAN+4, EXVADD+3, EXVADD+4, NVWCFILE+1~, PEWCFILE+1~, VPEFILE+1~, VPECLEAN+3* , VPECLEAN+4, VPEADD+6, VPEADD+7, CODE+1~, CODE+2, CODE+3*, CODE+4, CODE+7
CNT	EVWCFILE+1~, E1+4, E1+5, E1+9, NVWCFILE+1~, N2+3, N2+4, PEWCFILE+1~, F2+3, F2+4 , CLEANVWC+1~, CLEANVWC+6, CLEANVWC+7, CLEANVWC+8, LOU+1~, TIME+4, TIME+7*, TIME+9
CODE	EVWCFILE+1~, EXFILE+3~, EXVCLEAN+4, EXVCLEAN+6, EXVADD+2, EXVADD+3, EXVADD+9, EXVADD+10, NVWCFILE+1~, PEWCFILE+1~ , VPEFILE+1~, VPECLEAN+4, VPECLEAN+5, VPEADD+1, VPEADD+2, VPEADD+4, VPEADD+6, VPEADD+15, VPEADD+17, CODE~ , CODE+3, LOU+1~, TIME+4, TIME+5*, TIME+7
DA	VWC+2~, VWC+3, VWC+7, VWC+8, VWC+9, EVWCFILE+1~, E1+8, E1+11, ASQFILE+1~, ASQFILE+2 , ASQFILE+5, ASQFILE+6, ASKASQ+1~, ASK2, ASK2+1, ASQVMSR+1~, ASQVMSR+3, ASQVMSR+7, ASQVMSR+8, FEED+1~ , FEED+11!, FEED+15!, FEED1+1, FEED1+2, EXFILE+3~, EXVCLEAN+1, EXVCLEAN+2, EXVCLEAN+3, EXVADD+6, EXVADD+7 , EXVADD+8, NVWCFILE+1~, N1+2, N1+6, PEWCFILE+1~, F1+1, F1+6, CLEANVWC+1~, CLEANVWC+2, CLEANVWC+4* , CLEANVWC+5, VPEFILE+1~, VPECLEAN+1, VPECLEAN+2, VPECLEAN+3, VPEADD+9*, VPEADD+11, VPEADD+12!
DA(1	E1+1, E1+11, EXVADD+8, N2+1, F2+1, CLEANVWC+2, CLEANVWC+3, VPEADD+13
DFN	VWC~, VWC+1, ASQM+1~, ASQM+3, ASQM+4, FEED+1~, FEED+2, FEED+3
DIC	VWC+2~, VWC+4, VWC+7, EVWCFILE+1~, E1+1, E1+3, ASKASQ+1~, ASQVMSR+1~, VMSR+1~, VMSR+6* , FEED+1~, FEED+16, FEED1+1, EXFILE+3~, EXVADD+1, EXVADD+6, EXVADD+8, NVWCFILE+1~, N2+1, PEWCFILE+1~ , F2+1, VPEFILE+1~, VPEADD+3, VPEADD+13, LOU+1~, LOU+7
DIC("A"	LOU+7*
DIC("B"	LOU+7*
DIC("P"	E1+2, N2+2, F2+2, VPEADD+14
DIC(0	VWC+4, E1+1, VMSR+6, FEED+16, EXVADD+1, EXVADD+8, N2+1, F2+1, VPEADD+3, VPEADD+13 , LOU+7*
DIE	VWC+2~, VWC+7, EVWCFILE+1~, E1+3, ASQFILE+1~, ASQFILE+4, ASKASQ+1~, ASK2, ASQVMSR+1~, ASQVMSR+6* , FEED+1~, FEED1+1, EXFILE+3~, EXVADD+6, NVWCFILE+1~, N1+2, PEWCFILE+1~, F1+1, VPEFILE+1~, VPEADD+9*
DIK	FEED+15!, EXVCLEAN+1, CLEANVWC+1~, CLEANVWC+3, VPEFILE+1~, VPECLEAN+1
DIR	ASQFILE+1~, ASKASQ+1~, ASK1+3!, FEED+1~, FEED+11!, LOU+1~, LOU+12!, TIME+2!
DIR("A"	ASK1+1, FEED+10, LOU+11, TIME+1
DIR("B"	ASK1+2, FEED+8, LOU+11, TIME+1
DIR(0	ASK1, FEED+9, LOU+10, TIME
>> DLAYGO	VWC+4, E1+1, VMSR+6, FEED+16, EXVADD+1, EXVADD+8, N2+1, F2+1, VPEADD+3, VPEADD+13
DOB	FEED+1~, FEED+3*, FEED+4
DR	VWC+2~, VWC+7, EVWCFILE+1~, E1+3, E1+9, ASQFILE+1~, ASQFILE+4, ASKASQ+1~, ASK2, ASQVMSR+1~ , ASQVMSR+6, ASQVMSR+7, FEED+1~, FEED1+1, EXFILE+3~, EXVADD+6, NVWCFILE+1~, N1+2, N1+3, N1+4 , N1+5, PEWCFILE+1~, F1+2, F1+3, F1+4, F1+5, F1+6, VPEFILE+1~, VPEADD+10
DT	FEED+4
EDU	NVWCFILE~, N1+1, N1+5, PEWCFILE~, F1+5, VPEFILE~, UVAR+6, LOU~, LOU+7, LOU+8
FIEN	FEED+1~, FEED+5*, FEED+6, FEED+7, FEED+8, FEED+13, FEED+15
FLD	ASKASQ+1~, ASKASQ+2*, ASK1+2, ASK2
FTIME	VPEFILE~, UVAR+2, UVAR+3, UVAR+4, LOU~, TIME+9, TIME+10
GRP	VPEFILE+1~, UVAR+5*
GUIFLAG	EVWCFILE~, E1+9, E1+12
IEN	ASQM+1~, ASQM+5*, ASQM+6
ITEM	VPEFILE+1~
LIEN	EVWCFILE+1~, NVWCFILE+1~, PEWCFILE+1~
LL	LOU+1~, LOU+2, LOU+5, LOU+6*, LOU+11
LOU	NVWCFILE~, N1+1, N1+3, PEWCFILE~, F1+3, VPEFILE~, UVAR+1, LOU~, LOU+13*
LT	LOU+1~, LOU+2, LOU+5, LOU+6*, TIME+1
M	ASQM+1~, ASQM+4*, ASQM+5
MIEN	VMSR+1~, VMSR+2*, VMSR+4
OK	CODE+1~, CODE+2, CODE+3, CODE+5
PCE	ASQFILE+1~, ASQFILE+10, ASQFILE+12, ASKASQ~, ASKASQ+2, ASK1+1, ASK1+6, ASQVMSR~, ASQVMSR+2, ASQVMSR+4 , ASQVMSR+5
PEIEN	EVWCFILE+1~, NVWCFILE+1~, PEWCFILE+1~
QIEN	ASQFILE+1~, ASQFILE+6*, ASQFILE+7, ASQFILE+8
RES	EVWCFILE+1~, E1+9, ASQFILE+1~, ASQFILE+11, ASQVMSR+4
SEL	FEED+1~, FEED+12, FEED+13, FEED+14, FEED+15, FEED+16, CLEANVWC+1~, VPEFILE+1~, VPEADD+3, VPEADD+4* , VPEADD+5
>> SILENT	VWC+6
SS	EVWCFILE~, EVWCFILE+3, EVWCFILE+6, E1+1, E1+2, E1+11
STG	ASQFILE+1~, ASQFILE+8*, ASK1+6
T	VPEFILE+1~
TIME	NVWCFILE~, N1+1, N1+4, PEWCFILE~, F1+4, LOU~, TIME+4, TIME+9
TITLE	LOU~, LOU+5, LOU+9, TIME+1
TOT	EVWCFILE+1~, EXFILE+3~, EXVCLEAN+5, EXVCLEAN+6, EXVADD+9, EXVADD+10, NVWCFILE+1~, PEWCFILE+1~, VPEFILE+1~, VPEADD+3 , VPEADD+4, VPEADD+13, VPEADD+15, VPEADD+16, VPEADD+17, LOU+1~, TIME+6, TIME+7*
TYPE	VMSR~, VMSR+2, VMSR+7
U	E1+2, ASQFILE+6, ASQFILE+11, ASK1+1, ASK1+2, ASK1+6, ASQVMSR+2, ASQVMSR+4, ASQVMSR+7, ASQM+3 , FEED+2, FEED+3, FEED+8, EXVCLEAN+4, N2+2, F2+2, VPECLEAN+4, VPEADD+14, CODE+5, LOU+5 , LOU+6, LOU+7
VAL	ASQVMSR+1~, ASQVMSR+4, ASQVMSR+5
VDT	ASQM+1~, ASQM+2*, ASQM+4
VIEN	VWC~, VWC+1, VWC+3, VMSR~, VMSR+4, ASQM~, ASQM+2, ASQM+3, FEED~, FEED+2 , FEED+5, EXFILE+3~
VMIEN	VMSR+1~, VMSR+3, VMSR+4, VMSR+5
VPEIEN	EVWCFILE+1~, NVWCFILE+1~, PEWCFILE+1~, VPEFILE+1~, VPEADD+9*, VPEADD+13
VWCIEN	EVWCFILE+1~, EVWCFILE+6, E1+1, ASQFILE+1~, ASQFILE+2, ASQFILE+11, ASK1+2, ASK2, NVWCFILE+1~, NVWCFILE+5* , N1+2, N2+1, PEWCFILE+1~, PEWCFILE+4, PEWCFILE+5, F1+1, F2+1, CLEANVWC~, CLEANVWC+2, CLEANVWC+4 , CLEANVWC+5, LOU+1~, LOU+3, LOU+4, LOU+7
X	VWC+2~, VWC+4, EVWCFILE+1~, E1+7, E1+10, ASQFILE+1~, ASKASQ+1~, ASQVMSR+1~, ASQVMSR+2, ASQVMSR+3 , VMSR+1~, VMSR+7, FEED+1~, FEED+16, EXFILE+3~, EXVADD+4, EXVADD+10, NVWCFILE+1~, N2+6, PEWCFILE+1~ , F2+6, CLEANVWC+1~, CLEANVWC+5, CLEANVWC+8, VPEFILE+1~, VPEADD+7, VPEADD+17, VPEADD+18*, LOU+1~
Y	VWC+2~, VWC+6, VWC+7, EVWCFILE+1~, EVWCFILE+4, EVWCFILE+5, EVWCFILE+6, E1+7, E1+8, ASQFILE+1~ , ASKASQ+1~, ASK1+4, ASK1+5, ASK1+6, ASQVMSR+1~, VMSR+1~, VMSR+8, VMSR+9, FEED+1~, FEED+12 , FEED1, FEED1+1, EXFILE+3~, EXVADD+5, EXVADD+6, NVWCFILE+1~, NVWCFILE+3, NVWCFILE+4, NVWCFILE+5, PEWCFILE+1~ , PEWCFILE+3, PEWCFILE+4, CLEANVWC+1~, CLEANVWC+8, VPEFILE+1~, VPEADD+8, VPEADD+9, LOU+1~, LOU+8, LOU+12 , LOU+13, TIME+3, TIME+4
Z	FEED+1~

Customize PDF page

Package: Patient Care Component

Routine: APCDTWC1

Information

Source Information

Call Graph

Call Graph Total: 8

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: