Routine: BCHABCH

Information

BCHABCH ; IHS/CMI/LAB - CHR TO PCC LINK ROUTINE 27 Apr 2006 11:53 AM ;

Source Information

Source file <BCHABCH.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
IHS RPMS CHR System	3	VFILES^BCHABC1 (D,E)^BCHABC2 (COMPLETE,LBULL)^BCHALD
Patient Care Component	2	^APCDALV (,GETVISIT)^APCDAPI4
IHS Changes To Scheduling	1	^BSDAPI4

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS RPMS CHR System	2	BCHABC2 BCHALD

Entry Points

Name	Comments	DBIA/ICR reference
VE21	;;No activity location passed. No Location determined.
VE23	;;No IHS Location for OTHER in CHR SITE PARAMETER File.
VE22	;;No IHS Location for HOME in CHR SITE PARAMETER File.
VE24	;;No Location of Encounter when Activity location is Hospital/Clinic.
VE27	;;No Location of Encounter for OFFICE in CHR SITE PARAMETER file.
GETLOC	;get location of encounter
EOJ	;
VSERROR	;EP
BSDADD1	;
VE2	;;inability to create visit
VE3	;;invalid visit parameters (date, location etc.)
VE29	;;Error attempting to modify visit
VE28	;;No Location of Encounter for SCHOOL in CHR SITE PARAMETER file.
BSD	;
CHECK	;EP
A	;EP - added a record
E	;edited a chr record
D	;
GETTYPE	;get type of visit
VISIT	;EP
CLINIC	;get clinic - if act. loc is home use 11 otherwise 01
EP	;EP - call from BCHALD DRIVER
SERVCAT	;get service category - if radio/telephone act loc use T

External References

