Routine: VENPCCG1

Package	Total	Caller Graph
PCC New Encounter Form	2	VENPCC1P VENPCCG

Name	Comments	DBIA/ICR reference
PAT	;
SCREEN	;
ST	; EP - CALLED FROM VENPCCG AND VENPCC1
AGEGRPS	; ; AP will be the age group node that will be used in extraction
EXIT	;CLEANUP
MSG	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Building Temp file. Please hold......" Line Location: MSG+1
Function Call: WRITE	Prompt: !!,"Searching database for preferences..." Line Location: MSG+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPOV - [#9000010.07]	MSG+12
^AUPNVPOV("AD"	MSG+11
^AUPNVPRV - [#9000010.06]	SCREEN+6, SCREEN+11
^AUPNVPRV("AD"	SCREEN+4
^AUPNVSIT - [#9000010]	MSG+8, PAT+1
^AUPNVSIT("B"	MSG+6, MSG+7
^DD(9000010.06	SCREEN+3
^DIC(40.7 - [#40.7]	PAT+7
^DPT - [#2]	PAT+11

Name	Field # of Occurrence
>> %	MSG+8, SCREEN+3
>> AGE	MSG+15, PAT+15*, AGEGRPS+2, AGEGRPS+3, AGEGRPS+4, AGEGRPS+5, AGEGRPS+6, AGEGRPS+7, AGEGRPS+8, AGEGRPS+9
>> AGEGRP	MSG+15, MSG+16, MSG+19
>> AP	MSG+21, AGEGRPS+2, AGEGRPS+3, AGEGRPS+4, AGEGRPS+5, AGEGRPS+6, AGEGRPS+7, AGEGRPS+8, AGEGRPS+9
>> BD	MSG+5
>> CC	PAT+7*, PAT+8
CL	EXIT+3!
CLIN	EXIT+3!, PAT+4, PAT+5, PAT+7, PAT+8, PAT+9
CODE	EXIT+3!
CPT	EXIT+3!
CT	EXIT+3!
>> DOB	MSG+10, PAT+12*, PAT+15
DOS	EXIT+3!, PAT+10*, PAT+15
DPT0	EXIT+3!, PAT+11*, PAT+12, PAT+13
>> ED	MSG+4*
>> FL	MSG+9, SCREEN+1, SCREEN+4, SCREEN+7, SCREEN+13*
>> ICD	MSG+13*, MSG+19, MSG+20, MSG+21, MSG+25
>> NEWDXP	MSG+1, EXIT+2
>> PAT	MSG+10, PAT+2*, PAT+3, PAT+11
>> PNP	MSG+14*, MSG+25
>> QUIET	ST+1, MSG+2
REC	MSG+12*, MSG+13, MSG+14, EXIT+3!
>> SEX	PAT+13, PAT+14, AGEGRPS+4, AGEGRPS+5, AGEGRPS+6, AGEGRPS+7, AGEGRPS+8, AGEGRPS+9
>> TMP	MSG+19, MSG+20, MSG+21, MSG+25
>> TYPE	MSG+9, SCREEN+5, SCREEN+10
U	MSG+8, SCREEN+3, SCREEN+12
>> VD	MSG+5, MSG+6, MSG+7
>> VDFN	MSG+7*, MSG+8, MSG+11, PAT+1, SCREEN+4
VEN	EXIT+3!, SCREEN+2, SCREEN+4, SCREEN+6, SCREEN+11
VEN("PC"	SCREEN+13
VEN("PRV"	SCREEN+7
>> VENDEPT	MSG+8
VENGBL	EXIT+3!, SCREEN+3*, SCREEN+12
VENPRV	EXIT+3!, SCREEN+6, SCREEN+7, SCREEN+11
>> VENPTY	SCREEN+12*, SCREEN+13
>> VIS	PAT+1*, PAT+2, PAT+4, PAT+10
VREC	EXIT+3!
X	EXIT+3!, PAT+15
>> X1	PAT+15*
>> X2	PAT+15*
Y	EXIT+3!
Z	MSG+11*, MSG+12, EXIT+3!

Information