17 lines
524 B
Mathematica
17 lines
524 B
Mathematica
DGPWBD ;ALB/CAW - Device Specifications for Patient Wristband ;2/14/95
|
|
;;5.3;Registration;**62,82,246,385**;Aug 13, 1993
|
|
;
|
|
BL ; Barcode Blazer
|
|
N LINE
|
|
U IO
|
|
S LINE=$G(^%ZIS(2,IOST(0),203)) W LINE,LINE1,!
|
|
S LINE=$G(^%ZIS(2,IOST(0),205)) W LINE,LINE2,!
|
|
S LINE=$G(^%ZIS(2,IOST(0),207)) W LINE,LINE3,!
|
|
S LINE=$G(^%ZIS(2,IOST(0),209)) W LINE,LINE4,!
|
|
S VARIABLE=$P(VADM(2),U)
|
|
;VARIABLE is the SSN without dashes.
|
|
I $L($G(^%ZIS(2,+IOST(0),"BAR1"))) W @^%ZIS(2,IOST(0),"BAR1")
|
|
Q
|
|
ADD ; Add different barcode set up here
|
|
Q
|