Routine: PSBOBL

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

Package

Total

Call Graph

VA Fileman

^DIC MIX^DIC1 $$GET1^DIQ

IHS Patient

$$HRN^AUPNPAT

Toolkit

$$GET^XPAR

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

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

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

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

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

Name	Field # of Occurrence
^(0	EN+16

Local Variables

>>	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

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBOBL

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: