Routine: VENPCC3

Package	Total	Call Graph
VA Fileman	5	^%DT ^DIC YN^DICN ^DIE ^DIR
PCC New Encounter Form	2	$$CHART^VENPCC1A UMSG^VENPCCP2
IHS VA Utilities	1	^XBFMK
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Patient Care Component	1	^APCDALV

Package

Total

Call Graph

VA Fileman

^%DT ^DIC YN^DICN ^DIE ^DIR

PCC New Encounter Form

$$CHART^VENPCC1A UMSG^VENPCCP2

IHS VA Utilities

^XBFMK

Kernel

($$FMADD,$$FMTE)^XLFDT

Patient Care Component

^APCDALV

Package	Total	Caller Graph
PCC New Encounter Form	3	VENPCCA VENPCCKG VENPCCW

Package

Total

Caller Graph

PCC New Encounter Form

VENPCCA VENPCCKG VENPCCW

Entry Points

Name	Comments	DBIA/ICR reference
CK	; EP-CHECK TO BE SURE THE SYSTEM IS RUNNING PROPERLY
TERM	; PREG ENDED WITHOUT A DELIVERY
VCN(VIEN,DEPTIEN)	; EP-GIVEN THE VISIT IEN (VIEN) AND DEPT IEN RETURN THE VCN
PDT	; PROCESS THE DATE
KID
DEL	; GET DELIVERY INFO
VISIT(APCDPAT,APCDDATE,APCDLOC,APCDCLN)	; EP-CREATE NEW VISIT, RETURN VISIT IEN
ASK
OB(DFN)	; EP - CLOSE PREGNANCY LOOP IF NECESSARY
CLEAN(OLD,START)	; EP-CLEAN OUT ALL VISITS IN A TIME RANGE WITH NO DEC
EDDT

External References

Name	Field # of Occurrence
^%DT	CLEAN+2, CLEAN+3
^APCDALV	VISIT+9
^DIC	PDT+8, KID+1, KID+7
YN^DICN	DEL+3, KID+4
^DIE	CK+11, CLEAN+9, VCN+14, PDT+3, KID+9
^DIR	ASK+2, TERM+2, DEL+5
$$CHART^VENPCC1A	VCN+9
UMSG^VENPCCP2	CK+1
^XBFMK	ASK+4, PDT+1, PDT+4, PDT+9, DEL+7, KID+1, KID+7, KID+10
$$FMADD^XLFDT	OB+5
$$FMTE^XLFDT	EDDT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"ENCOUNTER FORM ERROR DETECTED!!!" Line Location: CK+7
Function Call: WRITE	Prompt: !,"""",ERROR,"""" Line Location: CK+8
Function Call: WRITE	Prompt: !,"PLEASE TAKE APPROPRIATE ACTION",!! Line Location: CK+9
Function Call: WRITE	Prompt: "." Line Location: CLEAN+10
Function Call: WRITE	Prompt: !,"The record indicates that this patient was followed here for prenatal care" Line Location: ASK+0
Function Call: WRITE	Prompt: !,"and the Estimated Date of Delivery (EDD) was : ",EDDT Line Location: ASK+1
Function Call: WRITE	Prompt: !,"Is the chlid from this delivery registered here" Line Location: DEL+2
Function Call: WRITE	Prompt: !,"Are you certian this is the correct child" Line Location: KID+3
Routine Call	DIE Line Location: CK+11 CLEAN+9 VCN+14 PDT+3 KID+9
Routine Call	DIC Line Location: PDT+8 KID+1 KID+7
Routine Call	DIR Line Location: ASK+2 TERM+2 DEL+5