Name	Field # of Occurrence
^APCDALV	A+13
^APCDAPI4	A+4
GETVISIT^APCDAPI4	BSDADD1+3
VFILES^BCHABC1	A+7, A+16
D^BCHABC2	D+1
E^BCHABC2	E+1
COMPLETE^BCHALD	A+9, A+19
LBULL^BCHALD	VSERROR+5
^BSDAPI4	A+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	GETTYPE+10
^AUTTLOC - [#9999999.06]	GETTYPE+1, GETTYPE+9
^BCHTACTL - [#90002.56]	GETTYPE+4
^DIC(19 - [#19]	BSD+14
^DIC(40.7 - [#40.7]	CLINIC+1

Label References

Name	Line Occurrences
@(	EP+5
BSD	A+5
CHECK	A+2
EOJ	EP+6, A+3, A+4, A+12, A+20
GETLOC	VISIT+4
GETTYPE	VISIT+6
VISIT	A+11, BSD+5
VSERROR	A+6, A+14, VISIT+5, VISIT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDALVR	EP+2!, A+1!, BSD+2!, BSDADD1+1!, BSDADD1+5!, EOJ+1!
APCDALVR("APCDADD"	VISIT+1*
APCDALVR("APCDAFLG"	A+14
APCDALVR("APCDAPPT"	CLINIC+2*
APCDALVR("APCDAUTO"	VISIT+1*
APCDALVR("APCDCAF"	CLINIC+3*
APCDALVR("APCDCAT"	SERVCAT+3*, BSD+11
APCDALVR("APCDCLN"	CLINIC+1*, BSD+12
APCDALVR("APCDDATE"	VISIT+3*, BSD+7
APCDALVR("APCDLOC"	GETLOC+4, GETLOC+11, GETTYPE+1, GETTYPE+9, BSD+10
APCDALVR("APCDPAT"	VISIT+2*, BSD+9
APCDALVR("APCDTYPE"	GETTYPE+3, GETTYPE+4, GETTYPE+5, GETTYPE+6, GETTYPE+8, GETTYPE+9, GETTYPE+10, GETTYPE+11, BSD+8
APCDALVR("APCDVSIT"	A+15
BCHACTL	SERVCAT+3, CLINIC+1, GETLOC+2*, GETLOC+5, GETLOC+7, GETLOC+8, GETLOC+9, EOJ+1!
BCHDATK	VISIT+3*, EOJ+1!
BCHERR	BSDADD1+4, BSDADD1+6, EOJ+1!, VSERROR+3
BCHEV	EP+3, EOJ+2!
BCHEV("ACTLOC"	GETLOC+1, GETLOC+2
BCHEV("CHR IE	N" , VSERROR+2
BCHEV("DATA0"	CHECK+1, CHECK+2, CHECK+3, VISIT+2, VISIT+3, GETLOC+3, GETTYPE+2, VSERROR+4
BCHEV("POV"	CHECK+4, CHECK+5, CHECK+10, CHECK+11
BCHEV("SITE"	GETLOC+7, GETLOC+8, GETLOC+9, GETLOC+10, GETTYPE+3, GETTYPE+4, GETTYPE+5, GETTYPE+8
BCHEV("TYPE"	EP+4, EP+5, VISIT+1
BCHFILE	EOJ+1!, VSERROR+1*
BCHGOT	CHECK+4, CHECK+6, CHECK+8, CHECK+10, CHECK+12, CHECK+14, EOJ+1!
BCHIEN	EOJ+1!, VSERROR+2*
BCHIN	BSDADD1+3, BSDADD1+5!
BCHIN("APCDAPPT"	BSD+13*
BCHIN("APCDCAF"	BSD+15*
BCHIN("APCDOPT"	BSD+14*
BCHIN("CLINIC	CODE" , BSD+12*
BCHIN("FORCE	ADD" , BSD+4*
BCHIN("PAT"	BSD+9*
BCHIN("SITE"	BSD+10*
BCHIN("SRV CA	T" , BSD+11*
BCHIN("TIME R	ANGE" , BSD+17*
BCHIN("USR"	BSD+16*
BCHIN("VISIT	DATE" , BSD+7, TYPE" , BSD+8
BCHLINK	EOJ+1!
BCHLOC	GETLOC+3, GETLOC+4, GETLOC+7, GETLOC+8, GETLOC+9, GETLOC+10, GETLOC+11, GETTYPE+1, EOJ+1!
BCHQUIT	EP+2!, CHECK+1, CHECK+2, CHECK+3, CHECK+8, CHECK+14, A+1!, A+3, A+6, A+12 , A+14, VISIT+5, VISIT+7, GETLOC+1, GETLOC+5, GETLOC+7, GETLOC+8, GETLOC+9, GETLOC+10, BSD+6 , BSDADD1+6, EOJ+1!, VSERROR+3
BCHTYPE	EOJ+1!
>> BCHV	BSDADD1+3
>> BCHV(	BSDADD1+7
>> BCHV("9000010"	A+8, A+18
>> BCHV(0	BSDADD1+4, BSDADD1+7
BCHVSIT	A+6, A+8, A+15, A+18, BSD+3, BSDADD1+2, BSDADD1+7, EOJ+1!
BCHX	CHECK+4, CHECK+5, CHECK+10, CHECK+11, EOJ+1!
DFN	VSERROR+4*, VSERROR+6!
DUZ	BSD+16
DUZ(2	GETTYPE+10
U	CHECK+2, CHECK+3, CHECK+5, VISIT+2, VISIT+3, GETLOC+2, GETLOC+3, GETLOC+7, GETLOC+8, GETLOC+9 , GETLOC+10, GETTYPE+1, GETTYPE+2, GETTYPE+3, GETTYPE+4, GETTYPE+5, GETTYPE+8, GETTYPE+9, GETTYPE+10, BSD+14 , BSDADD1+4, BSDADD1+7, VSERROR+4
>> V	BSDADD1+7*
>> X	CHECK+5, CHECK+11, GETTYPE+2, GETTYPE+3, GETTYPE+4, GETTYPE+9, GETTYPE+10*
>> XQY0	BSD+14
>> ZTQUEUED	EP+1

Marked Items

Name	Field # of Occurrence
$T(@BCHERR	VSERROR+3
$T(^APCDAPI4	A+4
$T(^BSDAPI4	A+4

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHABCH

Call Graph Total: 6

Caller Graph Total: 2