Routine: BCHHL7F

Package	Total	Call Graph
VA Fileman	3	^%DT FILE^DICN (,CHK,FILE)^DIE
IHS RPMS CHR System	2	PROTOCOL^BCHUADD1 DELETE^BCHUDEL
IHS Support HL7 Interfaces	2	^BHLFO ^BHLSETI
IHS VA Utilities	2	^XBFMK EN^XBVK
Kernel	2	$$NOW^XLFDT $$UP^XLFSTR
IHS Patient	1	KILL^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
MEAS	;
PCCLINK	;
MODIFY	;
FILEMEAS	; file all tests
GETPAT	;
ERRF	;
EDITREC	;
ADD	;
ERRLOG	;
XIT	;
SRVLK	;
POVS	;
PROBLK	;
FILEDMO	; get patient based on chart number passed, check dob and sex ; if same use IEN, otherwise do not
MAIN	;EP - called from GIS interface
CHECK	; ; - in order to file a record into the CHR Module ; - the following field values must be present and valid ; . there must be at least one OBR/OBX combination that is ; not a test and measurement OBR this segment must have a ; health problem code and activity code pair in OBX ; . CHR - provider ID, OBR 32 ; . DATE OF SERVICE - OBR 7 ; . CHR PROGRAM CODE - ZHR 2 ; . ACTIVITY LOCATION - ZHR 3 ; ; check for value and transform into fileable format in separate array ; chr program code in variable BCHPROG, can be 4 slashed
FILEREC	;

External References

