Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSBOBL

Package: Barcode Medication Administration

Routine: PSBOBL


Information

PSBOBL ;BIRMINGHAM/EFC-BAR CODE LABELS (ZEBRA SPECIFIC) ;8/18/21 18:50

Source Information

Source file <PSBOBL.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
LABEL ; Print the Label
DATA(X,Y,TEXT) ; Code to place the data on the label
INPTR ;Input transform for DRUG field (#.31) in file 53.69.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "^XA"
  • Line Location: LABEL+1
Function Call: WRITE
  • Prompt: !,"^LH0,0^FS"
  • Line Location: LABEL+2
Function Call: WRITE
  • Prompt: $$DATA(20,25,"Drug:")
  • Line Location: LABEL+3
Function Call: WRITE
  • Prompt: $$DATA(100,25,PSBDRUG)
  • Line Location: LABEL+4
Function Call: WRITE
  • Prompt: $$DATA(20,60,"Dosage:")
  • Line Location: LABEL+8
Function Call: WRITE
  • Prompt: $$DATA(100,60,PSBDOSE)
  • Line Location: LABEL+8
Function Call: WRITE
  • Prompt: $$DATA(20,50,PSBHAZ)
  • Line Location: LABEL+11
Function Call: WRITE
  • Prompt: $$DATA(20,75,"Dosage:")
  • Line Location: LABEL+12
Function Call: WRITE
  • Prompt: $$DATA(100,75,PSBDOSE)
  • Line Location: LABEL+12
Function Call: WRITE
  • Prompt: $$DATA(20,60,"Dosage:")
  • Line Location: LABEL+15
Function Call: WRITE
  • Prompt: $$DATA(100,60,PSBDOSE)
  • Line Location: LABEL+15
Function Call: WRITE
  • Prompt: $$DATA(350,60,PSBNAME)
  • Line Location: LABEL+16
Function Call: WRITE
  • Prompt: $$DATA(350,90,"Clinic:")
  • Line Location: LABEL+17
Function Call: WRITE
  • Prompt: $$DATA(400,90,PSBCLIN)
  • Line Location: LABEL+17
Function Call: WRITE
  • Prompt: $$DATA(350,90,"Ward:")
  • Line Location: LABEL+18
Function Call: WRITE
  • Prompt: $$DATA(400,90,PSBWARD)
  • Line Location: LABEL+18
Function Call: WRITE
  • Prompt: $$DATA(350,120,"Lot#:")
  • Line Location: LABEL+19
Function Call: WRITE
  • Prompt: $$DATA(400,120,PSBLOT)
  • Line Location: LABEL+19
Function Call: WRITE
  • Prompt: $$DATA(500,120,"Exp:")
  • Line Location: LABEL+20
Function Call: WRITE
  • Prompt: $$DATA(550,120,PSBEXP)
  • Line Location: LABEL+20
Function Call: WRITE
  • Prompt: $$DATA(350,150,"Mfg:")
  • Line Location: LABEL+21
Function Call: WRITE
  • Prompt: $$DATA(400,150,PSBMFG)
  • Line Location: LABEL+21
Function Call: WRITE
  • Prompt: $$DATA(350,180,"Filled/Checked By:")
  • Line Location: LABEL+22
Function Call: WRITE
  • Prompt: $$DATA(520,180,PSBFCB)
  • Line Location: LABEL+22
Function Call: WRITE
  • Prompt: !,"^BY2,3.0^FO20,107^B3N,N,70,Y,N^FR^FD"_PSBBAR_"^FS"
  • Line Location: LABEL+26
Function Call: WRITE
  • Prompt: !,"^BY2,3.0^FO20,100^B3N,N,80,Y,N^FR^FD"_PSBBAR_"^FS"
  • Line Location: LABEL+27
Function Call: WRITE
  • Prompt: !,"^BY2,3.0^FO20,107^BCN,70,Y,N,N^FR^FD>:"_PSBBAR_"^FS"
  • Line Location: LABEL+31
Function Call: WRITE
  • Prompt: !,"^BY2,3.0^FO20,100^BCN,80,Y,N,N^FR^FD>:"_PSBBAR_"^FS"
  • Line Location: LABEL+32
Function Call: WRITE
  • Prompt: !,"^BY2,3.0^FO20,107^B2N,70,Y,N,N^FR^FD>:"_PSBBAR_"^FS"
  • Line Location: LABEL+36
Function Call: WRITE
  • Prompt: !,"^BY2,3.0^FO20,100^B2N,80,Y,N,N^FR^FD>:"_PSBBAR_"^FS"
  • Line Location: LABEL+37
Function Call: WRITE
  • Prompt: $$DATA(20,100,"PSB DEFAULT BARCODE FORMAT Undefined.")
  • Line Location: LABEL+39
Function Call: WRITE
  • Prompt: !,"^XZ",!
  • Line Location: LABEL+42
Function Call: WRITE
  • Prompt: !,"^FO"_X_","_Y_"^A0N,30,20^CI13^FR^FD"_TEXT_"^FS"
  • Line Location: DATA+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls,  GET1^DIQ
^PSB(53.69 - [#53.69] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call