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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSBOBLU

Package: Barcode Medication Administration

Routine: PSBOBLU


Information

PSBOBLU ;BIRMINGHAM/TTH-BUILD CONTROL CODES ;Mar 2004

Source Information

Source file <PSBOBLU.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 FILE^DICN  ^DIE  ^DIR  
Kernel 1 ^%ZIS  

Entry Points

Name Comments DBIA/ICR reference
WHAT ; Yes to continue No to Quit
INTMECC ;Intermec Barcode Printer Character Control Code auto install
IO
FILE ;Set local array for Intermec Barcode Printer Default Settings
ZEBCC ;Zebral Barcode Printer Character Control Code auto install
; Use $SELECT function to set proper barcode printer control code variable "CODE"
END ;Clean Up Routine Variables

External References

Name Field # of Occurrence
^%ZIS IO
FILE^DICN FILE+3
^DIE FILE+5
^DIR PSBOBLU+20, WHAT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," ***Important Note***"
  • Line Location: PSBOBLU+10
Function Call: WRITE
  • Prompt: !,"Before you execute the automatic control code update function, create a ",!,"new terminal type entry in your TERMINAL TYPE file (#3.2) to store the "
  • Line Location: PSBOBLU+11
Function Call: WRITE
  • Prompt: !,"new barcode printer control codes. The new terminal type entry needs to ",!,"be connected to the barcode printer device by inserting the new terminal "
  • Line Location: PSBOBLU+12
Function Call: WRITE
  • Prompt: !,"type entry name into the SUBTYPE field (#3) for the barcode printer entry ",!,"in your DEVICE file (#3.5). ",!
  • Line Location: PSBOBLU+13
Function Call: WRITE
  • Prompt: !,"This option will allow you to automatically copy the BCMA pre-formatted",!,"control codes for the Zebra barcode printer or Intermec barcode printer"
  • Line Location: PSBOBLU+14
Function Call: WRITE
  • Prompt: !,"to a device. Please select the appropriate BCMA pre-formatted control",!,"codes and then select the appropriate device.",!
  • Line Location: PSBOBLU+15
Function Call: WRITE
  • Prompt: !!,"Checking system status....",!
  • Line Location: IO+4
Function Call: WRITE
  • Prompt: "No Terminal Type available."
  • Line Location: IO+5
Function Call: WRITE
  • Prompt: "No DUZ defined."
  • Line Location: IO+6
Function Call: WRITE
  • Prompt: "FileMan access must be @."
  • Line Location: IO+7
Function Call: WRITE
  • Prompt: !!,"***Warning*** BCMA CONTROL CODES already defined for this device.",!
  • Line Location: IO+10
Function Call: WRITE
  • Prompt: !,"Are you sure that you want to copy the ",!,"BCMA CONTROL CODES to device: ",ION,!
  • Line Location: IO+11
Function Call: WRITE
  • Prompt: " Copying Control Codes...",!
  • Line Location: WHAT+6
Function Call: WRITE
  • Prompt: !,"Done..."
  • Line Location: WHAT+10
Routine Call
  • DIE
  • Line Location:
    • FILE+5
Routine Call
  • DIR
  • Line Location:
    • PSBOBLU+20
    • WHAT+3
Routine Call
  • %ZIS
  • Line Location:
    • IO

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(2 - [#3.2] IO+10, ZEBCC+3, ZEBCC+4, ZEBCC+5, ZEBCC+6, ZEBCC+9, INTMECC+1, INTMECC+2, INTMECC+3, INTMECC+4
, INTMECC+5, INTMECC+6, INTMECC+8, INTMECC+12, INTMECC+16

Label References

Name Line Occurrences
END PSBOBLU+21, PSBOBLU+22
FILE ZEBCC+3, ZEBCC+4, ZEBCC+5, ZEBCC+6, ZEBCC+9, INTMECC+1, INTMECC+2, INTMECC+3, INTMECC+4, INTMECC+5
, INTMECC+6, INTMECC+8, INTMECC+12, INTMECC+16
INTMECC WHAT+9
IO PSBOBLU+24
ZEBCC WHAT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS END+1!
%ZIS("B" IO*
AB PSBOBLU+8~, ZEBCC+3*, ZEBCC+4*, ZEBCC+5*, ZEBCC+6*, ZEBCC+9*, INTMECC+1*, INTMECC+2*, INTMECC+3*, INTMECC+4*
, INTMECC+5*, INTMECC+6*, INTMECC+8*, INTMECC+12*, INTMECC+16*, FILE+3, FILE+5
ANS PSBOBLU+8~, WHAT+1!, WHAT+3*, WHAT+4, WHAT+5
CODE PSBOBLU+8~, ZEBCC+3*, ZEBCC+4*, ZEBCC+5*, ZEBCC+7*, ZEBCC+8*, ZEBCC+10*, ZEBCC+11*, INTMECC+1*, INTMECC+2*
, INTMECC+3*, INTMECC+4*, INTMECC+5*, INTMECC+6*, INTMECC+9*, INTMECC+10*, INTMECC+13*, INTMECC+14*, INTMECC+17*, INTMECC+18*
DA PSBOBLU+17!, END+1!, FILE+4*
DA(1 FILE+3*, FILE+4*
DD FILE+2!, FILE+3!
DIC END+1!, FILE+2!, FILE+3*, FILE+4
DIC(0 FILE+3*
DIE END+1!, FILE+2!, FILE+4*
DIR PSBOBLU+17!, END+1!, WHAT+1!
DIR("A" PSBOBLU+19*
DIR("B" WHAT+2*
DIR("T" WHAT+2*
DIR(0 PSBOBLU+18*, WHAT+2*
DIROUT END+1!
DIRUT PSBOBLU+21, END+1!, IO+1
DO FILE+2!, FILE+3!
DR END+1!, FILE+5*
DTOUT END+1!
DUOUT END+1!
DUZ(0 IO+6, IO+7
ION IO+11
IOST(0 IO+5, IO+10, ZEBCC+3, ZEBCC+4, ZEBCC+5, ZEBCC+6, ZEBCC+9, INTMECC+1, INTMECC+2, INTMECC+3
, INTMECC+4, INTMECC+5, INTMECC+6, INTMECC+8, INTMECC+12, INTMECC+16, FILE+3, FILE+4
NAME PSBOBLU+8~, ZEBCC+3*, ZEBCC+4*, ZEBCC+5*, ZEBCC+6*, ZEBCC+9*, INTMECC+1*, INTMECC+2*, INTMECC+3*, INTMECC+4*
, INTMECC+5*, INTMECC+6*, INTMECC+8*, INTMECC+12*, INTMECC+16*, FILE+5
POP END+1!, IO
PSBCHO PSBOBLU+8~, PSBOBLU+17!, PSBOBLU+20*, PSBOBLU+22, WHAT+8, WHAT+9
PSBCODE PSBOBLU+8~
PSBTYPE PSBOBLU+8~
X PSBOBLU+8~, END+1!, FILE+3*
Y PSBOBLU+8~, PSBOBLU+20, END+1!, WHAT+3, FILE+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All