Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BHLBPS1

Package: IHS Support HL7 Interfaces

Routine: BHLBPS1


Information

BHLBPS1 ; IHS/TUCSON/DCP - HL7 - FILE VISIT/V MED FROM COTS PHARMACY ;

Source Information

Source file <BHLBPS1.m>

Call Graph

Call Graph Total: 7

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  

Caller Graph

Caller Graph Total: 1

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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All