Routine: VENPCCKT

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC ^DIE ^DIK
Kernel	2	$$FMDIFF^XLFDT $$UP^XLFSTR
IHS VA Utilities	1	^XBFMK
PCC New Encounter Form	1	($$CODE,EVWCFILE,NVWCFILE,PEWCFILE,VPEFILE)^VENPCCQC
Patient Care Component	1	REM^APCHS6B

Package	Total	Caller Graph
PCC New Encounter Form	2	VENPCCKD VENPCCKG

Entry Points

Name	Comments	DBIA/ICR reference
CODE
TIME	; GET EDU TIME AND FRACTIONAL TIME
VARS
CAT(LINE,CNT,TYPE,SS)	; EP - PROCESS A PT ED SUB-CATEGORY AND POPULATE THE TX FILE
FARR	; BUILD THE FLUSH ARRAY
VPED	; UPDATE V PAT ED
LINE
TODAY(DFN,TYPE)	; EP - RETURNS TODAY'S PT ED/NURT RESULTS - IF THERE ARE ANY
STALE	; EP - REMOVE STALE ENTRIES FROM TX FILE ; TRANSACTION FROM EARLIER DATES ARE, BY DEFINITION, ORPHANS
VIFC
INIT
EXVF
PEPOP(IN)	; EP - POPULATE NUTR TOPICS OR PT ED TOPICS
EXFLUSH(IN)	; EP - FLUSH EXAM TXS TO V WELL CHILD ; IN = VIEN
PAST
EX1
PEFLUSH(IN)	; EP - FLUSH DATA FOR PT ED AND NUTR TRANSACTIONS TO V FILES ; IN = TYPE\|VISIT IEN\|LOU\|TIME\|EDUCATOR IEN\|INFANT FEEDING CHOICE
SEL(DFN,ITEM,TYPE,SS)	; EP - SEE IF THIS ITEM IS ALREADY IN TODAY'S V WELL CHILD RECORD
VAR	; EP - SET UP MAIN VARIABLES, CLEANUP TRANSACTION FILE AND CREATE THE RAW DATA ARRAY
DIC
CURRENT
ARR(DFN,LINE)	; EP - RETURN THE LINE ARRAY USED IN GENERATING THE HEALTH SUMMARY SEGMENT ;
PE1
PE2
TXCLEAN
FVAR	; GET FLUSH VARIABLES
EX2
IVARS
EXPOP(IN)	; EP - POPULATE THE EXAM TOPICS
VWC	; UPDATE V WELL CHILD

External References

Name	Field # of Occurrence
^%DT	PAST+10
REM^APCHS6B	ARR+7
^DIC	DIC+1, VIFC+5
^DIE	VIFC+7
^DIK	VAR+7, TXCLEAN, STALE+5
$$CODE^VENPCCQC	FARR+7
EVWCFILE^VENPCCQC	EXVF
NVWCFILE^VENPCCQC	VWC+2
PEWCFILE^VENPCCQC	VWC+1
VPEFILE^VENPCCQC	VPED+1
^XBFMK	EX2+2, PE2+2, DIC+7, TXCLEAN+1, STALE+7
$$FMDIFF^XLFDT	ARR+6
$$UP^XLFSTR	VIFC+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VEN(7.16 - [#19707.16]	Classic Fileman Calls
^AUPNVIF - [#9000010.44]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVIF - [#9000010.44]	VIFC+7, TODAY+18
^AUPNVIF("AD"	TODAY+17
^AUPNVSIT - [#9000010]	VAR+3, VAR+5, EXFLUSH+2, EXFLUSH+7, FVAR+3, FVAR+5, TODAY+9
^AUPNVWC - [#9000010.46]	SEL+5, SEL+7, SEL+8, TODAY+7, TODAY+12, TODAY+13
^AUPNVWC("AA"	SEL+4
^AUPNVWC("AC"	TODAY+6
^DPT - [#2]	VAR+5, ARR+4, ARR+5, EXFLUSH+7, FVAR+5, TODAY+2
^VA(200 - [#200]	FVAR+9, TODAY+20
^VEN(7.11 - [#19707.11]	VARS+6, VARS+7, IVARS+5
^VEN(7.12 - [#19707.12]	IVARS+4, CODE
^VEN(7.16 - [#19707.16]	VAR+7, DIC+2, EXFLUSH+9, EXFLUSH+10, FARR+2, FARR+3, TXCLEAN, STALE+3, STALE+5

Label References

Name	Line Occurrences
$$SEL	CURRENT
ARR	VAR+8
CAT	EX2+4, PE2+4
EX1	EX2+5
EX2	EX1
PE1	PE2+5
PE2	PE1
STALE	VAR+1
TXCLEAN	EXFLUSH+17, EXVF+1, FARR+11, VWC+1
VAR	EXPOP+2, PEPOP+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CAT+1~, VARS+1, VARS+2, VARS+3, VARS+5, VARS+6, PAST, PAST+1, PAST+4, PAST+6 , PAST+7, PAST+8, SEL+1~, SEL+7*, SEL+8, EXFLUSH+3~, PEFLUSH+3~, TODAY+3~
APCDVSIT	EXFLUSH+3~, EXFLUSH+5, EXFLUSH+6, EXFLUSH+7, PEFLUSH+3~, FVAR+3, FVAR+4, FVAR+5
ARR	EXFLUSH+3~, PEFLUSH+3~
ARR(	EXFLUSH+15, FARR+9
ARR("CAT"	FARR+9*, TIME+4
ARR("CODE"	FARR+9*
AUPNPAT	EXFLUSH+3~, EXFLUSH+7, PEFLUSH+3~, FVAR+5
B	TODAY+3~, TODAY+4*, TODAY+23, TODAY+24
CAT	CAT+1~, VARS+6*, VARS+7, DIC+3
CIEN	CAT+1~, VARS+7, DIC, DIC+3, PEFLUSH+3~, FARR+7, FARR+9, TIME+4*
CNT	EXPOP+1~, EXPOP+3, EX2+1, EX2+4, PEPOP+1~, PEPOP+3, PE2+1, PE2+4, CAT~, DIC+5* , PEFLUSH+3~, TIME+4*, TIME+5
CODE	CAT+1~, INIT, CODE, DIC+3, PEFLUSH+3~, FARR+6*, FARR+7, FARR+9
DA	EXPOP+1~, PEPOP+1~, VAR+6, VAR+7, CAT+1~, DIC+2, DIC+3, DIC+4, SEL+1~, SEL+4 , SEL+5, SEL+7, SEL+8, PEFLUSH+3~, VIFC+6, VIFC+7, TXCLEAN, STALE+1~, STALE+4, STALE+5
DATE	STALE+1~, STALE+2, STALE+3, STALE+5
DAYS	ARR+1~, ARR+6*, ARR+7
DFN	EXPOP+1~, PEPOP+1~, VAR+5*, VAR+8, CURRENT, SEL~, SEL+4, ARR~, ARR+4, ARR+5 , ARR+7, TODAY~, TODAY+2, TODAY+6
DIC	CAT+1~, VARS+9, VIFC+4, VIFC+6
DIC(0	VARS+9, VIFC+4
>> DIE	VIFC+6*
DIK	EXPOP+1~, PEPOP+1~, VAR+6, CAT+1~, TXCLEAN, STALE+1~, STALE+2*
>> DLAYGO	VARS+9, VIFC+4
DOB	ARR+1~, ARR+4*, ARR+6
DR	CAT+1~, VIFC+6*
DT	PAST+10, DIC+3, DIC+4, SEL+2, ARR+6, TODAY+10, STALE+2
EDATE	CAT+1~
EDU	PEFLUSH+3~, FVAR+9*, VPED+1, VWC+1, VWC+2
FTIME	PEFLUSH+3~, TIME+3, TIME+5, TIME+7*, VPED+1
GBL	CAT+1~, DIC+2*, DIC+3, DIC+4
GUIFLAG	ARR+1~, ARR+3*
IDT	SEL+1~, SEL+2*, SEL+4
IFC	PEFLUSH+3~, VIFC, VIFC+1, VIFC+2, VIFC+3, VIFC+4, TODAY+3~, TODAY+4, TODAY+18, TODAY+22 , TODAY+24
IFCIEN	TODAY+3~, TODAY+17*, TODAY+18
IIEN	CAT+1~, IVARS+3*, IVARS+4, CODE, DIC+3
IN	EXPOP~, PEPOP~, VAR+3, VAR+4, EXFLUSH~, EXFLUSH+2, EXFLUSH+5, PEFLUSH~, PEFLUSH+2, FVAR+2 , FVAR+3, FVAR+6, FVAR+9, TIME+1, VIFC
ITEM	CAT+1~, IVARS+2, IVARS+3, PAST, PAST+2, PAST+7*, DIC+3, SEL~, SEL+3, SEL+5 , SEL+7
IX	CAT+1~, IVARS+2, PAST+7, CURRENT
KEY	EXPOP+1~, EX2+1, PEPOP+1~, PE2+1, VAR+6, VAR+7, DIC+3, DIC+4, EXFLUSH+3~, EXFLUSH+6 , EXFLUSH+9, PEFLUSH+3~, FVAR+4*, FARR+2, TXCLEAN
KIEN	CAT+1~, IVARS+4*, IVARS+5
LAST	CAT+1~, INIT, PAST+8, PAST+10*, DIC+3
LINE	EXPOP+1~, EXPOP+2!, EXPOP+3, EX1, EX1+2, EX1+4, EX1+5, EX1+6, EX1+7, EX2 , EX2+4, PEPOP+1~, PEPOP+3, PE1, PE1+1, PE2, PE2+4, VAR+8, CAT~, VARS+1 , VARS+5, LINE, IVARS, IVARS+1, ARR~, ARR+2*
LINE(	EX1+2, EX1+4, EX1+5, EX1+6, EX1+7, PE1+1, VARS+1, VARS+5, LINE, IVARS
LOU	PEFLUSH+3~, FVAR+6, FVAR+7, FVAR+8, VPED+1, VWC+1, VWC+2, TODAY+3~, TODAY+4, TODAY+14 , TODAY+16, TODAY+21, TODAY+23
OK	PEFLUSH+3~
>> OUT	EX2+1, PE2+1, VAR+2, EXFLUSH+4, EXVF+2, FVAR+1, VWC+1, VIFC+9, TODAY+4, TODAY+11 , TODAY+23, TODAY+24
PRV	TODAY+3~, TODAY+4, TODAY+20, TODAY+23
PRVIEN	TODAY+3~, TODAY+4, TODAY+14, TODAY+16*, TODAY+20, TODAY+23
RES	CAT+1~, INIT, PAST+2, PAST+3, PAST+10, DIC+3, EXFLUSH+3~, EXFLUSH+11*, EXFLUSH+15
SEL	CAT+1~, INIT, CURRENT, DIC+3, SEL+1~, SEL+2, SEL+5, SEL+8*, SEL+10
SEX	ARR+1~, ARR+5*, ARR+7
SS	EXPOP+1~, EX1+3, EX1+4, EX1+5, EX1+6, EX1+7, EX2, EX2+4, CAT~, VARS+10 , CURRENT, DIC+3, SEL~, SEL+6, SEL+7, SEL+8, EXFLUSH+3~, EXFLUSH+12*, EXVF
STG	CAT+1~, IVARS, IVARS+1, IVARS+2, EXFLUSH+3~, EXFLUSH+10, EXFLUSH+11, EXFLUSH+12, EXFLUSH+13, PEFLUSH+3~ , FARR+3*, FARR+4, FARR+5, FARR+6
STOP	EXPOP+1~, EX1+1, EX1+2, EX1+4, EX1+5, EX1+6, EX1+7, CAT+1~, VARS+8, LINE , IVARS+1, TODAY+3~, TODAY+5, TODAY+6, TODAY+10, TODAY+11
TIME	PEFLUSH+3~, TIME+1, TIME+2, TIME+3, TIME+5, TIME+7, VWC+1, VWC+2, TODAY+3~, TODAY+4* , TODAY+14, TODAY+16, TODAY+23
TITLE	EXFLUSH+13, EXFLUSH+15, PEFLUSH+3~, FARR+5, FARR+9
TOT	EXFLUSH+3~, EXFLUSH+8, EXFLUSH+14, EXFLUSH+15, EXFLUSH+17, PEFLUSH+3~, FARR+1, FARR+8, FARR+9, FARR+11
TXIEN	EXFLUSH+3~, EXFLUSH+8, EXFLUSH+9, EXFLUSH+10, PEFLUSH+3~, FARR+1, FARR+2, FARR+3
TYPE	EXPOP+1~, PEPOP+1~, PE2+4, VAR+4, VAR+6, CAT~, VARS, VARS+5, VARS+10, IVARS+5 , CODE, PAST+1, CURRENT, DIC+3, SEL~, SEL+5, SEL+6, PEFLUSH+3~, FVAR+2, FVAR+4 , TIME+3, VWC+1, VWC+2, TODAY~, TODAY+1*, TODAY+12, TODAY+13, TODAY+14, TODAY+15, TODAY+24
U	VAR+5, IVARS+5, CODE, DIC+3, SEL+8, ARR+4, ARR+5, EXFLUSH+7, EXFLUSH+11, EXFLUSH+12 , EXFLUSH+13, FVAR+5, FARR+4, FARR+5, FARR+6, TODAY+8, TODAY+14, TODAY+16, TODAY+20, TODAY+21 , TODAY+22
VAL	CAT+1~
VDATE	TODAY+3~, TODAY+9*, TODAY+10
VIEN	EXPOP+1~, PEPOP+1~, VAR+3, VAR+5, VAR+6, DIC+3, TODAY+3~, TODAY+8, TODAY+9, TODAY+11 , TODAY+17, TODAY+23
VWCIEN	TODAY+3~, TODAY+5, TODAY+6, TODAY+7, TODAY+12, TODAY+13
X	CAT+1~, PAST+7, PAST+10, DIC, SEL+1~, EXFLUSH+3~, PEFLUSH+3~, VIFC+4, TODAY+3~, TODAY+7* , TODAY+8, TODAY+14, TODAY+16
Y	CAT+1~, PAST+8*, PAST+10, DIC+1, DIC+2, EXFLUSH+3~, PEFLUSH+3~, VIFC+5, VIFC+6, TODAY+3~
Z	CAT+1~, EXFLUSH+3~, PEFLUSH+3~

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCKT

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: