Routine: PSBOBL

Information

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

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

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

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.

External References

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

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
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+5, EN+16

Label References

Name	Line Occurrences
$$DATA	LABEL+3, LABEL+4, LABEL+11, LABEL+12, LABEL+15, LABEL+16, LABEL+17, LABEL+18, LABEL+19, LABEL+20 , LABEL+21, LABEL+22, LABEL+39
LABEL	EN+24

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
>> HASHAZ	LABEL+9*, LABEL+10, LABEL+14, LABEL+26, LABEL+27, LABEL+31, LABEL+32, LABEL+36, LABEL+37
HAZ	EN+3~, EN+13*, LABEL+5
PSBANS	EN+2~
PSBBAR	EN+1~, EN+5, EN+8, LABEL+26, LABEL+27, LABEL+31, LABEL+32, LABEL+36, LABEL+37
PSBCLIN	EN+2~, EN+18*, LABEL+17, LABEL+18
PSBCNT	EN+2~, EN+24*
PSBDD	EN+3~, EN+13*
PSBDOSE	EN+1~, EN+14*, LABEL+12, LABEL+15
PSBDRUG	EN+1~, EN+10, EN+12, LABEL+4
PSBEXP	EN+2~, EN+20*, LABEL+20
PSBFCB	EN+2~, EN+22*, LABEL+22
PSBHAZ	EN+3~, LABEL+5*, LABEL+9, LABEL+11
PSBIENS	EN+1~, EN+4*, EN+10, EN+11, EN+13, EN+14, EN+15, EN+16, EN+17, EN+18 , EN+19, EN+20, EN+21, EN+22
PSBLOT	EN+1~, EN+19*, LABEL+19
PSBMFG	EN+2~, EN+21*, LABEL+21
PSBNAME	EN+1~, EN+15, EN+16, LABEL+16
PSBORD	EN+2~
>> PSBPRE	EN+7*, EN+8
PSBQTY	EN+1~, EN+11*, EN+12
>> PSBRPT	EN+4, EN+5
>> PSBRPT(	EN+24
PSBSYM	EN+2~, EN+23*, LABEL+25, LABEL+30, LABEL+35, LABEL+39
PSBWARD	EN+1~, EN+17*, LABEL+18
TEXT	DATA~, DATA+1
U	EN+5, EN+16, EN+24, LABEL+5
X	DATA~, DATA+1, INPTR+1!, INPTR+2, INPTR+5, INPTR+6, INPTR+7!
Y	DATA~, DATA+1, INPTR+7

Customize PDF page

Package: Barcode Medication Administration