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

Package: Barcode Medication Administration

Routine: ALPBSWRD


Information

ALPBSWRD ;OIFO-DALLAS MW,SED,KC - display BCBU records for patients on a selected ward ;01/01/03

Source Information

Source file <ALPBSWRD.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$DT,$$FMTE,$$NOW)^XLFDT  $$CJ^XLFSTR  
Barcode Medication Administration 2 (F80,HDR)^ALPBFRM2  (ORDS,WARDLIST,WARDSEL)^ALPBUTL  
VA Fileman 2 C^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Barcode Medication Administration 1 PSB BCBU SHOW WARD  

Entry Points

Name Comments DBIA/ICR reference
DISP ; output entry point...
CONT ; continue?...
PAGE ; screen header for patient...

External References

Name Field # of Occurrence
C^%DTC ALPBSWRD+42
^%ZIS ALPBSWRD+56
HOME^%ZIS ALPBSWRD+76
^%ZISC ALPBSWRD+65
^%ZTLOAD ALPBSWRD+75
F80^ALPBFRM2 DISP+22
HDR^ALPBFRM2 PAGE+3
ORDS^ALPBUTL DISP+14
WARDLIST^ALPBUTL ALPBSWRD+14
WARDSEL^ALPBUTL ALPBSWRD+10
^DIR ALPBSWRD+8, ALPBSWRD+26, ALPBSWRD+35, ALPBSWRD+51, DISP+25, DISP+38, CONT+3
$$DT^XLFDT ALPBSWRD+40
$$FMTE^XLFDT ALPBSWRD+44
$$NOW^XLFDT DISP+4
$$CJ^XLFSTR DISP+34

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,$J(ALPBX,2)," ",ALPBSEL(ALPBX)
  • Line Location: ALPBSWRD+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,ALPBFORM(ALPBX)
  • Line Location: DISP+30
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP+41
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: !,ALPBHDR(I)
  • Line Location: PAGE+4
Routine Call
  • %ZIS
  • Line Location:
    • ALPBSWRD+76
Routine Call
  • DIR
  • Line Location:
    • ALPBSWRD+8
    • ALPBSWRD+26
    • ALPBSWRD+35
    • ALPBSWRD+51
    • DISP+25
    • DISP+38
    • CONT+3
