Routine: BCHALD

Information

BCHALD ; IHS/CMI/LAB - PCC LINK - NO LONGER USED ;

Source file <BCHALD.m>

Package	Total	Call Graph
IHS RPMS CHR System	2	^BCHABCH UPDPCC^BCHUTIL

Package	Total	Caller Graph
IHS RPMS CHR System	3	BCHABC1 BCHABC2 BCHABCH

Name	Comments	DBIA/ICR reference
LBULL	;EP - SEND BULLETIN - LINK FAILURE
COMPLETE	;EP complete visit protocol call
EOJ	;
COMP2	;
PCCCHECK	;check to see if link to pcc active, set BCHLPCC IF SO
EP	;

Name	Field # of Occurrence
^BCHABCH	EP+5
UPDPCC^BCHUTIL	COMPLETE+3

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	PCCCHECK+3, PCCCHECK+7, PCCCHECK+8
^AUTTSITE(1	PCCCHECK+1, PCCCHECK+2
^DIC - [#1]	COMPLETE+2, COMP2+1
^DIC(9.4 - [#9.4]	PCCCHECK+6

Name	Field # of Occurrence
BCHDUZ	EOJ+1!
BCHERR	EOJ+1!
BCHPKG	PCCCHECK+4, PCCCHECK+5, PCCCHECK+6, PCCCHECK+7, PCCCHECK+8, EOJ+1!
BCHPKG("NAME"	PCCCHECK+6*
BCHQUIT	EP+3, PCCCHECK+1, PCCCHECK+2, PCCCHECK+3, PCCCHECK+4, PCCCHECK+5, PCCCHECK+7, PCCCHECK+8*, EOJ+1!
BCHV	COMPLETE+4!
BCHV(	COMP2+2*
BCHV("VFILES"	EP+4!, EOJ+1!, COMPLETE+2
BCHV("VISIT"	EP+4!, EOJ+1!, COMPLETE+1*
BCHVDFN	COMPLETE+4!, COMP2+2*
BCHVDG	COMPLETE+4!, COMP2+1*
BCHVFLE	COMPLETE+2*, COMPLETE+4!, COMP2+1, COMP2+2
BCHVI	EOJ+1!, COMP2+2*
BCHVIGR	COMPLETE+4!, COMP2+1*, COMP2+2
BCHVL	EOJ+1!, COMPLETE+2*
>> BCHVSIT	COMPLETE+1
DUZ(2	PCCCHECK+3, PCCCHECK+7, PCCCHECK+8
U	PCCCHECK+2, PCCCHECK+6, PCCCHECK+8
X	COMPLETE+4!
XMB	EOJ+1!
Y	COMPLETE+4!