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: ALPBIN

Package: Barcode Medication Administration

Routine: ALPBIN


Information

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

Source Information

Source file <ALPBIN.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,$$S)^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  SETUP^XQALERT  
Barcode Medication Administration 2 (IVCLIN,PAT,UDCLIN)^ALPBIND  GET^ALPBPARM  
VA FileMan 1 ^DIR  

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: 1

Package Total Caller Graph
Barcode Medication Administration 1 PSB BCBU INIT WRKSTN DIV  

Entry Points

Name Comments DBIA/ICR reference
OPT ;Entry point for the option
ALL ;Ask if the user want to send to all divisions
EXIT ;
DIV
ALLWKS ;If no then set allow the user to select the workstation
WRKSTN ;Now select which workstations for the division to be initialized
LP ;Multiple entries
QUE ;Que the job
EN ;Loop through the inpatient list.

External References

Name Field # of Occurrence
^%ZTLOAD QUE+6
$$S^%ZTLOAD EN+12
IVCLIN^ALPBIND EN+19
PAT^ALPBIND EN+15
UDCLIN^ALPBIND EN+18
GET^ALPBPARM DIV+7
^DIR ALL+5, DIV+4, ALLWKS+5, LP+5
$$FMTE^XLFDT EN+1, EN+22
$$NOW^XLFDT EN+1, EN+17, EN+22
SETUP^XQALERT EN+26

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No workstations defined with "_ALPDVN
  • Line Location: DIV+8
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
Routine Call
  • DIR
  • Line Location:
    • ALL+5
    • DIV+4
    • ALLWKS+5
    • LP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] EN+8, EN+10
^DPT("CN" EN+6, EN+15

Label References

Name Line Occurrences
ALLWKS WRKSTN+8
DIV ALL+9, DIV+8, ALLWKS+6
EXIT ALL+6, EN+28
LP WRKSTN+6
QUE ALL+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALDFN EXIT+1!, EN+14*, EN+15*
ALP EXIT+3!, WRKSTN+3*, WRKSTN+4, WRKSTN+10*, WRKSTN+11*, WRKSTN+12, LP+10*, LP+11, LP+12
ALPALL ALL+1!, ALL+7*, ALL+9, EXIT+2!
ALPB EXIT+1!, LP+9*, LP+10*, LP+11
ALPBANS WRKSTN+1!, WRKSTN+8, WRKSTN+9, WRKSTN+15!
ALPBANS( WRKSTN+11, LP+7*, LP+10
ALPBDVN ALL+1!
ALPBI EXIT+1!
ALPBJ EXIT+1!
ALPCN EXIT+1!, EN+5*, EN+6*, EN+8, EN+15
ALPCNI EXIT+3!, EN+8*, EN+9, EN+10
ALPCNT EXIT+3!, WRKSTN+10*, WRKSTN+12, WRKSTN+13, WRKSTN+14*, EN+27!
ALPDIV ALL+1!, EXIT+2!, DIV!, DIV+5*, DIV+6*, DIV+7, EN+2*, EN+4, EN+11
ALPDIV0 EN+4~*, EN+15, EN+18, EN+19
ALPDTE EN+22*, EN+24, EN+27!
ALPDTS EN+1*, EN+24, EN+27!
ALPDVN EXIT+3!, DIV+6*, DIV+8, ALLWKS+4
ALPHLINI EXIT+3!, DIV!, QUE+5
ALPHLINI( WRKSTN+13*
ALPHLL EXIT+2!, DIV!, DIV+7, DIV+8, WRKSTN+5!, WRKSTN+8, QUE+4
ALPHLL("LINKS" WRKSTN+3, WRKSTN+4, WRKSTN+12*, WRKSTN+13
ALPMDT EXIT+1!
ALPML EXIT+1!
ALPNOWCL EN+17~*, EN+18, EN+19
ALPOK EXIT+3!, EN+3*
ALPORDR EXIT+1!
ALPSCRN WRKSTN+1!, WRKSTN+15!
ALPSCRN( WRKSTN+4*, WRKSTN+12
ALPSTOP EXIT+3!, EN+3*, EN+6, EN+12*, EN+13, EN+15
ALPTST EXIT+3!, EN+10*, EN+11
ALPWKS ALL+1!, ALLWKS+7*, ALLWKS+8
DIR ALL+1!, EXIT+2!, DIV!, ALLWKS+1!, LP+1!
DIR("?" LP+3*
DIR("A" ALL+3*, ALL+4*, DIV+2*, DIV+3*, ALLWKS+3*, ALLWKS+4*, LP+2*
DIR("B" ALL+2*, ALLWKS+2*
DIR("S" LP+4*
DIR(0 ALL+2*, DIV+1*, ALLWKS+2*, LP+2*
DIROUT ALL+1!, EXIT+2!, DIV!, ALLWKS+1!, LP+1!
DIRUT ALL+1!, ALL+6, EXIT+2!, DIV!, DIV+5, ALLWKS+1!, ALLWKS+6, WRKSTN+6, LP+1!, LP+6
DTOUT ALL+1!, EXIT+2!, DIV!, ALLWKS+1!, LP+1!
DUOUT ALL+1!, EXIT+2!, DIV!, ALLWKS+1!, LP+1!
DUZ EN+23
MSCTR EXIT+1!
MSH EXIT+1!
ORC EXIT+1!
PID EXIT+2!
PV1 EXIT+2!
U DIV+6, WRKSTN+4, LP+7, EN+10
XQA EN+21!
XQA( EN+23*
XQAMSG EN+21!, EN+24*
Y ALL+7, EXIT+2!, DIV+5, DIV+6, ALLWKS+7, LP+7
ZTDESC QUE+2*, QUE+8!
ZTIO QUE+3*, QUE+8!
ZTRTN QUE+1*, QUE+8!
ZTSAVE EXIT+3!
ZTSAVE("ALPDIV" QUE+3*
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