Routine: BHLPIDI

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC ^DIC ^DIE ^DIK
IHS Generic Interface System	1	($$HDATE,$$HLPN)^INHUT
IHS Support HL7 Interfaces	1	REGUP^BHLZP2I

Package	Total	Caller Graph
IHS Support HL7 Interfaces	1	BHLZP1I

Name	Comments	DBIA/ICR reference
OCHKS	;check sex, ssn, and dob
PROCESS	;-- process the segment
EOJ	;-- kill variables
ADDPAT	;-- add a patient to the system
NOW()	;-- get now
PRS4	;-- parse sequence 4
PRS3	;-- parse sequence 3
CHT	;-- add the chart number
CLEAN	;-- clean up file 2
SSNC	;-- check for ssn, dob, sex match
CHKPAT	;EP - check the patient by their identifiers
MAIN	;-- this is the main routine driver

Name	Field # of Occurrence
NOW^%DTC	NOW+1
REGUP^BHLZP2I	PROCESS+19
^DIC	ADDPAT+9, CHT+4
^DIE	CHT+7
^DIK	CLEAN+2
$$HDATE^INHUT	PROCESS+17, SSNC+4, OCHKS+1, ADDPAT+1
$$HLPN^INHUT	PROCESS+2, SSNC+8, OCHKS+8, ADDPAT+7

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AGPATCH(	PROCESS+32, ADDPAT+20
^AUPNPAT - [#9000001]	ADDPAT+18, CLEAN+3!, CHT+2
^AUPNPAT("B"	ADDPAT+18*, CLEAN+3!
^AUPNPAT("D"	PRS3+10, PRS3+11, PRS4+13, PRS4+14
^AUTTLOC("C"	PRS3+6, PRS4+10
^DIC(4 - [#4]	CHT+3
^DIC(5 - [#5]	PROCESS+8
^DPT - [#2]	SSNC+11, SSNC+12, OCHKS+9, OCHKS+10, OCHKS+12
^DPT("SSN"	SSNC+9
^TMP("BHL"	MAIN+1, PRS3+3, EOJ+1

Name	Line Occurrences
$$NOW	PROCESS+32, ADDPAT+20
ADDPAT	PRS3+14, PRS4+3, PRS4+17
CHKPAT	MAIN+1
CHT	SSNC+14, ADDPAT+21
CLEAN	ADDPAT+14, ADDPAT+16
EOJ	MAIN+2
OCHKS	PRS3+15, PRS4+19
PROCESS	MAIN+2
PRS3	CHKPAT+1
SSNC	PRS3+12, PRS4+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NOW+2
>> BHL("ZP2"	PROCESS+19
BHL4DA	PRS4+5*, PRS4+6, PRS4+7, PRS4+8, PRS4+9, EOJ+5!
>> BHLACCT	PROCESS+14*
>> BHLAL	PROCESS+3*
>> BHLASU	PRS3+5, PRS3+6, PRS4+9, PRS4+10
BHLCTRY	PROCESS+10*, EOJ+4!
BHLCTY	PROCESS+6*, PROCESS+24, EOJ+4!
BHLDA	PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+9, PROCESS+10, PROCESS+11 , PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+16, PROCESS+17, PROCESS+18, PRS3+1, PRS3+2, PRS3+5, PRS4+2 , PRS4+4, SSNC+1, SSNC+4, SSNC+6, SSNC+8, OCHKS+1, OCHKS+3, OCHKS+5, OCHKS+8, ADDPAT+1 , ADDPAT+3, ADDPAT+5, ADDPAT+7, EOJ+3!
BHLDDT	PROCESS+17*, PROCESS+31, EOJ+4!
>> BHLDI	PROCESS+18*
>> BHLDIE	PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+26, PROCESS+27, PROCESS+28, PROCESS+29, PROCESS+30 , PROCESS+31, ADDPAT+13, ADDPAT+15, ADDPAT+17, ADDPAT+19
BHLDOB	SSNC+4, SSNC+5, SSNC+11, OCHKS+1, OCHKS+2, OCHKS+9, ADDPAT+1*, ADDPAT+2, ADDPAT+15, EOJ+3!
BHLDR	EOJ+3!
>> BHLDUZ	PRS3+9, PRS3+11, PRS4+12, PRS4+14
>> BHLERCD	PRS3+4, PRS3+7, SSNC+3, SSNC+5, SSNC+7, SSNC+10, SSNC+11, SSNC+12, OCHKS+2, OCHKS+4 , OCHKS+7, OCHKS+9, OCHKS+10, OCHKS+12, ADDPAT+2, ADDPAT+4, ADDPAT+6, ADDPAT+10, CLEAN+1*
>> BHLERR	PRS3+4, PRS3+7, SSNC+3, SSNC+5, SSNC+7, SSNC+10, SSNC+11, SSNC+12, OCHKS+2, OCHKS+4 , OCHKS+7, OCHKS+9, OCHKS+10, OCHKS+12, ADDPAT+2, ADDPAT+4, ADDPAT+6, ADDPAT+10, CLEAN+1
>> BHLERR("FATAL"	MAIN+1, PRS3+8, PRS3+13, PRS4+16, PRS4+21, OCHKS+11
BHLFL	PROCESS+20, ADDPAT+13, ADDPAT+19*, EOJ+3!
BHLFLD	PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+26, PROCESS+27, PROCESS+28, PROCESS+29, PROCESS+30 , PROCESS+31, ADDPAT+13, ADDPAT+15, ADDPAT+17, ADDPAT+19*, EOJ+3!
BHLHPH	PROCESS+11*, PROCESS+27, EOJ+4!
>> BHLLOC	PRS3+6, PRS3+7, PRS3+9, PRS4+10, PRS4+11, PRS4+12
BHLMMN	PROCESS+2*, PROCESS+21, EOJ+3!
>> BHLNM	SSNC+8, OCHKS+8, ADDPAT+7*, ADDPAT+9
>> BHLPAT	PROCESS+20, PROCESS+32, PRS3+10, PRS3+11, PRS3+12, PRS3+14, PRS4+5, PRS4+13, PRS4+14, PRS4+15 , PRS4+17, PRS4+18, PRS4+20, SSNC+13, OCHKS+9, OCHKS+10, OCHKS+12, ADDPAT+11, ADDPAT+13, ADDPAT+18 , ADDPAT+20, CLEAN+2, CLEAN+3, CHT+2, CHT+4, CHT+5, CHT+6
>> BHLPHR	MAIN+1, PRS3+2, PRS3+3, PRS3+10, PRS3+11, PRS4+8, PRS4+13, PRS4+14, EOJ+1, CHT+6
>> BHLPID4	PRS4+2*, PRS4+3
>> BHLPID4(	PRS4+4*, PRS4+5, PRS4+6, PRS4+7, PRS4+8, PRS4+9
BHLREL	PROCESS+13*, PROCESS+29, EOJ+4!
BHLSSN	SSNC+1, SSNC+2, SSNC+3, SSNC+9, OCHKS+5, OCHKS+6, OCHKS+7, OCHKS+11, OCHKS+12, ADDPAT+5* , ADDPAT+6, ADDPAT+17, EOJ+3!
BHLST	PROCESS+7, PROCESS+8, PROCESS+25, EOJ+4!
BHLST1	PROCESS+4*, PROCESS+22, EOJ+4!
BHLST2	PROCESS+5*, PROCESS+23, EOJ+4!
BHLSX	SSNC+6, SSNC+7, SSNC+12, OCHKS+3, OCHKS+4, OCHKS+10, ADDPAT+3*, ADDPAT+4, ADDPAT+13, EOJ+3!
>> BHLTMP	PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+9, PROCESS+10, PROCESS+11 , PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+16, PROCESS+17, PROCESS+18, PRS3+1, PRS3+2, PRS3+5, PRS4+2 , PRS4+4, SSNC+1, SSNC+4, SSNC+6, SSNC+8, OCHKS+1, OCHKS+3, OCHKS+5, OCHKS+8, ADDPAT+1 , ADDPAT+3, ADDPAT+5, ADDPAT+7, EOJ+2
>> BHLTPAT	SSNC+9*, SSNC+10, SSNC+11, SSNC+12, SSNC+13
BHLVAL	PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+26, PROCESS+27, PROCESS+28, PROCESS+29, PROCESS+30 , PROCESS+31, ADDPAT+13, ADDPAT+15, ADDPAT+17, ADDPAT+19*, EOJ+3!
BHLVMS	PROCESS+16*, PROCESS+30, EOJ+5!
BHLWPH	PROCESS+12*, PROCESS+28, EOJ+4!
BHLX	PROCESS+20, ADDPAT+13, EOJ+5!
>> BHLXDA	PRS3+10, PRS3+11, PRS4+13, PRS4+14
>> BHLYDA	PRS3+11, PRS4+14
BHLZIP	PROCESS+9*, PROCESS+26, EOJ+4!
>> CS	PROCESS+2, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+9, PROCESS+10, PROCESS+16, SSNC+8, OCHKS+8 , ADDPAT+7
DA	ADDPAT+8!, ADDPAT+12!, CLEAN+2, CHT+5, CHT+8!
DA(1	CHT+4, CHT+6
DIADD	ADDPAT+8!, ADDPAT+9*, ADDPAT+12!
DIC	ADDPAT+8!, ADDPAT+9, ADDPAT+12!, CHT+3!, CHT+4
DIC(0	ADDPAT+9, CHT+4
DIE	CHT+5*, CHT+8!
>> DIK	CLEAN+2*
DLAYGO	ADDPAT+8!, ADDPAT+9*, ADDPAT+12!
DR	ADDPAT+8!, ADDPAT+12!, CHT+3!, CHT+6*, CHT+8!
DT	ADDPAT+19
DUZ(2	PROCESS+32, ADDPAT+20, CHT+3, CHT+5
>> I	PRS4+4*
>> RS	PRS4+4
U	PRS3+2, PRS3+5, PRS4+8, PRS4+9, SSNC+11, SSNC+12, OCHKS+9, OCHKS+10, OCHKS+12, CHT+3
>> X	ADDPAT+9, CHT+3
>> Y	ADDPAT+10, ADDPAT+11, ADDPAT+14, ADDPAT+16

Customize PDF page

Package: IHS Support HL7 Interfaces

Routine: BHLPIDI

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: