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

Package: Barcode Medication Administration

Routine: ALPBPWRD


Information

ALPBPWRD ;OIFO-DALLAS MW,SED,KC-PRINT 3-DAY MAR BCMA BCBU REPORT FOR A SELECTED WARD ;01/01/03

Source Information

Source file <ALPBPWRD.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Barcode Medication Administration 5 F132^ALPBFRM1  (FOOT,HDR)^ALPBFRMU  ($$DEFDAYS,$$DEFPRT,ORDS,WARDLIST,WARDSEL)^ALPBUTL  $$STAT2^ALPBUTL1  $$DEFML^ALPBUTL3  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$NOW^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Barcode Medication Administration 1 PSB BCBU PRINT MAR WARD  

Entry Points

Name Comments DBIA/ICR reference
PRT
DONE ;
PAGE ; print page header for patient...
DQ ; output entry point...

External References

Name Field # of Occurrence
^%ZIS ALPBPWRD+77
HOME^%ZIS ALPBPWRD+99
^%ZISC ALPBPWRD+86
^%ZTLOAD ALPBPWRD+98
F132^ALPBFRM1 PRT+12
FOOT^ALPBFRMU PRT+23
HDR^ALPBFRMU PAGE+3
$$DEFDAYS^ALPBUTL ALPBPWRD+56
$$DEFPRT^ALPBUTL ALPBPWRD+75
ORDS^ALPBUTL DQ+11
WARDLIST^ALPBUTL ALPBPWRD+18
WARDSEL^ALPBUTL ALPBPWRD+14
$$STAT2^ALPBUTL1 DQ+23
$$DEFML^ALPBUTL3 ALPBPWRD+64
^DIR ALPBPWRD+12, ALPBPWRD+30, ALPBPWRD+40, ALPBPWRD+49, ALPBPWRD+58, ALPBPWRD+70
$$NOW^XLFDT DQ+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,$J(ALPBX,2)," ",ALPBSEL(ALPBX)
  • Line Location: ALPBPWRD+26
Function Call: WRITE
  • Prompt: !,ALPBFORM(ALPBX)
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRT+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: !,ALPBHDR(ALPBX)
  • Line Location: PAGE+4
Routine Call
  • %ZIS
  • Line Location:
    • ALPBPWRD+99
Routine Call
  • DIR
  • Line Location:
    • ALPBPWRD+12
    • ALPBPWRD+30
    • ALPBPWRD+40
    • ALPBPWRD+49
    • ALPBPWRD+58
    • ALPBPWRD+70
Routine Call
  • %ZIS
  • Line Location:
    • ALPBPWRD+77

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ALPB(53.7 - [#53.7] DQ+8, DQ+10, DQ+13, DQ+16, DQ+17, DQ+18, DQ+42, PRT, PRT+1, PRT+11
^TMP($J DQ+1!, DQ+24*, DQ+25*, DQ+35, DQ+39, DQ+40, DQ+42, DQ+44*, DQ+45, DQ+46
, DQ+47, DQ+48, DQ+49, PRT+4, PRT+6, PRT+8, PRT+9, DONE+1!

Label References

Name Line Occurrences
DONE DQ+50
DQ ALPBPWRD+85
PAGE PRT+2, PRT+14, PRT+21
PRT DQ+35, DQ+49

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ALPBPWRD+74*, ALPBPWRD+77!
%ZIS("B" ALPBPWRD+75*, ALPBPWRD+76!
>> ALPB DQ+43*
ALPBD DQ+38*, DQ+42*, DQ+43, DQ+44, DQ+47*, DQ+48, DQ+49, DONE+1!
ALPBDATA DQ+16*, DQ+21!, DQ+26!, PRT+11*, PRT+12, PRT+16!
ALPBDAYS ALPBPWRD+60*, ALPBPWRD+102!, PRT+12, DONE+1!
ALPBFORM PRT+12, PRT+16!
ALPBFORM( PRT+15
ALPBFORM(0 PRT+14, PRT+15
ALPBHDR PAGE+3, PAGE+5!
ALPBHDR( PAGE+4
ALPBHDR(0 PAGE+4
ALPBIEN DQ+9*, DQ+10*, DQ+11, DQ+13, DQ+16, DQ+17, DQ+18, DQ+24, DQ+28!, DQ+35*
, DQ+42*, DQ+44, DQ+49*, PRT, PRT+1, PRT+11, PRT+12, DONE+1!
ALPBMLOG ALPBPWRD+72*, ALPBPWRD+80!, ALPBPWRD+102!, PRT+12, DONE+1!
ALPBOCT DQ+17*, DQ+18*, DQ+25, PRT+3*, PRT+4*, PRT+6, PRT+8, PRT+9, PRT+19!
ALPBOIEN DQ+14*, DQ+15*, DQ+16, DQ+17, DQ+18, DQ+22, DQ+23, DQ+25, DQ+27!, PRT+9*
, PRT+11, PRT+16!
ALPBORDN DQ+22*, DQ+25, DQ+26!, PRT+7*, PRT+8*, PRT+9, PRT+17!
ALPBORDS DQ+11, DQ+12!, DQ+27!
ALPBORDS( DQ+15, DQ+22, DQ+23
ALPBORDS(0 DQ+12
ALPBOST DQ+23*, DQ+25, DQ+26!, PRT+5*, PRT+6*, PRT+8, PRT+9, PRT+18!
ALPBOTYP ALPBPWRD+42*, ALPBPWRD+59!, ALPBPWRD+71!, ALPBPWRD+80!, ALPBPWRD+102!, DQ+4, DQ+21, DONE+1!
ALPBPDAT DQ+27!, PRT+27!, PAGE+3
ALPBPDAT(0 DQ+13*, PRT*
ALPBPDAT(1 PRT+1*
ALPBPG DQ+32*, PRT+2, PRT+26*, DONE+1!, PAGE+2*, PAGE+3
ALPBPTN DQ+7*, DQ+8*, DQ+10, DQ+24, DQ+25, DQ+29!, DQ+33*, DQ+35*, DQ+39*, DQ+40*
, DQ+41, DQ+42, DQ+44, DQ+48*, DQ+49, PRT+4, PRT+6, PRT+8, PRT+9, DONE+1!
ALPBRDAT DQ+4*, DQ+11, DQ+21, DONE+1!
ALPBSEL ALPBPWRD+14, ALPBPWRD+19!, ALPBPWRD+23!, ALPBPWRD+31!, ALPBPWRD+33!
ALPBSEL( ALPBPWRD+26, ALPBPWRD+32
ALPBSEL(0 ALPBPWRD+15, ALPBPWRD+20, ALPBPWRD+24, ALPBPWRD+28, ALPBPWRD+29
ALPBSEL(1 ALPBPWRD+21
ALPBSORT ALPBPWRD+51*, DQ+34, DQ+37, DONE+1!
ALPBWARD ALPBPWRD+21*, ALPBPWRD+22, ALPBPWRD+32*, ALPBPWRD+41!, ALPBPWRD+50!, ALPBPWRD+71!, ALPBPWRD+80!, ALPBPWRD+91, ALPBPWRD+102!, DQ+8
, DQ+10, DONE+1!
ALPBX ALPBPWRD+25*, ALPBPWRD+26*, ALPBPWRD+27!, PRT+15*, PRT+16!, PAGE+4*, PAGE+5!
ALPRM DQ+38*, DQ+42*, DQ+43, DQ+44, DQ+46*, DQ+47, DQ+48, DQ+49, DONE+1!
ALPRM1 DQ+45*, DQ+46, DQ+47, DQ+48, DQ+49, DONE+1!
DIR ALPBPWRD+12!, ALPBPWRD+30!, ALPBPWRD+40!, ALPBPWRD+49!, ALPBPWRD+58!, ALPBPWRD+70!
DIR("?" ALPBPWRD+11*, ALPBPWRD+39*, ALPBPWRD+48*, ALPBPWRD+57*, ALPBPWRD+67*, ALPBPWRD+68*, ALPBPWRD+69*
DIR("A" ALPBPWRD+10*, ALPBPWRD+29*, ALPBPWRD+37*, ALPBPWRD+46*, ALPBPWRD+55*, ALPBPWRD+65*, ALPBPWRD+66*
DIR("B" ALPBPWRD+38*, ALPBPWRD+47*, ALPBPWRD+56*, ALPBPWRD+64*
DIR(0 ALPBPWRD+9*, ALPBPWRD+28*, ALPBPWRD+36*, ALPBPWRD+45*, ALPBPWRD+54*, ALPBPWRD+63*
DIRUT ALPBPWRD+7, ALPBPWRD+13, ALPBPWRD+24!, ALPBPWRD+31, ALPBPWRD+41!, ALPBPWRD+50!, ALPBPWRD+59!, ALPBPWRD+71!, ALPBPWRD+103!
DTOUT ALPBPWRD+24!, ALPBPWRD+41!, ALPBPWRD+50!, ALPBPWRD+59!, ALPBPWRD+71!, ALPBPWRD+103!
IO ALPBPWRD+84, ALPBPWRD+86
IO("Q" ALPBPWRD+83, ALPBPWRD+89, ALPBPWRD+101!
IO(0 ALPBPWRD+86
IOF PRT+25, PAGE+1
ION ALPBPWRD+97
IOSL PRT+14, PRT+21
POP ALPBPWRD+78, ALPBPWRD+80!
U DQ+17, DQ+18, DQ+21
X ALPBPWRD+24!, ALPBPWRD+41!, ALPBPWRD+50!, ALPBPWRD+59!, ALPBPWRD+71!, ALPBPWRD+103!
Y ALPBPWRD+14, ALPBPWRD+24!, ALPBPWRD+32, ALPBPWRD+41!, ALPBPWRD+42, ALPBPWRD+50!, ALPBPWRD+51, ALPBPWRD+59!, ALPBPWRD+60, ALPBPWRD+71!
, ALPBPWRD+72, ALPBPWRD+103!
>> ZTDESC ALPBPWRD+91*
>> ZTIO ALPBPWRD+97*
>> ZTQUEUED DONE+2
>> ZTREQ DONE+2*
>> ZTRTN ALPBPWRD+90*
>> ZTSAVE("ALPBDAYS" ALPBPWRD+92*
>> ZTSAVE("ALPBMLOG" ALPBPWRD+94*
>> ZTSAVE("ALPBOTYP" ALPBPWRD+95*
>> ZTSAVE("ALPBSORT" ALPBPWRD+96*
>> ZTSAVE("ALPBWARD" ALPBPWRD+93*
ZTSK ALPBPWRD+100, ALPBPWRD+101!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All