Routine Call
  • %ZIS
  • Line Location:
    • ALPBSWRD+56

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ALPB(53.7 - [#53.7] DISP+8, DISP+10, DISP+11, DISP+12, DISP+20

Label References

Name Line Occurrences
DISP ALPBSWRD+64
PAGE DISP+13, DISP+27, CONT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ALPBSWRD+55*, ALPBSWRD+56!
ALPBDATA DISP+20*, DISP+22, DISP+26!, DISP+31!
ALPBFORM DISP+22, DISP+26!, DISP+31!
ALPBFORM( DISP+30
ALPBFORM(0 DISP+23
ALPBHDR PAGE+3, PAGE+5!
ALPBHDR( PAGE+4
ALPBHDR(0 PAGE+4
ALPBIEN DISP+9*, DISP+10*, DISP+11, DISP+12, DISP+14, DISP+20, DISP+40!
ALPBMLOG ALPBSWRD+53*, DISP+22, DISP+42!
ALPBOIEN DISP+18*, DISP+19*, DISP+20, DISP+32, DISP+39!
ALPBORDS DISP+14, DISP+17!, DISP+39!
ALPBORDS( DISP+19, DISP+32
ALPBORDS(0 DISP+15
ALPBOTYP ALPBSWRD+37*, ALPBSWRD+52!, ALPBSWRD+79!, DISP+4, DISP+33, DISP+42!, PAGE+3
ALPBPG DISP+9*, DISP+13, DISP+40!, PAGE+2*, PAGE+3, CONT+5*
ALPBPT DISP+17!, DISP+26!, DISP+39!, PAGE+3
ALPBPT(0 DISP+11*
ALPBPT(1 DISP+12*
ALPBPTN DISP+7*, DISP+8*, DISP+10, DISP+33, DISP+42!
ALPBRDAT DISP+4*, DISP+14, DISP+42!
ALPBSEL ALPBSWRD+10, ALPBSWRD+15!, ALPBSWRD+19!, ALPBSWRD+27!
ALPBSEL( ALPBSWRD+22, ALPBSWRD+28
ALPBSEL(0 ALPBSWRD+11, ALPBSWRD+16, ALPBSWRD+20, ALPBSWRD+24, ALPBSWRD+25
ALPBSEL(1 ALPBSWRD+17
ALPBWARD ALPBSWRD+17*, ALPBSWRD+18, ALPBSWRD+28*, ALPBSWRD+36!, ALPBSWRD+59!, ALPBSWRD+70, ALPBSWRD+79!, DISP+8, DISP+10
ALPBX ALPBSWRD+21*, ALPBSWRD+22*, ALPBSWRD+23!, DISP+29*, DISP+30*, DISP+31!, DISP+33*, DISP+34*, DISP+35, DISP+36!
DIR ALPBSWRD+8!, ALPBSWRD+26!, ALPBSWRD+35!, ALPBSWRD+51!, DISP+25!, DISP+38!, CONT+3!
DIR("?" ALPBSWRD+7*, ALPBSWRD+34*, ALPBSWRD+47*, ALPBSWRD+48*, ALPBSWRD+49*, ALPBSWRD+50*
DIR("A" ALPBSWRD+6*, ALPBSWRD+25*, ALPBSWRD+32*, ALPBSWRD+45*, ALPBSWRD+46*
DIR("B" ALPBSWRD+33*, ALPBSWRD+44*
DIR(0 ALPBSWRD+5*, ALPBSWRD+24*, ALPBSWRD+31*, ALPBSWRD+43*, DISP+24*, DISP+37*, CONT+2*
DIRUT ALPBSWRD+3, ALPBSWRD+9, ALPBSWRD+20!, ALPBSWRD+27, ALPBSWRD+36!, ALPBSWRD+52!, ALPBSWRD+80!, DISP+8, DISP+10, DISP+19
, DISP+23, DISP+26, DISP+42!, CONT+4
DTOUT ALPBSWRD+20!, ALPBSWRD+36!, ALPBSWRD+52!, ALPBSWRD+80!, DISP+42!
>> I PAGE+4*
IO ALPBSWRD+63, ALPBSWRD+65
IO("Q" ALPBSWRD+62, ALPBSWRD+68, ALPBSWRD+78!
IO(0 ALPBSWRD+65
IOF DISP+1, DISP+41, PAGE+1
ION ALPBSWRD+74
IOSL DISP+23
IOST DISP+1, DISP+41, CONT+1
POP ALPBSWRD+57, ALPBSWRD+59!
X ALPBSWRD+20!, ALPBSWRD+36!, ALPBSWRD+44, ALPBSWRD+52!, ALPBSWRD+80!, DISP+42!
>> X1 ALPBSWRD+40*
>> X2 ALPBSWRD+41*
Y ALPBSWRD+10, ALPBSWRD+20!, ALPBSWRD+28, ALPBSWRD+36!, ALPBSWRD+37, ALPBSWRD+52!, ALPBSWRD+53, ALPBSWRD+80!, DISP+42!
>> ZTDESC ALPBSWRD+70*
>> ZTIO ALPBSWRD+74*
>> ZTQUEUED DISP+43
>> ZTREQ DISP+43*
>> ZTRTN ALPBSWRD+69*
>> ZTSAVE("ALPBMLOG" ALPBSWRD+73*
>> ZTSAVE("ALPBOTYP" ALPBSWRD+72*
>> ZTSAVE("ALPBWARD" ALPBSWRD+71*
ZTSK ALPBSWRD+77, ALPBSWRD+78!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All