Routine: VENPCCP3

Package	Total	Call Graph
VA Fileman	6	^DIC YN^DICN ^DIE ^DIK EN1^DIP ^DIR
PCC New Encounter Form	5	$$MSG^VENPCCMX KILLTASK^VENPCCP DEL^VENPCCP1 FILES^VENPCCP2 $$CFG^VENPCCU
IHS VA Utilities	2	$$DIR^XBDIR ^XBFMK
Patient Care Component	1	(DELETE,DSPLY,EOJ,GETPAT,GETVISIT)^APCDVDEL

Package	Total	Caller Graph
PCC New Encounter Form	1	VENPCCP1

Entry Points

Name	Comments	DBIA/ICR reference
IP	; EP - RESET IP ADDRESSSES FOR THE PRINT SERVERS
EOJ
BLOCK(TYPE)	; EP-BLOCK A CLINIC FOR REPAIRS
MAX	; EP-SET THE MAXIMUM NUMBER OF "z" FILES FOR A CLINIC
CLNNO	; EP-TURN OFF AUTO CLEANUP
PATCH	; EP-PATCH VENPCCP & VENPCC TO INCLUDE NEW ERROR MANAGEMENT UTILITIES
ELOG	; EP-PRINT ERROR LOG
IPDIE
BLOCKON	; EP-BLOCK PCC+ DOCUMENT GENERATION FOR A SPECIFIC CLINIC
CLNYES	; EP-TURN ON AUTO CLEANUP
CLEAN	; EP-CLEAN OUT OLD Z FILES FROM THE PRINT DIRECTORY
CLN(TYPE)	; EP-TURN AUTO-CLEANUP ON/OFF
DV	; EP - DELETE A TEST VISIT, ASSOCIATED TEST V FILE ENTRIES, AND ASSOCIATED VEN QUEUE ENTRY
UNPATCH	; EP-REMOVE ERROR MANAGEMENT PATCHES FROM VENPCCP AND VENPCC
BLOCKOFF	; EP-DON'T BLOCK PCC+ DOCUMENT GENERATION FOR A SPECIFIC CLINIC
HE	; EP-ERROR HELPER

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Patch option has been disabled. Request terminated..." Line Location: PATCH+1
Function Call: WRITE	Prompt: !,"Un-patch option has been disabled. Request terminated..." Line Location: UNPATCH+1
Function Call: WRITE	Prompt: !,"PCC+ forms will "_$S(TYPE:"not",1:"now")_" be printed at this clinic",!! Line Location: BLOCK+8
Function Call: WRITE	Prompt: !,"For this clinic, A maximum of ",MAX," 'z' files will be allowed in the print folder.",!! Line Location: MAX+11
Function Call: WRITE	Prompt: !,"Want to turn ",$S(TYPE:"on",1:"off")," the auto cleanup feature for the PRINT folder" Line Location: CLN+2
Function Call: WRITE	Prompt: !!,"No PATIENT selected!" Line Location: DV+2
Function Call: WRITE	Prompt: !!,"No VISIT selected!" Line Location: DV+4
Function Call: WRITE	Prompt: !,"Both Print Servers already have the same IP address! Request denied..." Line Location: IP+6
Function Call: WRITE	Prompt: !,"Resetting the Print Server IP addresses. Please wait..." Line Location: IPDIE+3
Routine Call	DIE Line Location: CLEAN+15 BLOCK+6 MAX+9 CLN+5 IPDIE+1
Routine Call	DIC Line Location: BLOCK+4 MAX+3 HE+2
Routine Call	DIR Line Location: IP+10

Name	Line Occurrences (* Changed, ! Killed)
^VEN(7.2 - [#19707.2]	DV+7
^VEN(7.5 - [#19707.5]	CLEAN+3, CLEAN+15, CLN+5, IP+2, IPDIE+1
^VEN(7.7 - [#19707.7]	CLEAN+9, CLEAN+11
^VEN(7.95 - [#19707.95]	BLOCK+6, MAX+4, MAX+9

Name	Field # of Occurrence
%	CLEAN+4~, CLEAN+11, CLEAN+12, CLN+1~, CLN+3, IP+7*
A	MAX+1~, MAX+5*, MAX+6
>> APCDPAT	DV+2
>> APCDVSIT	DV+4, DV+7
B	MAX+1~, MAX+4*, MAX+6
BY	ELOG+1~, ELOG+2, HE+3
CFIGIEN	CLEAN+1, CLEAN+3, CLEAN+15, IP+1~
DA	CLEAN+4~, CLEAN+15, BLOCK+2~, BLOCK+5, BLOCK+6, MAX+1~, MAX+4, MAX+9, CLN+1~, CLN+4 , CLN+5, DV+7~, DV+8, IP+1~, IP+2, IPDIE+1
>> DHD	HE+3*
DIC	ELOG+1~, ELOG+2, BLOCK+2~, BLOCK+4, BLOCK+5, MAX+1~, MAX+3, MAX+8, HE+1~, HE+2 , IP+1~
DIC("A"	BLOCK+3, MAX+2, HE+2*
DIC(0	BLOCK+4, MAX+3, HE+2*
DIE	CLEAN+4~, CLEAN+15, BLOCK+2~, BLOCK+5, MAX+1~, MAX+8, CLN+1~, CLN+5, IP+1~, IPDIE*
DIK	DV+7~, DV+8*
DIR	IP+10!
DIR("A"	IP+9*
DIR(0	IP+8*
DR	CLEAN+4~, CLEAN+15, BLOCK+2~, BLOCK+5, MAX+1~, MAX+8, CLN+1~, CLN+5, IP+1~, IP+7* , IP+11, IP+12
DT	CLEAN+1, CLEAN+3, CLEAN+12, CLEAN+15
EIEN	CLEAN+4~, CLEAN+9*, CLEAN+10, CLEAN+11
FILE	CLEAN+4~, CLEAN+7*, CLEAN+8, CLEAN+9, CLEAN+10, CLEAN+12
FLDS	ELOG+1~, ELOG+2, HE+3
FR	ELOG+1~, ELOG+2*
IP1	IP+1~, IP+3*, IP+4, IP+6, IP+7, IP+11, IP+12
IP2	IP+1~, IP+4*, IP+6, IP+7, IP+11, IP+12
IP4	IP+1~, IP+5*, IP+6, IP+7
IP5	IP+1~, IP+5*, IP+7
MAX	MAX+1~, MAX+6*, MAX+7, MAX+11
>> PATH	CLEAN+1, CLEAN+6, CLEAN+10, CLEAN+12
POP	ELOG+1~
TMP	CLEAN+4~, CLEAN+5*, CLEAN+6, CLEAN+7, CLEAN+14
TO	ELOG+1~, ELOG+2*
TYPE	BLOCK~, BLOCK+1, BLOCK+3, BLOCK+5, BLOCK+8, CLN~, CLN+2
U	CLEAN+3, CLEAN+11, MAX+4, IP+3, IP+4, IP+5
X	BLOCK+2~, MAX+1~, CLN+1~, HE+1~, IP+1~, IP+2*, IP+3, IP+4, IP+5
Y	BLOCK+2~, BLOCK+4, BLOCK+5, MAX+1~, MAX+3, MAX+4, CLN+1~, HE+1~, HE+2, HE+3 , IP+1~, IP+11, IP+12