FileNo	Call Tags
^VEN(7.7 - [#19707.7]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	VISIT+5
^AUPNCPG(	OB+3, OB+4, PDT+3, KID+9
^AUPNCPG("B"	OB+2
^AUPNOBHX(	PDT+5
^AUPNOBHX("B"	PDT+4
^AUPNPAT - [#9000001]	VISIT+2
^AUPNVSIT - [#9000010]	CLEAN+6, CLEAN+9, VCN+2, VCN+5, VCN+6, VCN+13, VCN+14
^AUPNVSIT("AC"	VCN+10
^AUPNVSIT("B"	CLEAN+5
^AUPNVSIT("VCN"	VCN+11
^AUTTLOC - [#9999999.06]	VISIT+4
^DIC(40.7 - [#40.7]	VISIT+6, VISIT+8
^DPT - [#2]	VCN+7, KID+2
^VEN(7.7 - [#19707.7]	CK+3, CK+4, CK+5, CK+6, CK+11
^VEN(7.95 - [#19707.95]	VCN+3

Name	Line Occurrences
DEL	ASK+3
KID	KID+4
PDT	DEL+6, KID+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CK+2~, VISIT+1~, VISIT+3, VISIT+4, VISIT+6, VISIT+8, VCN+1~, VCN+5, OB+1~, DEL+3 , KID+3*, KID+4
%DT	CLEAN+1~, CLEAN+2, CLEAN+3
%Q	VISIT+1~
APCDADD	VISIT+1~, VISIT+7*
APCDCAT	VISIT+1~, VISIT+8*
APCDCLN	VISIT~, VISIT+6
APCDDATE	VISIT~, VISIT+3
APCDDFLT	VISIT+1~
APCDDOB	VISIT+1~
APCDDOD	VISIT+1~
APCDFLC	VISIT+1~
>> APCDFLG	VISIT+10
APCDFVOK	VISIT+1~, VISIT+7*
APCDLOC	VISIT~, VISIT+4
APCDPAT	VISIT~, VISIT+2
APCDSEX	VISIT+1~
APCDTYPE	VISIT+1~, VISIT+5*
APCDVSIT	VISIT+1~, VISIT+11
AUPNDAYS	VISIT+1~
AUPNDOB	VISIT+1~
AUPNDOD	VISIT+1~
AUPNPAT	VISIT+1~
AUPNSEX	VISIT+1~
AUPNVSIT	VISIT+1~
BDFN	OB+1~
BIEN	DEL+1~, KID+2*
>> CLINIC	VISIT+8
CNT	VCN+4~, VCN+10*, VCN+11
CPIEN	OB+1~, OB+2*, OB+3, OB+4, PDT+2, KID+6, KID+9
D	CK+2~, VCN+4~
D0	CK+2~, CLEAN+1~, VCN+4~
DA	CK+2~, CK+10, CLEAN+1~, CLEAN+5, CLEAN+6, CLEAN+9, VCN+4~, VCN+12, VCN+14, OB+1~ , PDT+2, PDT+3, KID+8*
DA(1	PDT+6, KID+6, KID+9
DD	OB+1~, OB+3*
DEPTIEN	VCN~, VCN+3, VCN+9
DFLN	VISIT+1~
DFN	VCN+4~, VCN+7*, VCN+9, VCN+10, OB~, OB+2, PDT+4
DI	CK+2~, VISIT+1~, VCN+4~
DIC	CK+2~, CLEAN+1~, VCN+4~, OB+1~, PDT+6, KID, KID+6*, KID+8
DIC("A"	KID*
DIC("P"	PDT+6, KID+6
DIC(0	PDT+6, KID, KID+6*
DICR	VISIT+1~
DIE	CK+2~, CK+10, CLEAN+1~, CLEAN+4, VCN+4~, VCN+12, OB+1~, PDT+2, KID+8*
DIG	VISIT+1~
DIH	VISIT+1~
DIR	ASK+2!, TERM+2!, DEL+5!
DIR("?"	TERM+2*
DIR("A"	ASK+2, TERM+1, DEL+4*
DIR(0	ASK+2, TERM+1, DEL+4*
DISYS	VISIT+1~
DIU	VISIT+1~
DIV	VISIT+1~
DIW	VISIT+1~
DK	VISIT+1~
DL	VISIT+1~
>> DLAYGO	PDT+6*
DOB	DEL+1~, KID+2*, KID+5
DQ	CK+2~, VISIT+1~, VCN+4~
DR	CK+2~, CK+10, CLEAN+1~, CLEAN+4, VCN+4~, VCN+12, OB+1~, PDT+2, KID+8*
DT	OB+6
DT60	OB+1~, OB+5*, OB+6
DUZ(2	VISIT+5
EDD	OB+1~, OB+4*, OB+5, EDDT
EDDT	OB+1~, EDDT*, ASK+1
EIEN	CK+2~, CK+3*, CK+4, CK+5, CK+6, CK+10
ERROR	CK+2~, CK+5*, CK+6, CK+8
HRN	VCN+4~, VCN+9*, VCN+11
IO	CK+6
J	VCN+4~, VCN+10*
NAME	DEL+1~, KID+2*, KID+6
OBIEN	OB+1~, PDT+4*, PDT+5, PDT+6
OLD	CLEAN~, CLEAN+2*, CLEAN+5
REC	VCN+4~, VCN+6*, VCN+7, VCN+8
SERVCAT	VCN+4~, VCN+8*, VCN+11
SEX	DEL+1~, KID+2*
START	CLEAN~, CLEAN+3*, CLEAN+5
TDT	OB+1~, PDT+2, PDT+5, PDT+7, KID+5
U	CK+4, CK+6, VISIT+5, VISIT+8, CLEAN+7, CLEAN+8, VCN+5, VCN+7, VCN+8, VCN+15 , OB+3, OB+4, KID+2
VCNT	VCN+4~, VCN+11*
VDATE	CLEAN+1~, CLEAN+5*
VIEN	VCN~, VCN+2, VCN+5, VCN+6, VCN+12, VCN+13, VCN+15
VPRV	CLEAN+1~
VRN	VCN+4~, VCN+11*, VCN+15
X	CK+2~, CK+4, CLEAN+1~, CLEAN+2, CLEAN+3, CLEAN+6, CLEAN+7, CLEAN+8, VCN+4~, OB+1~ , PDT+7, KID+6
Y	CLEAN+1~, CLEAN+2, CLEAN+3, OB+1~, ASK+3, ASK+4, PDT+1, PDT+2, DEL+5, KID+1 , KID+2, KID+7, KID+8
Z	OB+1~

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCC3

Information

Source Information

Call Graph

Call Graph Total: 10

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

Local Variables

Legend:

Marked Items