Name	Field # of Occurrence
^%DT	GETPAT+11, ADD+3
KILL^AUPNPAT	XIT+1
PROTOCOL^BCHUADD1	PCCLINK+3
DELETE^BCHUDEL	MODIFY+3
^BHLFO	MAIN+2
^BHLSETI	MAIN+1
FILE^DICN	ADD+3, POVS+6, ERRLOG+5
^DIE	POVS+13, FILEDMO+11, FILEMEAS+7, ERRLOG+9, ERRLOG+13
CHK^DIE	MEAS+11
FILE^DIE	EDITREC+15
^XBFMK	ADD+2, POVS+1, POVS+9, POVS+15, FILEDMO+8, FILEMEAS+7, ERRLOG+2, ERRLOG+8, ERRLOG+11
EN^XBVK	MAIN+5, XIT+2
$$NOW^XLFDT	ERRLOG+4
$$UP^XLFSTR	POVS+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BCHR - [#90002]	Classic Fileman Calls, CHK^DIE
^BCHRPROB - [#90002.01]	Classic Fileman Calls
^BCHHLER - [#90002.32]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT("D"	GETPAT+12
^AUTTCOM("C"	FILEDMO+7
^AUTTLOC("C"	GETPAT+5, CHECK+23
^AUTTTRI("C"	FILEDMO+6
^BCHHLER - [#90002.32]	ERRLOG+19, ERRLOG+23, ERRLOG+26*
^BCHR("CUI"	FILEREC+1, MODIFY+1
^BCHTACTL("D"	CHECK+19
^BCHTMT - [#90002.58]	FILEMEAS+5, MEAS+8
^BCHTMT("B"	FILEMEAS+4, MEAS+6
^BCHTPROB - [#90002.53]	CHECK+50
^BCHTPROB("C"	PROBLK+2
^BCHTPROG("C"	CHECK+16
^BCHTREF("D"	CHECK+57, CHECK+58
^BCHTSERV - [#90002.54]	CHECK+50
^BCHTSERV("D"	SRVLK+2
^DPT - [#2]	GETPAT+15, GETPAT+16
^VA(200 - [#200]	CHECK+40

Label References

Name	Line Occurrences
ADD	FILEREC+3, MODIFY+2, MODIFY+4
CHECK	MAIN+7
EDITREC	ADD+6
ERRLOG	MAIN+8, MAIN+10, MAIN+12
FILEDMO	ADD+10
FILEMEAS	ADD+9
FILEREC	MAIN+11
GETPAT	MAIN+9
MEAS	CHECK+37
MODIFY	FILEREC+2
PCCLINK	ADD+11
POVS	ADD+8
PROBLK	CHECK+46
SRVLK	CHECK+47
XIT	MAIN+8, MAIN+10, MAIN+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	GETPAT+11, ADD+3
APCDOVRR	POVS+3*, POVS+16!
>> BCHACT	FILEREC+1, FILEREC+2, CHECK+61
>> BCHACTL	CHECK+18*, CHECK+21
>> BCHACTLI	EDITREC+6, CHECK+19*
>> BCHC	ERRLOG+16, ERRLOG+17, ERRLOG+18, ERRLOG+19, ERRLOG+20, ERRLOG+21, ERRLOG+22, ERRLOG+23, CHECK+28, CHECK+31 , CHECK+36, CHECK+39, CHECK+41, CHECK+42, CHECK+48, CHECK+49, CHECK+50, MEAS+3, MEAS+4, MEAS+9
>> BCHCHR	EDITREC+3, CHECK+39, CHECK+40
>> BCHCHRN	GETPAT+3*, GETPAT+4, GETPAT+6
>> BCHCNTR	ERRLOG+16, ERRLOG+19, ERRLOG+23*, ERRLOG+26
>> BCHCOM	FILEDMO+7*, FILEDMO+10
>> BCHCOMP	FILEDMO+7*, FILEDMO+10
>> BCHD	ERRLOG+17*, ERRLOG+18, ERRLOG+19
BCHDAR	MAIN+6!
>> BCHDATA	ERRLOG+10*, ERRLOG+12, ERRLOG+13
>> BCHDOB	GETPAT+9, GETPAT+11, GETPAT+16, FILEDMO+4, FILEDMO+9
>> BCHDOS	ADD+3, CHECK+31, CHECK+32
>> BCHE	ERRLOG+20*, ERRLOG+21, ERRLOG+22, ERRLOG+23
>> BCHEIEN	ERRLOG+6*, ERRLOG+7, ERRLOG+9, ERRLOG+13, ERRLOG+19, ERRLOG+23, ERRLOG+26
BCHERR	MAIN+8, MAIN+10, MAIN+12, ADD+4, ADD+7, EDITREC+14, EDITREC+16, POVS+14, FILEMEAS+4, FILEMEAS+8* , CHECK+13!, CHECK+14, CHECK+15, CHECK+16, CHECK+18, CHECK+19, CHECK+21, CHECK+22, CHECK+23, CHECK+28 , CHECK+31, CHECK+39, CHECK+40, CHECK+41, CHECK+44, CHECK+45, CHECK+46, CHECK+47, CHECK+55, CHECK+57* , CHECK+58, MEAS+3, MEAS+7, MEAS+8, MEAS+12, PROBLK+3, SRVLK+3
BCHERR("ERROR"	ADD+4, EDITREC+16, POVS+7, POVS+14, FILEMEAS+4, ERRLOG+9, CHECK+15, CHECK+16, CHECK+18, CHECK+19* , CHECK+22, CHECK+23, CHECK+31, CHECK+39, CHECK+40, CHECK+44, CHECK+45, CHECK+57, CHECK+58, MEAS+7 , MEAS+8, MEAS+12, PROBLK+3, SRVLK+3
BCHEV	PCCLINK+4!
BCHEV("TYPE"	PCCLINK+2*
>> BCHEVAL	EDITREC+9, CHECK+60*
>> BCHF	ERRLOG+21*, ERRLOG+22, ERRLOG+23
>> BCHFACH	GETPAT+4*, GETPAT+5
>> BCHFACL	EDITREC+5, CHECK+21, CHECK+22, CHECK+23
BCHFDA	EDITREC+1!, EDITREC+17!
BCHFDA(90002	EDITREC+2, EDITREC+3, EDITREC+4, EDITREC+5, EDITREC+6, EDITREC+7, EDITREC+8, EDITREC+9, EDITREC+10, EDITREC+11 , EDITREC+12, EDITREC+13
>> BCHFHRN	GETPAT+5*, GETPAT+7, GETPAT+12, FILEDMO+9
>> BCHFIELD	FILEMEAS+5*, FILEMEAS+7
>> BCHHRN	GETPAT+6*, GETPAT+12, FILEDMO+9
BCHMEAS	FILEMEAS+2, CHECK+26!, MEAS+1!, MEAS+2, MEAS+13
BCHMEAS(	FILEMEAS+3, MEAS+13*
>> BCHMFIEL	MEAS+6, MEAS+7, MEAS+8, MEAS+11, MEAS+13
>> BCHMIN	CHECK+30, CHECK+48, CHECK+52
>> BCHMRES	MEAS+9, MEAS+10, MEAS+11, MEAS+12, MEAS+13
>> BCHMTYP	FILEMEAS+3*, FILEMEAS+4, FILEMEAS+8
>> BCHN	POVS+4, POVS+5, POVS+11, POVS+12, FILEMEAS+3
>> BCHNAME	GETPAT+2*, FILEDMO+4, FILEDMO+9
>> BCHNARR	CHECK+30, CHECK+50, CHECK+52
>> BCHNS	EDITREC+11, CHECK+59*
>> BCHPAT	GETPAT+1, GETPAT+12, GETPAT+13, GETPAT+15, GETPAT+16, EDITREC+4, FILEDMO+3
>> BCHPOV	POVS+8*, POVS+10
>> BCHPOVC	CHECK+27, CHECK+51, CHECK+52
BCHPOVS	POVS+2, CHECK+25!
BCHPOVS(	POVS+4, POVS+5, POVS+11, POVS+12, CHECK+52*
>> BCHPROB	CHECK+30, CHECK+50, CHECK+52, PROBLK+4
>> BCHPROG	EDITREC+2, CHECK+16*
BCHR	ADD+5, EDITREC+2, EDITREC+3, EDITREC+4, EDITREC+5, EDITREC+6, EDITREC+7, EDITREC+8, EDITREC+9, EDITREC+10 , EDITREC+11, EDITREC+12, EDITREC+13, FILEDMO+9, FILEMEAS+7, PCCLINK+4!, MODIFY+1, MODIFY+2
>> BCHREFF	EDITREC+8, CHECK+58*
>> BCHREFT	EDITREC+7, CHECK+57*
>> BCHSEX	GETPAT+8*, GETPAT+15, FILEDMO+4, FILEDMO+9
>> BCHSRV	POVS+11, POVS+12, CHECK+30, CHECK+50, CHECK+52, SRVLK+4*
>> BCHSSN	FILEDMO+5*, FILEDMO+9
BCHSTOP	MODIFY+3*!
>> BCHSUBST	CHECK+30, CHECK+49, CHECK+52
>> BCHT	CHECK+36, CHECK+37, CHECK+43, CHECK+44, CHECK+45, CHECK+46, CHECK+47, CHECK+50
>> BCHTEMPR	EDITREC+13, CHECK+63*
>> BCHTEXT	ERRLOG+10*
>> BCHTIEN	FILEMEAS+4*, FILEMEAS+5
>> BCHTRAV	EDITREC+10, CHECK+56*
>> BCHTRI	FILEDMO+6*, FILEDMO+10
>> BCHUID	FILEREC+1, EDITREC+12, MODIFY+1, CHECK+62*
>> BCHVAL	CHECK+42, CHECK+43, MEAS+4, MEAS+5*, MEAS+6, MEAS+7, MEAS+10, MEAS+12, MEAS+13, PROBLK+1 , SRVLK+1
>> BCHVALUE	FILEMEAS+3*, FILEMEAS+7
>> BCHX	ERRLOG+10, CHECK+41, CHECK+42, CHECK+50, MEAS+3*, MEAS+4, MEAS+9
BCHZ	MEAS+11!, MEAS+12
BHL	MAIN+4, XIT+3!
BHL("OBR"	ERRLOG+16, ERRLOG+17, ERRLOG+18, ERRLOG+19, CHECK+28, CHECK+31, CHECK+36, CHECK+39, CHECK+48, CHECK+49
BHL("OBX"	ERRLOG+20, ERRLOG+21, ERRLOG+22, ERRLOG+23, CHECK+41, CHECK+42, CHECK+50, MEAS+3, MEAS+4, MEAS+9
BHL("PID"	GETPAT+2, GETPAT+3, GETPAT+8, GETPAT+10, FILEDMO+5, CHECK+63
BHL("PV1"	CHECK+21
BHL("ZHR"	FILEDMO+7, CHECK+15, CHECK+18, CHECK+57, CHECK+58, CHECK+59, CHECK+60, CHECK+61, CHECK+62
BHL("ZP2"	FILEDMO+6
BHL("ZV1"	CHECK+56
>> BHLERR	POVS+5, POVS+7, FILEDMO+12*
>> BHLERR("ERROR"	POVS+5*
>> BHLNOST	MAIN+1*
D0	ERRLOG+5!
>> DA	POVS+10, FILEDMO+9, FILEMEAS+7, ERRLOG+9, ERRLOG+13*
DD	ADD+3!, POVS+6!, ERRLOG+5!
DIADD	POVS+6!, ERRLOG+2!, ERRLOG+4, ERRLOG+5!
>> DIC	ADD+3, POVS+6, ERRLOG+4*
>> DIC("DR"	ADD+3, POVS+6
>> DIC(0	ADD+3, POVS+6, ERRLOG+4*
>> DIE	POVS+10, FILEDMO+9, FILEMEAS+7, ERRLOG+9, ERRLOG+13*
DLAYGO	ADD+3, POVS+6!, ERRLOG+2!, ERRLOG+4*, ERRLOG+5!
DO	ADD+3!, POVS+6!, ERRLOG+5!
>> DR	POVS+12, FILEDMO+9, FILEDMO+10, FILEMEAS+7, ERRLOG+9, ERRLOG+13
DT	ADD+3, ERRLOG+26
DUZ	ADD+3
U	MAIN+3, GETPAT+2, POVS+5, POVS+11, POVS+12, FILEMEAS+3, FILEMEAS+5, ERRLOG+3, CHECK+50, MEAS+8
>> V	ERRLOG+12*
>> X	GETPAT+10, GETPAT+11, GETPAT+12, FILEREC+1, ADD+3, POVS+5, ERRLOG+4, ERRLOG+12, ERRLOG+13, CHECK+15* , CHECK+16, CHECK+18, CHECK+19, CHECK+57, CHECK+58, PROBLK+1, PROBLK+2, PROBLK+3, SRVLK+1*, SRVLK+2 , SRVLK+3
>> Y	GETPAT+11, ADD+3, ADD+4, ADD+5, POVS+7, POVS+8, POVS+14, FILEDMO+12, FILEMEAS+8, ERRLOG+6 , PROBLK+2, PROBLK+3, PROBLK+4, SRVLK+2, SRVLK+3, SRVLK+4

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHHL7F

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items