|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
524 bytes
|
| Line | |
|---|
| 1 | DGPWBD ;ALB/CAW - Device Specifications for Patient Wristband ;2/14/95
|
|---|
| 2 | ;;5.3;Registration;**62,82,246,385**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | BL ; Barcode Blazer
|
|---|
| 5 | N LINE
|
|---|
| 6 | U IO
|
|---|
| 7 | S LINE=$G(^%ZIS(2,IOST(0),203)) W LINE,LINE1,!
|
|---|
| 8 | S LINE=$G(^%ZIS(2,IOST(0),205)) W LINE,LINE2,!
|
|---|
| 9 | S LINE=$G(^%ZIS(2,IOST(0),207)) W LINE,LINE3,!
|
|---|
| 10 | S LINE=$G(^%ZIS(2,IOST(0),209)) W LINE,LINE4,!
|
|---|
| 11 | S VARIABLE=$P(VADM(2),U)
|
|---|
| 12 | ;VARIABLE is the SSN without dashes.
|
|---|
| 13 | I $L($G(^%ZIS(2,+IOST(0),"BAR1"))) W @^%ZIS(2,IOST(0),"BAR1")
|
|---|
| 14 | Q
|
|---|
| 15 | ADD ; Add different barcode set up here
|
|---|
| 16 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
