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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ALPBINP

Package: Barcode Medication Administration

Routine: ALPBINP


Information

ALPBINP ;OIFO-DALLAS/SED/KC/MW BCMA - BCBU INPT TO HL7; Sep 02, 2025@10:10

Source Information

Source file <ALPBINP.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Health Level Seven 3 $$HLDATE^HLFNC  INIT^HLFNC2  GENERATE^HLMA  
VA FileMan 3 NOW^%DTC  $$EXTERNAL^DILFD  $$GET1^DIQ  
Barcode Medication Administration 2 GET^ALPBPARM  ($$CNV,$$DIV,$$STAT)^ALPBUTL1  
Inpatient Medications 2 EN^PSJBCBU  EN^PSJBCMA1  
Kernel 2 ^%ZTLOAD  $$NOW^XLFDT  
Registration 2 $$EN^VAFHAPV1  $$EN^VAFHLPID  
Adverse Reaction Tracking 1 EN1^GMRADPT  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Barcode Medication Administration 2 ALPBCBU  ALPBIND  

Entry Points

Name Comments DBIA/ICR reference
IPH(MSG) ;CAPTURE MESSAGE ARRAY FROM PHARMACY
SEED ;Entry point for ^ALPBIND
EXIT ;EXIT and kill
INI() ;INTIAL SET UP ENTRY
INIT ;CALL HL7 TO INITIALIZE MESSAGE VARIABLES
SEND ;CALL HL7 TO TRANSMIT SINGLE MESSAGE
AL1 ;ALLERGY SEGMENT BUILD
RXE ;
PDIV ;PATIENT DIVISION
MEDL(ALPML) ;Use this entry to send MedLog messages
ADMQ ;Need to que a single patient init for admissions
PMOV(ALPDFN,ALPTYP,ALPTT,ALPBMDT) ;Entry Point to send patient movement
CDIV(ML) ; Return DIVISION associated with input CLINIC
CDIVOR(DFN,ORDER) ; Return DIVISION associated with input ORDER
FINDGIVE(IEN) ;Finds the last Give date/time in the Audit log *87
; When a Remove action occurs and saved to 53.79, the Give Action
; Status & Action Date/Time are overwritten. This Function will
; retrieve that Give info.

External References

