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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ALPBIND

Package: Barcode Medication Administration

Routine: ALPBIND


Information

ALPBIND ;OIFO-DALLAS/SED/KC/MW BCMA-BCBU INPT TO HL7 INIT ;07/06/16 7:06am

Source Information

Source file <ALPBIND.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 (,$$S)^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  SETUP^XQALERT  
Barcode Medication Administration 2 ($$INI,$$MEDL)^ALPBINP  GET^ALPBPARM  
VA FileMan 2 ^%DT  ^DIR  
Inpatient Medications 1 (EN,EN2)^PSJBCBU  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Barcode Medication Administration 3 ALPBIN  PSB BCBU INIT SINGLE PT  PSB BCBU INIT WRKSTN DFT  

Entry Points

Name Comments DBIA/ICR reference
OPT ;Entry point for the option
EN ;Loop through the inpatient list.
PAT(ALPDIV2) ;Process and send patients ;add DIV par specl for DIV init *87
UDCLIN(ALPNOW,ALPDIV2) ; Unit Dose Clinic Orders ;*87
MESS ;BUILD AND SEND MESSAGE
DFT
ALLWKS ;If no then set allow the user to select the workstation
SNDPT ;Send a Single Patient
IVCLIN(ALPNOW,ALPDIV2) ; IV Clinic Orders
QUE ;Que the job
WRKSTN ;Now select which workstations to be initialized
LP ;Multiple entries
MLOG ;Need to loop though the Med log file to get all med logs
EXIT ;

External References

Name Field # of Occurrence
^%DT MLOG+5, PAT+6
^%ZTLOAD QUE+6
$$S^%ZTLOAD EN+16, PAT+18, UDCLIN+14, IVCLIN+14
$$INI^ALPBINP MESS+11
$$MEDL^ALPBINP MLOG+12
GET^ALPBPARM DFT+1, EN+14, UDCLIN+11, IVCLIN+11
^DIR ALLWKS+5, LP+5, SNDPT+3
EN^PSJBCBU MESS+2
EN2^PSJBCBU PAT+8
$$FMTE^XLFDT EN+2, EN+25
$$NOW^XLFDT EN+2, EN+20, EN+25
$$GET^XPAR MLOG+3, PAT+4
SETUP^XQALERT EN+29

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No workstations defined for default "
  • Line Location: DFT+2
Function Call: WRITE
  • Prompt: !!,"No Selected Workstations"
  • Line Location: WRKSTN+7
Function Call: WRITE
  • Prompt: !!,"No Selected Workstations"
  • Line Location: WRKSTN+8
Function Call: WRITE
  • Prompt: #,!!,"Selected Workstations",!!
  • Line Location: LP+8
Function Call: WRITE
  • Prompt: !!,"Please Hold On While I send the orders",!!
  • Line Location: SNDPT+7
Routine Call
  • DIR
  • Line Location:
    • ALLWKS+5
    • LP+5
    • SNDPT+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] EN+8, EN+10
^DPT("CN" EN+6, EN+18
^PS(55 - [#55] UDCLIN+2, UDCLIN+16, IVCLIN+2, IVCLIN+16
^PSB(53.79 - [#53.79] MLOG+2, MLOG+8, MLOG+10, MLOG+11
^SC - [#44] UDCLIN+6, IVCLIN+6
^TMP("PSJ" EXIT+5!
^TMP("PSJBU" EXIT+5!, PAT+3!, PAT+9, PAT+11, PAT+12, PAT+13

Label References

Name Line Occurrences
ALLWKS DFT+3, WRKSTN+8
EXIT DFT+2, DFT+6
IVCLIN EN+22
LP WRKSTN+6
MESS PAT+15
MLOG PAT+17
PAT EN+18, SNDPT+8, UDCLIN+18, IVCLIN+18
QUE DFT+5
UDCLIN EN+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALDFN EN+17*, EN+18*, EXIT+2!, MLOG+2, MLOG+8, MLOG+10, MESS+2, SNDPT+6*, PAT+8, UDCLIN+15*
, UDCLIN+16*, UDCLIN+17*, UDCLIN+18*, IVCLIN+15*, IVCLIN+16*, IVCLIN+17*, IVCLIN+18*
ALP WRKSTN+3*, WRKSTN+4, WRKSTN+10*, WRKSTN+11*, WRKSTN+12, LP+10*, LP+11, LP+12, EXIT+4!
ALPALL EXIT+3!
ALPB LP+9*, LP+10*, LP+11, EXIT+2!, MESS+1!, MESS+2
ALPB( MESS+4, MESS+5, MESS+6, MESS+7, MESS+8, MESS+10
ALPBANS WRKSTN+1!, WRKSTN+8, WRKSTN+9, WRKSTN+15!
ALPBANS( WRKSTN+11, LP+7*, LP+10
ALPBI EXIT+2!, MESS+3*, MESS+4*, MESS+5, MESS+6, MESS+7, MESS+8
ALPBJ EXIT+2!, PAT+10*, PAT+11*, PAT+12, PAT+13
ALPCN EN+5*, EN+6*, EN+8, EN+18, EXIT+2!, UDCLIN+1~, UDCLIN+2*, UDCLIN+4, UDCLIN+6, UDCLIN+16
, IVCLIN+1~, IVCLIN+2*, IVCLIN+4, IVCLIN+6, IVCLIN+16
ALPCNI EN+8*, EN+9, EN+10, EXIT+4!
ALPCNT WRKSTN+10*, WRKSTN+12, WRKSTN+13, WRKSTN+14*, EXIT+1!, EXIT+4!
ALPCSTPD UDCLIN+1~*, UDCLIN+2*, UDCLIN+16, IVCLIN+1~*, IVCLIN+2*, IVCLIN+16
ALPDFNAR UDCLIN+1~, IVCLIN+1~
ALPDFNAR( UDCLIN+16*, UDCLIN+18, IVCLIN+16*, IVCLIN+18
ALPDIV DFT!, EN+10*, EN+14, EXIT+3!, PAT+2~, UDCLIN+6*, UDCLIN+8, UDCLIN+11, IVCLIN+6*, IVCLIN+8
, IVCLIN+11
ALPDIV2 PAT~, UDCLIN~, UDCLIN+8, UDCLIN+18, IVCLIN~, IVCLIN+8, IVCLIN+18
ALPDTE EN+25*, EN+27, EXIT+1!
ALPDTS EN+2*, EN+27, EXIT+1!
ALPDVN EXIT+4!
ALPHLINI DFT!, QUE+5, EXIT+3!
ALPHLINI( WRKSTN+13*
ALPHLL DFT!, DFT+1, DFT+2, WRKSTN+5!, WRKSTN+8, QUE+4, EN+1, EXIT+3!
ALPHLL("LINKS" WRKSTN+3, WRKSTN+4, WRKSTN+12*, WRKSTN+13
ALPMDT EXIT+2!, MLOG+7*, MLOG+8*, MLOG+10
ALPML EXIT+2!, MLOG+9*, MLOG+10*, MLOG+11, MLOG+12
ALPNOW UDCLIN~, UDCLIN+1, IVCLIN~, IVCLIN+1
ALPNOWCL EN+20~*, EN+21, EN+22
ALPOK EN+4*, EXIT+4!
>> ALPORD MESS+10*
ALPORDR EXIT+2!, MLOG+2, MLOG+8, MLOG+10, MESS+2, MESS+10, PAT+13*, PAT+14, PAT+16
>> ALPRSLT MLOG+12*
ALPSCR EN+3!
ALPSCRN WRKSTN+1!, WRKSTN+15!
ALPSCRN( WRKSTN+4*, WRKSTN+12
ALPSEND UDCLIN+1~, UDCLIN+5*, UDCLIN+8*, UDCLIN+13, IVCLIN+1~, IVCLIN+5*, IVCLIN+8*, IVCLIN+13
ALPSLT EXIT+4!
ALPSTOP EN+4*, EN+6, EN+16*, EN+18, EXIT+4!, PAT+18*, UDCLIN+14*, UDCLIN+18, IVCLIN+14*, IVCLIN+18
ALPTEST EN+13!, EN+14, EN+15, UDCLIN+10!, UDCLIN+11, UDCLIN+13, IVCLIN+10!, IVCLIN+11, IVCLIN+13
ALPTST EXIT+4!
ALPWKS ALLWKS+7*, ALLWKS+8, EXIT+4!
DIR DFT!, ALLWKS+1!, LP+1!, EXIT+3!, SNDPT+1!
DIR("?" LP+3*
DIR("A" ALLWKS+3*, ALLWKS+4*, LP+2*, SNDPT+2*
DIR("B" ALLWKS+2*
DIR("S" LP+4*
DIR(0 ALLWKS+2*, LP+2*, SNDPT+2*
DIROUT DFT!, ALLWKS+1!, LP+1!, EXIT+3!, SNDPT+1!
DIRUT DFT!, ALLWKS+1!, ALLWKS+6, WRKSTN+6, LP+1!, LP+6, EXIT+3!, SNDPT+1!, SNDPT+4
DTOUT DFT!, ALLWKS+1!, LP+1!, EXIT+3!, SNDPT+1!
DUOUT DFT!, ALLWKS+1!, LP+1!, EXIT+3!, SNDPT+1!
DUZ EN+26
MSCTR EXIT+2!, MESS+10*
MSH EXIT+2!, MESS+5*, MESS+9, MESS+10
ORC EXIT+2!, MESS+8*
PID EXIT+3!, EXIT+5!, MESS+6*
PV1 EXIT+3!, EXIT+5!, MESS+7*
U WRKSTN+4, LP+7, EN+10, MLOG+11, PAT+13
>> X MLOG+3*, MLOG+4*, MESS+11*, PAT+4*, PAT+5*
XQA EN+24!
XQA( EN+26*
XQAMSG EN+24!, EN+27*
Y ALLWKS+7, LP+7, EXIT+3!, MLOG+6, MLOG+7, SNDPT+5, SNDPT+6, PAT+7, PAT+8
ZTDESC QUE+2*, QUE+8!
ZTIO QUE+3*, QUE+8!
ZTRTN QUE+1*, QUE+8!
ZTSAVE EXIT+4!
ZTSAVE("ALPHLINI(" QUE+5*
ZTSAVE("ALPHLL(" QUE+4*
ZTSAVE("ALPWKS" QUE+3*
ZTSK QUE+7, QUE+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All