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 |  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) ; 5/12/14 2:45pm

Source Information

Source file <PSBOBL.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^DIC  MIX^DIC1  $$GET1^DIQ  
PCE Patient Care Encounter 1 $$HRN^AUPNPAT  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Barcode Medication Administration 1 ^PSB(53.69  

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+14
^DIC INPTR+6
MIX^DIC1 INPTR+5
$$GET1^DIQ EN+9, EN+10, EN+12, EN+13, EN+14, EN+15, EN+16, EN+17, EN+18, EN+19
, EN+20, INPTR+7
$$GET^XPAR EN+6, EN+21

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,"Clinic:")
  • Line Location: LABEL+7
Function Call: WRITE
  • Prompt: $$DATA(400,90,PSBCLIN)
  • Line Location: LABEL+7
Function Call: WRITE
  • Prompt: $$DATA(350,90,"Ward:")
  • Line Location: LABEL+8
Function Call: WRITE
  • Prompt: $$DATA(400,90,PSBWARD)
  • Line Location: LABEL+8
Function Call: WRITE
  • Prompt: $$DATA(350,120,"Lot#:")
  • Line Location: LABEL+9
Function Call: WRITE
  • Prompt: $$DATA(400,120,PSBLOT)
  • Line Location: LABEL+9
Function Call: WRITE
  • Prompt: $$DATA(500,120,"Exp:")
  • Line Location: LABEL+10
Function Call: WRITE
  • Prompt: $$DATA(550,120,PSBEXP)
  • Line Location: LABEL+10
Function Call: WRITE
  • Prompt: $$DATA(350,150,"Mfg:")
  • Line Location: LABEL+11
Function Call: WRITE
  • Prompt: $$DATA(400,150,PSBMFG)
  • Line Location: LABEL+11
Function Call: WRITE
  • Prompt: $$DATA(350,180,"Filled/Checked By:")
  • Line Location: LABEL+12
Function Call: WRITE
  • Prompt: $$DATA(520,180,PSBFCB)
  • Line Location: LABEL+12
Function Call: WRITE
  • Prompt: !,"^BY2,3.0^FO20,100^B3N,N,80,Y,N^FR^FD"_PSBBAR_"^FS"
  • Line Location: LABEL+15
Function Call: WRITE
  • Prompt: !,"^BY2,3.0^FO20,100^BCN,80,Y,N,N^FR^FD>:"_PSBBAR_"^FS"
  • Line Location: LABEL+18
Function Call: WRITE
  • Prompt: !,"^BY2,3.0^FO20,100^B2N,80,Y,N,N^FR^FD"_PSBBAR_"^FS"
  • Line Location: LABEL+21
Function Call: WRITE
  • Prompt: $$DATA(20,100,"PSB DEFAULT BARCODE FORMAT Undefined.")
  • Line Location: LABEL+23
Function Call: WRITE
  • Prompt: !,"^XZ",!
  • Line Location: LABEL+26
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+14

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+12
, LABEL+23
LABEL EN+22

Naked Globals

Name Field # of Occurrence
^(0 EN+14

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+14
PSBANS EN+2~
PSBBAR EN+1~, EN+4*, EN+7*, LABEL+15, LABEL+18, LABEL+21
PSBCLIN EN+2~, EN+16*, LABEL+7, LABEL+8
PSBCNT EN+2~, EN+22*
PSBDOSE EN+1~, EN+12*, LABEL+5
PSBDRUG EN+1~, EN+9*, EN+11*, LABEL+4
PSBEXP EN+2~, EN+18*, LABEL+10
PSBFCB EN+2~, EN+20*, LABEL+12
PSBIENS EN+1~, EN+3*, EN+9, EN+10, EN+12, EN+13, EN+14, EN+15, EN+16, EN+17
, EN+18, EN+19, EN+20
PSBLOT EN+1~, EN+17*, LABEL+9
PSBMFG EN+2~, EN+19*, LABEL+11
PSBNAME EN+1~, EN+13*, EN+14*, LABEL+6
PSBORD EN+2~
>> PSBPRE EN+6*, EN+7
PSBQTY EN+1~, EN+10*, EN+11
>> PSBRPT EN+3, EN+4
>> PSBRPT( EN+22
PSBSYM EN+2~, EN+21*, LABEL+15, LABEL+18, LABEL+21, LABEL+23
PSBWARD EN+1~, EN+15*, LABEL+8
TEXT DATA~, DATA+1
U EN+4, EN+14, EN+22
X DATA~, DATA+1, INPTR+1!, INPTR+2*, INPTR+5, INPTR+6, INPTR+7*!
Y DATA~, DATA+1, INPTR+7
Info |  Source |  Call Graph |  Caller 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