Routine: APCDTWC

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN ^DIE ^DIR
Patient Care Component	2	($$VWC,ASQFILE,FEED,LOU,NVWCFILE,PEWCFILE,VPEFILE)^APCDTWC1 EXAM^APCDTWC2
IHS VA Utilities	1	^XBFMK
Kernel	1	$$FMDIFF^XLFDT

Package	Total	Caller Graph
PCC New Encounter Form	2	VENPCCQD VENPCCQY
Patient Care Component	1	APCDTWC2

Entry Points

Name	Comments	DBIA/ICR reference
EXAM	; ENTER SPECIAL EXAMS AND SCREENING PROCEDURES
DEV	; ENTER DEVELOPMENT ASSESSMENT
NEW
RANGEX
DATA
POVX
R1
PRE	; CHECK V FILE TO SEE IF ANYTHING HAS ALREADY BEEN SELECTED
ASQ	; ENTER ASQ SCORES
PRV1
PRV2
POV	; PURPOSE OF VISIT
NUT	; ENTER NUTRITION TOPICS
PRV	; ENTER THE PROVIDERS
DEVX
CLN	; EDIT CLINIC
PRVQ
DEV1	; FILE RESULTS
RANGE(ARR)	;EP - MANAGE A RANGE OF ARRAY NUMBERS
ARR(DFN,TYPE,DOM,ARR)	;EP - GIVEN A PATIENT DFN AND A KB CATEGORY TYPE, BUILD AN ARRAY OF ITEMS ; TYPE = KB CATEGORY TYPE (e.g., PT ED, DEVEL, etc.), DOMAIN = WELL CHILD CARE
FIN
PEFILE	; AT THIS POINT WE HAVE THE FINAL SELECTION ARRAY AND ARE READY TO MAKE ENTRIES IN V WELL CHILD AND V PATIENT ED
NUTFILE	; MAKE ENTRIES IN V WC AND V PATIENT ED
ALL	; EDIT ALL SECTIONS
NUTX
MENU	; MAIN DATA ENTRY MENU FOR WELL CHILD CARE VISIT
POV1
TEST
PTED	; ENTER PATIENT EDUCATION TOPICS ; RESULTS ARE FILE IN BOTH V PATIENT ED AND V WELL CHILD AS FREE TEXT SUBTOPICS

External References

