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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSBOBL

Package: Barcode Medication Administration

Routine: PSBOBL


Information

PSBOBL ;BIRMINGHAM/EFC-BAR CODE LABELS (ZEBRA SPECIFIC) ;26-Feb-2013 11:57;PLS

Source Information

Source file <PSBOBL.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 ^DIC  MIX^DIC1  $$GET1^DIQ  
IHS Patient 1 $$HRN^AUPNPAT  
Toolkit 1 $$GET^XPAR  

Entry Points

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

External References

Name Field # of Occurrence
$$HRN^AUPNPAT EN+16
^DIC INPTR+6
MIX^DIC1 INPTR+5
$$GET1^DIQ EN+9, EN+10, EN+12, EN+13, EN+16, EN+17, EN+18, EN+19, EN+20, EN+21
, INPTR+7
$$GET^XPAR EN+6, EN+22

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+5
Function Call: WRITE
  • Prompt: $$DATA(100,60,PSBDOSE)
  • Line Location: LABEL+5
Function Call: WRITE
  • Prompt: $$DATA(350,60,PSBNAME)
  • Line Location: LABEL+6
Function Call: WRITE
  • Prompt: $$DATA(350,90,"Ward:")
  • Line Location: LABEL+7
Function Call: WRITE
  • Prompt: $$DATA(400,90,PSBWARD)
  • Line Location: LABEL+7
Function Call: WRITE
  • Prompt: $$DATA(350,120,"Lot#:")
  • Line Location: LABEL+8
Function Call: WRITE
  • Prompt: $$DATA(400,120,PSBLOT)
  • Line Location: LABEL+8
Function Call: WRITE
  • Prompt: $$DATA(500,120,"Exp:")
  • Line Location: LABEL+9
Function Call: WRITE
  • Prompt: $$DATA(550,120,PSBEXP)
  • Line Location: LABEL+9
Function Call: WRITE
  • Prompt: $$DATA(350,150,"Mfg:")
  • Line Location: LABEL+10
Function Call: WRITE
  • Prompt: $$DATA(400,150,PSBMFG)
  • Line Location: LABEL+10
Function Call: WRITE
  • Prompt: $$DATA(350,180,"Filled/Checked By:")
  • Line Location: LABEL+11
Function Call: WRITE
  • Prompt: $$DATA(520,180,PSBFCB)
  • Line Location: LABEL+11
Function Call: WRITE
  • Prompt: !,"^BY2,3.0^FO20,100^B3N,N,80,Y,N^FR^FD"_PSBBAR_"^FS"
  • Line Location: LABEL+14
Function Call: WRITE
  • Prompt: !,"^BY2,3.0^FO20,100^BCN,80,Y,N,N^FR^FD>:"_PSBBAR_"^FS"
  • Line Location: LABEL+17
Function Call: WRITE
  • Prompt: !,"^BY2,3.0^FO20,100^B2N,80,Y,N,N^FR^FD"_PSBBAR_"^FS"
  • Line Location: LABEL+20
Function Call: WRITE
  • Prompt: $$DATA(20,100,"PSB DEFAULT BARCODE FORMAT Undefined.")
  • Line Location: LABEL+22
Function Call: WRITE
  • Prompt: !,"^XZ",!
  • Line Location: LABEL+25
Function Call: WRITE
  • Prompt: !,"^FO"_X_","_Y_"^A0N,30,20^CI13^FR^FD"_TEXT_"^FS"
  • Line Location: DATA+1
Routine Call
  • DIC
  • Line Location:
    • INPTR+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls,  GET1^DIQ
^PSB(53.69 - [#53.69] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSB(53.69 - [#53.69] EN+4, EN+16

Label References

Name Line Occurrences
$$DATA LABEL+3, LABEL+4, LABEL+5, LABEL+6, LABEL+7, LABEL+8, LABEL+9, LABEL+10, LABEL+11, LABEL+22
LABEL EN+23

Naked Globals

Name Field # of Occurrence
^(0 EN+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D INPTR+3*
DIC INPTR+3~*
DIC("S" INPTR+4*
DIC(0 INPTR+3*
DUZ("AG" EN+16
PSBANS EN+2~
PSBBAR EN+1~, EN+4*, EN+7*, LABEL+14, LABEL+17, LABEL+20
PSBCNT EN+2~, EN+23*
PSBDOSE EN+1~, EN+12*, LABEL+5
PSBDRUG EN+1~, EN+9*, EN+11*, LABEL+4
PSBEXP EN+2~, EN+19*, LABEL+9
PSBFCB EN+2~, EN+21*, LABEL+11
PSBIENS EN+1~, EN+3*, EN+9, EN+10, EN+12, EN+13, EN+16, EN+17, EN+18, EN+19
, EN+20, EN+21
PSBLOT EN+1~, EN+18*, LABEL+8
PSBMFG EN+2~, EN+20*, LABEL+10
PSBNAME EN+1~, EN+13*, EN+16*, LABEL+6
PSBORD EN+2~
>> PSBPRE EN+6*, EN+7
PSBQTY EN+1~, EN+10*, EN+11
>> PSBRPT EN+3, EN+4
>> PSBRPT( EN+23
PSBSYM EN+2~, EN+22*, LABEL+14, LABEL+17, LABEL+20, LABEL+22
PSBWARD EN+1~, EN+17*, LABEL+7
TEXT DATA~, DATA+1
U EN+4, EN+16, EN+23
X DATA~, DATA+1, INPTR+1!, INPTR+2*, INPTR+5, INPTR+6, INPTR+7*!
Y DATA~, DATA+1, INPTR+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All