Name Field # of Occurrence
NOW^%DTC SEED+32
^%ZTLOAD ADMQ+6
GET^ALPBPARM PDIV+8, PMOV+24, CDIV+10, CDIVOR+6
$$CNV^ALPBUTL1 SEED+5, SEED+9
$$DIV^ALPBUTL1 PDIV+3
$$STAT^ALPBUTL1 SEED+36
$$EXTERNAL^DILFD MEDL+28
$$GET1^DIQ MEDL+53, CDIV+10
EN1^GMRADPT AL1+8
$$HLDATE^HLFNC MEDL+39, MEDL+52
INIT^HLFNC2 INIT+4
GENERATE^HLMA SEND+5
EN^PSJBCBU IPH+31
EN^PSJBCMA1 RXE+5
$$EN^VAFHAPV1 SEED+33, MEDL+32, PMOV+11, PMOV+26
$$EN^VAFHLPID SEED+17, MEDL+30, PMOV+10, PMOV+25
$$NOW^XLFDT ADMQ+2
$$GET^XPAR SEED+29, PDIV+5, MEDL+21, PMOV+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DG(40.8 - [#40.8] GET1^DIQ
^PSB(53.79 - [#53.79] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] CDIV+8, CDIVOR+5
^DIC(42 - [#42] PMOV+23
^PS(53.1 - [#53.1] CDIVOR+3
^PS(55 - [#55] SEED+43, CDIVOR+3
^PSB(53.79 - [#53.79] MEDL+4, MEDL+8, MEDL+23, MEDL+24, MEDL+25, MEDL+26, CDIV+3, FINDGIVE+10, FINDGIVE+11, FINDGIVE+12
, FINDGIVE+13, FINDGIVE+16
^SC - [#44] CDIV+6, CDIVOR+4, CDIVOR+5, CDIVOR+7
^SC("B" CDIV+4
^TMP("PSJ1" RXE+2!, RXE+6, RXE+15!
^VA(200 - [#200] SEED+44, MEDL+27

Label References

Name Line Occurrences
$$CDIV MEDL+12, MEDL+16
$$CDIVOR SEED+25
$$FINDGIVE MEDL+49
ADMQ PMOV+17
AL1 SEED+46
INIT SEED+2, MEDL+6, MEDL+56, PMOV+3, PMOV+20
PDIV SEED+21, MEDL+11, PMOV+7
RXE SEED+19
SEED INI+1
SEND SEED+48, MEDL+55, MEDL+59, PMOV+13, PMOV+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SEED+33
>> ALDFN ADMQ+1*
ALP1 RXE+9*, RXE+10, RXE+13*, RXE+15!
ALP2 RXE+9*, RXE+11, RXE+12*, RXE+13, RXE+15!
>> ALPADR AL1+12*, AL1+13*, AL1+15
ALPB IPH+30!, IPH+31, EXIT+2!
ALPB( SEED+3, SEED+5, SEED+8, SEED+9
>> ALPBDIV PMOV+23*, PMOV+24
ALPBMDT PDIV+2*, PDIV+3, PMOV~, PMOV+5*
ALPBY EXIT+2!, MEDL+24*, MEDL+27, MEDL+39
ALPBYN EXIT+2!, MEDL+27*, MEDL+39
ALPC EXIT+2!, AL1+10*, AL1+14, AL1+17*
ALPCLDIV SEED+23~, SEED+25*, SEED+26, MEDL+14~, MEDL+16*, MEDL+17
ALPDATA EXIT+2!, AL1+14*, AL1+15*, AL1+16
ALPDFN IPH+26*, IPH+27, IPH+31, SEED+15*, SEED+16, SEED+17, SEED+25, SEED+33, SEED+43, EXIT+2!
, AL1+4, AL1+6, RXE+5, PDIV+3, MEDL+8*, MEDL+9, MEDL+30, MEDL+32, ADMQ+1, PMOV~
, PMOV+2, PMOV+9, PMOV+10, PMOV+11, PMOV+25, PMOV+26
>> ALPDIV SEED+26*, SEED+27, SEED+29, SEED+30, PDIV+3*, PDIV+5, PDIV+8, MEDL+12*, MEDL+17*, MEDL+19
, MEDL+21, PMOV+8
>> ALPDIV2 SEED+27, MEDL+19
ALPDT EXIT+3!, MEDL+25*, MEDL+39
>> ALPHLINI SEND+3
>> ALPHLINI( SEND+4
>> ALPHLL("LINKS" PDIV+7
ALPI EXIT+3!, AL1+10*, AL1+11*, AL1+13, AL1+14, AL1+15
ALPII EXIT+3!
ALPIV EXIT+3!
ALPLOC EXIT+1!
ALPML MEDL~, MEDL+3, MEDL+4, MEDL+8, MEDL+9, MEDL+12, MEDL+15, MEDL+16, MEDL+22, MEDL+23
, MEDL+24, MEDL+25, MEDL+26, MEDL+29, MEDL+31, MEDL+33, MEDL+37, MEDL+49
ALPMSG IPH+1~, IPH+2*, IPH+3, IPH+5, IPH+7, IPH+8, IPH+9, IPH+10, IPH+12, IPH+15
, IPH+19, IPH+21, IPH+23, IPH+26, IPH+28
>> ALPNORX PMOV+17
ALPOPTS EXIT+3!, INIT+2!, SEND+1!, SEND+5
ALPOR EXIT+3!, MEDL+26*, MEDL+29, MEDL+37
ALPORD IPH+28*, IPH+29, IPH+31, SEED+24, SEED+25, EXIT+3!, RXE+5
ALPPH SEED+41~, SEED+43*, SEED+44*, SEED+45
ALPRSLT EXIT+5, INIT+2!, SEND+1!, SEND+5, MEDL+60, PMOV+22*, PMOV+29
ALPST SEED+36*, SEED+37, SEED+38, EXIT+3!, MEDL+23*, MEDL+28, MEDL+38
ALPSTN EXIT+4!, MEDL+28*, MEDL+38
ALPSYM EXIT+4!, AL1+10*
ALPTT PMOV~, PMOV+5, PMOV+12, PMOV+14*, PMOV+17
ALPTYP PMOV~, PMOV+12, PMOV+14, PMOV+19
ALPUD SEED+41~, SEED+42*, SEED+43
>> ALPWRD PMOV+21*, PMOV+22, PMOV+23
CLINICE CDIV+2~, CDIV+4*
CLINICI CDIV+2~, CDIV+4*, CDIV+5, CDIV+6, CDIVOR+2~, CDIVOR+3*, CDIVOR+4, CDIVOR+5, CDIVOR+7
DA FINDGIVE+8~, FINDGIVE+10*, FINDGIVE+11, FINDGIVE+12, FINDGIVE+13, FINDGIVE+16
>> DATA RXE+4*, RXE+9, RXE+13*, RXE+14
DFN AL1+3~, AL1+6*, CDIVOR~, CDIVOR+1, CDIVOR+3
>> DGPMVI(5 PMOV+21
DIVE CDIV+2~, CDIV+10*, CDIVOR+2~, CDIVOR+5*, CDIVOR+6
DIVI CDIV+2~, CDIV+6*, CDIV+8*, CDIV+10, CDIV+11, CDIVOR+2~, CDIVOR+5*
DT MEDL+32, PMOV+11, PMOV+26
EVENT EXIT+4!, INIT+3*, INIT+4, SEND+5
GIVBY MEDL+48~, MEDL+50*, MEDL+53, MEDL+54
GIVBYN MEDL+48~, MEDL+53*, MEDL+54
GIVDT MEDL+48~, MEDL+50*, MEDL+52
GIVSTR MEDL+48~, MEDL+49*, MEDL+50
GMRA EXIT+4!, AL1+7*
GMRAL EXIT+4!, AL1+5!, AL1+9, AL1+18!
GMRAL( AL1+11, AL1+13, AL1+14, AL1+15
HL INIT+2!, INIT+4
HL("ECH" INIT+5
HLA EXIT+1!, INIT+2!, MEDL+47, MEDL+57*
HLA("HLS" SEED+5*, SEED+9*, SEED+10, SEED+11, SEED+12, SEED+13!, SEED+14, SEED+15, SEED+17*, SEED+34*
, SEED+36, SEED+38*, SEED+40, SEED+42, SEED+45*, AL1+16*, RXE+3, RXE+4, RXE+14*, MEDL+34*
, MEDL+35*, MEDL+40*, MEDL+45, MEDL+51*, MEDL+52*, MEDL+54*, PMOV+10*, PMOV+11*, PMOV+12*, PMOV+25*
, PMOV+26*, PMOV+27*
>> HLCS SEED+15, SEED+38, SEED+40, SEED+44, INIT+5*, AL1+15, RXE+9, RXE+13, MEDL+37, MEDL+38
, MEDL+39, MEDL+51, MEDL+54
>> HLCTR SEED+5, SEED+9, INIT+5*
HLECH INIT+2!
>> HLFS SEED+15, SEED+36, SEED+38, SEED+40, SEED+42, SEED+45, INIT+5, AL1+14, AL1+15, RXE+9
, RXE+13, MEDL+37, MEDL+38, MEDL+39, MEDL+45, MEDL+51, MEDL+52, MEDL+54, PMOV+12, PMOV+27
>> HLL PDIV+8, MEDL+47, MEDL+57*, PMOV+24, CDIV+10, CDIVOR+6
>> HLL("LINKS" SEED+30, SEND+3, SEND+4!, PDIV+7*, PDIV+8, MEDL+22, PMOV+9
HLQ INIT+2!
>> I SEND+4*
IEN FINDGIVE~, FINDGIVE+10, FINDGIVE+11, FINDGIVE+12, FINDGIVE+13, FINDGIVE+15, FINDGIVE+16
ML CDIV~, CDIV+1, CDIV+3
MLDATA CDIV+2~, CDIV+3*, CDIV+4, CDIV+8
MLINST CDIV+2~, CDIV+8*
MSCH IPH+9*, EXIT+1!
MSCS IPH+8*, IPH+28, EXIT+1!
MSCTR IPH+10*, SEED+5, SEED+9, EXIT+1!
>> MSFS IPH+7*, IPH+12, IPH+21, IPH+26, IPH+28
MSG IPH~, IPH+2
MSH IPH+4*, IPH+5*, IPH+6, IPH+7, IPH+8, IPH+9, IPH+10, IPH+12, SEED+13, EXIT+2!
ORC IPH+22*, IPH+23*, IPH+24, IPH+28, SEED+35, SEED+36, SEED+38, SEED+40, SEED+42, SEED+45
, EXIT+2!, MEDL+37*, MEDL+38*, MEDL+39*, MEDL+40
ORDER CDIVOR~, CDIVOR+1, CDIVOR+3
PID IPH+14*, IPH+15*, IPH+16, IPH+26, SEED+11*, SEED+14, SEED+15, SEED+17, EXIT+2!, MEDL+30*
, MEDL+31, MEDL+34
PV1 IPH+18*, IPH+19*, IPH+20, IPH+21, SEED+12*, SEED+34, EXIT+2!, MEDL+32*, MEDL+33, MEDL+35
RXE SEED+10*, EXIT+2!, RXE+1, RXE+3, RXE+4, RXE+14
RXR EXIT+2!
SAVHLA MEDL+46~, MEDL+47*, MEDL+57
SAVHLL MEDL+46~, MEDL+47*, MEDL+57
STR FINDGIVE+8~, FINDGIVE+9*, FINDGIVE+10, FINDGIVE+12*, FINDGIVE+13*, FINDGIVE+14*, FINDGIVE+15*, FINDGIVE+16*, FINDGIVE+17
STRING SEED+33*, SEED+34, EXIT+1!
SUB SEED+3*, SEED+5, SEED+8, SEED+9, SEED+10, SEED+11, SEED+12, EXIT+1!
SUB1 SEED+7*, SEED+8*, SEED+9, EXIT+1!
TYP RXE+6*, RXE+7, RXE+8, RXE+10, RXE+11, RXE+12, RXE+15!
U AL1+13, AL1+14, AL1+15, RXE+6, MEDL+8, MEDL+23, MEDL+24, MEDL+25, MEDL+26, MEDL+27
, MEDL+50, PMOV+21, PMOV+23, FINDGIVE+10, FINDGIVE+12, FINDGIVE+13, FINDGIVE+14, FINDGIVE+15, FINDGIVE+16
VAIN IPH+1~, SEED+1~, MEDL+1~, PMOV+1~
ZTDESC ADMQ+4*, ADMQ+7!
>> ZTDTH ADMQ+2*
ZTIO ADMQ+5*, ADMQ+7!
ZTRTN ADMQ+3*, ADMQ+7!
>> ZTSAVE("ALDFN" ADMQ+5*
ZTSK ADMQ+7!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All