Name	Field # of Occurrence
$$VWC^APCDTWC1	DEV1+2
ASQFILE^APCDTWC1	ASQ+1
FEED^APCDTWC1	NUT+1
LOU^APCDTWC1	NUTFILE+2, PEFILE+2
NVWCFILE^APCDTWC1	NUTFILE+3
PEWCFILE^APCDTWC1	PEFILE+3
VPEFILE^APCDTWC1	NUTFILE+4, PEFILE+4
EXAM^APCDTWC2	EXAM+3
^DIC	PRVQ+2, PRV1+1, POV+6, POV+10
YN^DICN	DEV+6, R1+2
^DIE	CLN+7, PRV1+3, POV+12, DEV1+9
^DIR	MENU+2, DEV+10, DEV+15, DEV+20, DEV+25, DEV+30, R1+5
^XBFMK	FIN, PRVQ+2, PRV1+1, DEVX
$$FMDIFF^XLFDT	ARR+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Sorry, if you want to use this Mnemonic," Line Location: DATA+4
Function Call: WRITE	Prompt: !,"the PCC+ Knowledgebase must be installed." Line Location: DATA+5
Function Call: WRITE	Prompt: !,"Request cancelled..." Line Location: DATA+6
Function Call: WRITE	Prompt: !!!,?15,"* DATA ENTRY - WELL CHILD EXAM *" Line Location: DATA+9
Function Call: WRITE	Prompt: !! Line Location: MENU+5
Function Call: WRITE	Prompt: !,"A primary provider has already been entered for this visit..." Line Location: PRV+4
Function Call: WRITE	Prompt: !,"This provider has already been entered for this visit..." Line Location: PRVQ+5
Function Call: WRITE	Prompt: !!,"* WELL CHILD EXAM (V20.2) has been automatically added as a POV *" Line Location: POV1+0
Function Call: WRITE	Prompt: !,"Add additional POV's using the PV mnemonic",! Line Location: POV1+1
Function Call: WRITE	Prompt: !,"Unable to automatically add WELL CHILD EXAM as a POV!!!" Line Location: POVX+0
Function Call: WRITE	Prompt: !,"No DEV guidelines available..." Line Location: DEV+3
Function Call: WRITE	Prompt: !!,"Want to enter Development or Autism screen comments" Line Location: DEV+5
Function Call: WRITE	Prompt: !,?3,ARR(CNT) Line Location: R1+1
Function Call: WRITE	Prompt: " [SELECTED]" Line Location: R1+1
Function Call: WRITE	Prompt: !,"The expression '",$P(Y,",",PCE),"' is invalid" Line Location: R1+11
Function Call: WRITE	Prompt: !,"The expression '",$P(Y,",",PCE),"' is invalid" Line Location: R1+14
Function Call: WRITE	Prompt: !,"Item number ",X," does not exist" Line Location: R1+16
Function Call: WRITE	Prompt: !,"Item number ",X," has not been selected - can't remove it" Line Location: R1+17
Function Call: WRITE	Prompt: !,"Item "_X_" has already been selected" Line Location: R1+19
Function Call: WRITE	Prompt: ! Line Location: R1+23
Function Call: WRITE	Prompt: !,"No NUTRITION guidelines available..." Line Location: NUT+4
Function Call: WRITE	Prompt: !!,"No nutrition topics are required for this visit!!",!! Line Location: NUT+7
Function Call: WRITE	Prompt: !!,"Select from the list of standard ",TITLE,"topics: " Line Location: NUT+18
Function Call: WRITE	Prompt: !,"No PATIENT EDUCATION guidelines available..." Line Location: PTED+3
Function Call: WRITE	Prompt: !!,"Select from the list of standard ",TITLE,"topics: " Line Location: PTED+17
Function Call: WRITE	Prompt: !,"No EXAM guidelines available..." Line Location: EXAM+2
Routine Call	DIE Line Location: CLN+7 PRV1+3 POV+12 DEV1+9
Routine Call	DIC Line Location: PRVQ+2 PRV1+1 POV+6 POV+10
Routine Call	DIR Line Location: MENU+2 DEV+10 DEV+15 DEV+20 DEV+25 DEV+30 R1+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVSIT - [#9000010]	Classic Fileman Calls
^AUPNVPRV - [#9000010.06]	Classic Fileman Calls
^AUPNVPOV - [#9000010.07]	Classic Fileman Calls
^AUPNVWC - [#9000010.46]	Classic Fileman Calls
^AUTNPOV - [#9999999.27]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPOV - [#9000010.07]	POV+12
^AUPNVPOV("AD"	POV+3
^AUPNVPRV - [#9000010.06]	PRV+3, PRVQ+4, PRV1+3
^AUPNVPRV("AD"	PRV+3, PRVQ+4
^AUPNVSIT - [#9000010]	DATA+1, NEW+1, CLN+5, CLN+7
^AUPNVWC - [#9000010.46]	DEV+9, DEV+14, DEV+19, DEV+24, DEV+29, DEV1+9, NUT+14, PTED+13
^AUPNVWC("AD"	DEV+4, NUT+8, PTED+7
^DD(9000010.06	PRVQ+1
^DIC(40.7 - [#40.7]	CLN+2, CLN+4, CLN+5
^DPT - [#2]	DATA, ARR+4
^ICD9("AB"	POV+8
^VEN(7.11 - [#19707.11]	ARR+10
^VEN(7.12 - [#19707.12]	DATA+2, ARR+18, ARR+19
^VEN(7.13 - [#19707.13]	DATA+2, DEV+2, DEV+3, ARR+8, ARR+9, ARR+11, NUT+3, NUT+4, PTED+2, PTED+3 , EXAM+1, EXAM+2

Label References

Name	Line Occurrences
@(	MENU+5
ALL	MENU+3
APCDTWC	TEST
ARR	NUT+6, PTED+6
ASQ	ALL+1
CLN	ALL+1
DEV	ALL+1
DEVX	DEV+10, DEV+15, DEV+20, DEV+25, DEV+30, DEV1+1, DEV1+2
EXAM	ALL+1
FIN	MENU+4
MENU	MENU+3, MENU+5
NUT	ALL+1
NUTX	NUT+7, NUT+17
POV	ALL+1
POV1	POV+3
POVX	POV+6, POV+8, POV+10
PRV	ALL+1
PRV2	PRV+4, PRVQ+5
PRVQ	PRV2+2
PTED	ALL+1
R1	R1+23
RANGE	NUT+19, PTED+18
RANGEX	R1+2, R1+6

Naked Globals

Name	Field # of Occurrence
^(	DEV+2, NUT+3, PTED+2, EXAM+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NEW~, CLN+1~, CLN+5, PRV+1~, PRV+2, PRV+3, PRV+4, PRVQ+3, PRVQ+4, PRVQ+5 , POV+4~, DEV+1~, DEV+5, DEV+6, DEV+9, DEV+14, DEV+19, DEV+24, DEV+29, ARR+2~ , ARR+4, ARR+5, ARR+24, RANGE+1~, R1+2, RANGEX+1*, RANGEX+2, NUT+2~, PTED+4~
%DT	NEW~
%T	NEW~
%Y	NEW~, DEV+1~
A	RANGE+1~, R1+11*, R1+12, R1+14, R1+15
AGIEN	NUT+2~, PTED+4~
APCDVSIT	DATA+1, NEW+1, TEST~, CLN+5, CLN+6, CLN+7, PRV+3, PRVQ+4, POV+2, DEV+4 , DEV1+2, NUT+1, NUT+8, PTED+7
ARR	ARR~, ARR+3!, RANGE~, RANGEX+2!, NUT+2~, NUT+6, NUT+7, NUT+17, NUT+19, NUTX! , PTED+4~, PTED+6, PTED+16, PTED+18, PEFILE+5!
ARR(	ARR+29, ARR+30, R1+1, R1+16, R1+17, R1+18!, R1+19, R1+20, RANGEX+1, NUT+10 , NUT+11, NUT+14, PTED+9, PTED+10, PTED+13*
ARR("CODE"	ARR+31*
ARR("X"	ARR+30*
ARR(999	R1
AUPNPAT	DATA, TEST~*, DEV1+2, NUT+6, PTED+6
>> AUPNVSIT	TEST*
B	RANGE+1~, R1+12, R1+13, R1+14, R1+15
CAT	ARR+2~, ARR+7, ARR+8, ARR+9, ARR+11, ARR+12
CIEN	CLN+1~, CLN+2, CLN+3, CLN+4, ARR+2~, ARR+9, ARR+10, ARR+13, ARR+18*
CLN	CLN+1~, CLN+2, CLN+3, CLN+4, CLN+5, CLN+6
CNT	RANGE+1~, R1, R1+1
CODE	ARR+2~, ARR+23*, ARR+31
DA	NEW~, CLN+1~, CLN+6, PRV+1~, PRV1+2, PRV1+3, POV+1~, POV+2, POV+3, POV+11 , POV+12, DEV+1~, DEV1+2*, DEV1+9
DAYS	ARR+2~, ARR+6*, ARR+21, ARR+22
DEL	RANGE+1~, R1+7*, R1+8
DEV	DEV+1~, DEV1+1
DEV(	DEV+11, DEV+16, DEV+21, DEV+26, DEV+31*, DEV1+4, DEV1+6
DFN	ARR~, ARR+4
DIC	NEW~, CLN+1~, PRV+1~, PRVQ, PRVQ+1, PRV1, PRV1+2, POV+4~, POV+5, POV+9* , POV+11
DIC("A"	PRV+5, PRV2+1
DIC(0	PRVQ, PRV1, POV+5, POV+9
DIE	NEW~, CLN+1~, CLN+6, PRV+1~, PRV1+2, POV+4~, POV+11, DEV+1~, DEV1+3
DIR	NEW~, MENU+2!, POV+4~, DEV+1~, DEV+10!, DEV+15!, DEV+20!, DEV+25!, DEV+30!, RANGE+1~
DIR("?"	R1+4*
DIR("A"	MENU+2, DEV+7, DEV+12, DEV+17, DEV+22, DEV+27, R1+3*
DIR("B"	NEW+2, DEV+8, DEV+9, DEV+13, DEV+14, DEV+18, DEV+19, DEV+23, DEV+24, DEV+28 , DEV+29*
DIR(0	MENU+1, DEV+7, DEV+12, DEV+17, DEV+22, DEV+27, R1+3*
DIRDT	RANGEX!
DIROUT	RANGEX!
DIRUT	RANGEX!
>> DLAYGO	PRV1, POV+5, POV+9*
DOB	ARR+2~, ARR+5*, ARR+6
DOM	ARR~, ARR+8, ARR+9, ARR+11, NUT+2~, NUT+5, NUT+6, PTED+4~, PTED+5, PTED+6
DR	CLN+1~, CLN+6, PRV+1~, PRV1+2, POV+4~, POV+11, DEV+1~, DEV1+3, DEV1+5, DEV1+7
DT	ARR+6
DTOUT	RANGEX!
DUOUT	RANGEX!
>> EDU	PEFILE+2, PEFILE+3
FNO	DEV+1~, DEV1+3, DEV1+4, DEV1+6, DEV1+7
FTIME	NUT+2~, NUTFILE+1, NUTFILE+2, NUTFILE+4, PTED+4~, PEFILE+1, PEFILE+2, PEFILE+4
GRP	NUT+2~, NUTFILE+1, NUTFILE+4, PTED+4~, PEFILE+1, PEFILE+4
IIEN	POV+4~
KIEN	ARR+2~, ARR+18*, ARR+19, ARR+30
LOU	NUT+2~, NUTFILE+1, NUTFILE+2, NUTFILE+3, NUTFILE+4, PTED+4~, PEFILE+1, PEFILE+2, PEFILE+3, PEFILE+4
MAX	RANGE+1~, R1*
MOD	ARR+2~, ARR+26*, ARR+27
MORE	RANGE+1~, PRE+1, R1+2, R1+23
NIEN	POV+4~, POV+7*
ORD	ARR+2~, ARR+11, ARR+12, ARR+13, ARR+17, ARR+18
ORD(	ARR+13*, ARR+18
PCE	RANGE+1~, R1+8*, R1+9, R1+11, R1+14
PS	PRV+1~, PRV+6, PRV1+2, PRV2
RFLG	RANGE+1~, R1+9, R1+10, R1+17, R1+18
SEX	ARR+2~, ARR+5*, ARR+24
START	ARR+2~, ARR+21*
STG	ARR+2~, ARR+19*, ARR+20, ARR+21, ARR+22, ARR+23, ARR+24, ARR+25, ARR+26
STOP	ARR+2~, ARR+22*
TIME	NUT+2~, NUTFILE+1, NUTFILE+2, NUTFILE+3, PTED+4~, PEFILE+1, PEFILE+2, PEFILE+3
TITLE	ARR+2~, ARR+25, ARR+27, ARR+29, ARR+31, NUT+2~, NUT+5, NUT+18, NUTFILE+2, PTED+4~ , PTED+5, PTED+17, PEFILE+2
TOT	DEV+1~, DEV1+3, DEV1+6, DEV1+7, ARR+2~, ARR+3, ARR+17, ARR+28, ARR+29, ARR+30 , ARR+31, NUT+2~, NUT+10, NUT+11, NUT+14, PTED+4~, PTED+9*, PTED+10, PTED+13
TYPE	ARR~, ARR+10, NUT+2~, NUT+5, NUT+6, PTED+4~, PTED+5, PTED+6
U	MENU+5, CLN+4, CLN+5, PRV+3, PRVQ+1, DEV+3, DEV+9, DEV+14, DEV+19, DEV+24 , DEV+29, ARR+5, ARR+10, ARR+11, ARR+20, ARR+21, ARR+22, ARR+23, ARR+24, ARR+25 , ARR+26, NUT+4, PTED+3, EXAM+2
VAL1	DEV+1~
VAL2	DEV+1~
VAL3	DEV+1~
VAL4	DEV+1~
VDATE	NEW~, NEW+1*
VWCIEN	DEV+1~, DEV+4, DEV+9, DEV+14, DEV+19, DEV+24, DEV+29, NUT+8, NUT+9, NUT+14 , PTED+7*, PTED+8, PTED+13
WVCIEN	NUT+2~, PTED+4~
X	NEW~, CLN+1~, PRV+1~, PRV+2, PRV+3, PRVQ+3, PRVQ+4, PRV1, POV+4~, POV+5 , POV+8, POV+9, DEV+1~, DEV+2, ARR+2~, RANGE+1~, R1+9, R1+10, R1+11, R1+12 , R1+15, R1+16, R1+17, R1+18, R1+19, R1+20, RANGEX+1, NUT+2~, NUT+3, NUT+11* , NUT+12, NUT+13, NUT+14, PTED+2, PTED+4~, PTED+10, PTED+11, PTED+12, PTED+13, EXAM+1*
Y	DATA+10!, NEW~, MENU+3, MENU+4, MENU+5, CLN+1~, PRV+1~, PRVQ+2, PRVQ+4, PRV1 , PRV1+1, PRV1+2, POV+4~, POV+6, POV+7, POV+10, POV+11, DEV+1~, DEV+2, DEV+3 , DEV+10, DEV+11, DEV+15, DEV+16, DEV+20, DEV+21, DEV+25, DEV+26, DEV+30, DEV+31 , ARR+2~, R1+6, R1+7, R1+9, R1+11, R1+14, NUT+2~, NUT+3, NUT+4, PTED+2* , PTED+3, EXAM+1*, EXAM+2
Z	ARR+2~

Customize PDF page

Package: Patient Care Component

Routine: APCDTWC

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: