Routine: BHLBPS1

Package	Total	Call Graph
VA Fileman	3	^DIC CHK^DIE ^DIK
Patient Care Component	2	^APCDALV ^APCDALVR
IHS Patient	1	KILL^AUPNPAT
MailMan	1	^XMB

Package	Total	Caller Graph
IHS Support HL7 Interfaces	1	BHLBPS

Entry Points

Name	Comments	DBIA/ICR reference
A	;add a new prescription
LOGAPCD	; Log APCDALVR array if debugging
E	;edit an existing v med
D	;delete a v med
EDIT	;edit all passed data, check against input tx
EOJ	;KILL VARS AND EXIT
PROV	; Verify provider name/number
GETPAT	;
EVISIT	;
START	; ENTRY POINT from BHLBPS
INIT	;
MATCH(STR1,STR2)	; match up strings
EMED	;
BULLETIN	; ; add error message to bulletin - bulletin will be sent later
SENDBULL	; ; if debug mode, list bulletin errors on screen and quit

External References

Name	Field # of Occurrence
^APCDALV	A+5
^APCDALVR	A+8, E+8
KILL^AUPNPAT	EOJ+4
^DIC	EMED+2, EMED+3, PROV+8, PROV+9, GETPAT+10
CHK^DIE	EMED+14, EMED+17, EVISIT+3, EVISIT+10
^DIK	D+2, E+4
^XMB	SENDBULL+29

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?3,"none" Line Location: SENDBULL+4
Function Call: WRITE	Prompt: !,?3,XMB(I) Line Location: SENDBULL+5
Routine Call	DIE Line Location: EMED+14 EMED+17 EVISIT+3 EVISIT+10
Routine Call	DIC Line Location: EMED+2 EMED+3 PROV+8 PROV+9 GETPAT+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	CHK^DIE
^AUPNVMED - [#9000010.14]	Classic Fileman Calls, CHK^DIE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	EVISIT+9
^AUPNVMED - [#9000010.14]	E+2, E+3
^AUPNVMED("AXK"	D+1, E+1
^AUTTLOC("C"	EVISIT+6, GETPAT+7
^AUTTSITE(1	PROV+5
^DD("DD"	SENDBULL+21
^DPT - [#2]	GETPAT+14, GETPAT+16, GETPAT+18, GETPAT+20, SENDBULL+13
^TMP("BHLBPS"	LOGAPCD+3!, LOGAPCD+5*
^VA(200 - [#200]	PROV+11

Label References

Name	Line Occurrences
$$MATCH	PROV+17, GETPAT+20
@(	START+7
BULLETIN	EMED+3, PROV+13, PROV+14, PROV+16, PROV+17, GETPAT+20
EDIT	A+1
EMED	E+5, EDIT+5
EVISIT	EDIT+4
GETPAT	EDIT+2
INIT	START+6
LOGAPCD	START+8
PROV	EMED+8
SENDBULL	START+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%X	SENDBULL+9~
%Y	SENDBULL+9~
APCDALVR	EOJ+1!, INIT+4!
APCDALVR(	LOGAPCD+5
APCDALVR("APCDAFLG"	A+6, A+9, E+9
APCDALVR("APCDANE"	A+4*
APCDALVR("APCDATMP"	A+7, E+7
APCDALVR("APCDAUTO"	A+3*
APCDALVR("APCDCAT"	EVISIT+10*
APCDALVR("APCDDATE"	EVISIT+5*
APCDALVR("APCDLOC"	EVISIT+8*
APCDALVR("APCDPAT"	E+3, GETPAT+21
APCDALVR("APCDTCDT"	EMED+23*
APCDALVR("APCDTDAY"	EMED+22*
APCDALVR("APCDTEXK"	EMED+24*
APCDALVR("APCDTNTD"	EMED+5*
APCDALVR("APCDTPRV"	PROV+12*
APCDALVR("APCDTQTY"	EMED+21*
APCDALVR("APCDTRX"	EMED+4*
APCDALVR("APCDTSIG"	EMED+16*
APCDALVR("APCDTYPE"	EVISIT+9*
APCDALVR("APCDVSIT"	E+2*
APCDANE	EOJ+1!
APCDTCDT	EOJ+1!
APCDTDAY	EOJ+1!
APCDTEXK	EOJ+1!
APCDTNTD	EOJ+1!
APCDTOPR	EOJ+1!
APCDTPRV	EOJ+1!
APCDTQTY	EOJ+1!
APCDTRX	EOJ+1!
APCDTSIG	EOJ+1!
BHL200	PROV+2~, PROV+5*, PROV+7, PROV+11
BHLACT	START+7, EOJ+2!, INIT+6*, INIT+7, INIT+10
BHLBIDX	START+2~, START+5, BULLETIN+2, BULLETIN+3, SENDBULL+4, SENDBULL+5, SENDBULL+8, SENDBULL+27*
BHLBMSG	START+2~, EMED+3, PROV+13, PROV+14, PROV+16, PROV+17, GETPAT+20, BULLETIN+3
>> BHLBPS("MED"	INIT+5, INIT+6, INIT+8, INIT+18, INIT+19, EMED+2, EMED+5, EMED+13, EMED+17, EMED+21 , EMED+22, EMED+23, EMED+24, PROV+3, PROV+4, SENDBULL+19, SENDBULL+21, SENDBULL+23
>> BHLBPS("PAT D	EMO" , INIT+11, INIT+14, GETPAT+6, GETPAT+9, GETPAT+20, SENDBULL+15, SENDBULL+17
>> BHLBPS("VISIT"	INIT+12, INIT+16, EVISIT+2, EVISIT+6, EVISIT+10
BHLBPSR	EOJ+2!, EMED+14!, EMED+15, EMED+16, EMED+17!, EMED+18, EVISIT+3, EVISIT+4, EVISIT+5, EVISIT+10
>> BHLDBUG	START+8, SENDBULL+2, LOGAPCD+2
BHLDOB	EOJ+2!, GETPAT+9*, GETPAT+15
BHLDUZ2	EOJ+2!, GETPAT+10*, GETPAT+11!
>> BHLEDATA	D+1, E+1, INIT+7, EMED+15, EMED+18, EVISIT+4, EVISIT+7, EVISIT+10, GETPAT+8, GETPAT+12 , GETPAT+15, GETPAT+17, GETPAT+19*
BHLEIDX	START+2~, START+3*, START+5, SENDBULL+4, SENDBULL+8
>> BHLERR	START+7, A+2, A+6, A+9, D+1, E+1, E+6, E+9, INIT+5, INIT+7* , INIT+9, INIT+11, INIT+12, INIT+14, INIT+16, INIT+18, INIT+19, INIT+20, EDIT+3, EMED+3* , EMED+8, EMED+15, EMED+17, EMED+18, EMED+20, PROV+10, PROV+15, EVISIT+4, EVISIT+7, EVISIT+10* , GETPAT+8, GETPAT+12, GETPAT+15, GETPAT+17, GETPAT+19*
BHLF	EOJ+2!, EMED+17*, EMED+18
BHLFILE	EOJ+2!, EMED+17*
>> BHLFS	INIT+6, INIT+8, INIT+14, INIT+16, INIT+18, INIT+19, EMED+2, EMED+5, EMED+13, EMED+17 , EMED+21, EMED+22, EMED+23, EMED+24, PROV+3, PROV+4, EVISIT+2, EVISIT+6, EVISIT+10, GETPAT+6 , GETPAT+9, GETPAT+20, SENDBULL+15, SENDBULL+17, SENDBULL+19, SENDBULL+21, SENDBULL+23
BHLJ	EOJ+2!, EMED+17*
BHLMIDX	START+2~, START+4*, SENDBULL+27
BHLSEX	EOJ+2!, GETPAT+9*, GETPAT+17
BHLSSN	EOJ+2!, GETPAT+9*, GETPAT+19
BHLXKEY	EOJ+2!, D+1, E+1, INIT+8*, INIT+9
C	EOJ+5!, GETPAT+5~, GETPAT+9*, GETPAT+10
D0	EOJ+5!, GETPAT+10!
DA	D+1, D+3!, E+1, E+2, E+3, E+4!, EMED+2!, GETPAT+10!
DD	GETPAT+10!
DI	EOJ+5!
DIC	EOJ+5!, EMED+2!, EMED+3, EMED+12!, PROV+2~, PROV+7, GETPAT+10!
DIC(0	EMED+2, EMED+3, PROV+7, GETPAT+10
DIE	EOJ+5!
DIK	EOJ+5!, D+2, D+3!, E+4!
DO	EOJ+5!, GETPAT+10!
DOB	EOJ+3!
DR	EOJ+5!, EMED+2!, GETPAT+10!
DUZ(2	EVISIT+9, GETPAT+10, GETPAT+11
F	EOJ+5!, GETPAT+5~, GETPAT+6, GETPAT+7, GETPAT+8, GETPAT+10
I	EOJ+5!, SENDBULL+5~, LOGAPCD+4~, LOGAPCD+5
IEN	EOJ+3!, GETPAT+13*, GETPAT+14, GETPAT+16, GETPAT+18, GETPAT+20, GETPAT+21, SENDBULL+13
MIN	MATCH+2~, MATCH+3*, MATCH+4, MATCH+5
PATDOB	GETPAT+5~, GETPAT+14*, GETPAT+15
PATSEX	GETPAT+5~, GETPAT+16*, GETPAT+17
PATSSN	GETPAT+5~, GETPAT+18*, GETPAT+19
PCPRVDEA	PROV+2~, PROV+11*, PROV+14, PROV+15
PCPRVNAM	START+2~, PROV+11*, PROV+17, SENDBULL+25
PRVIEN	PROV+2~, PROV+11*, PROV+12
SEX	EOJ+3!
SSN	EOJ+3!
STR1	MATCH~, MATCH+3, MATCH+4, MATCH+5
STR2	MATCH~, MATCH+3, MATCH+4, MATCH+5
U	E+2, E+3, INIT+7, INIT+14, INIT+16, INIT+18, INIT+19, EMED+5, EMED+17, PROV+5 , PROV+11, EVISIT+9, GETPAT+13, GETPAT+14, GETPAT+16, GETPAT+18, GETPAT+20, SENDBULL+13
VKPRVDEA	PROV+2~, PROV+3*, PROV+9, PROV+13, PROV+15
VKPRVNAM	PROV+2~, PROV+4*, PROV+8, PROV+16, PROV+17
X	INIT+3~, INIT+14, INIT+16, INIT+18, EMED+1~, EMED+2, EMED+3, EMED+13, EMED+14, EMED+15 , EMED+17, EMED+18, PROV+2~, PROV+8, PROV+9, GETPAT+5~, GETPAT+10, GETPAT+12, SENDBULL+9~
XMB	START+2~, SENDBULL+2!, SENDBULL+11*, SENDBULL+30!
XMB(	BULLETIN+3, SENDBULL+5, SENDBULL+27
XMB(1	SENDBULL+13*
XMB(2	SENDBULL+15*
XMB(3	SENDBULL+17*
XMB(4	SENDBULL+19*
XMB(5	SENDBULL+21*
XMB(6	SENDBULL+23*
XMB(7	SENDBULL+25*
XMDT	SENDBULL+9~
XMDUZ	SENDBULL+9~, SENDBULL+28*
Y	INIT+3~, INIT+13, INIT+14, INIT+15, INIT+16, INIT+17, INIT+18, INIT+19, EMED+1~, EMED+3 , EMED+4, EMED+5, PROV+2~, PROV+9, PROV+10, PROV+11, EVISIT+2, EVISIT+3, EVISIT+4, EVISIT+6* , EVISIT+7, EVISIT+8, EVISIT+9, GETPAT+5~, GETPAT+12, GETPAT+13, SENDBULL+21*
Y(0	PROV+11
Y1	SENDBULL+9~

Customize PDF page

Package: IHS Support HL7 Interfaces

Routine: BHLBPS1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: