source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPWBD.m@ 1166

Last change on this file since 1166 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 524 bytes
RevLine 
[613]1DGPWBD ;ALB/CAW - Device Specifications for Patient Wristband ;2/14/95
2 ;;5.3;Registration;**62,82,246,385**;Aug 13, 1993
3 ;
4BL ; 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
15ADD ; Add different barcode set up here
16 Q
Note: See TracBrowser for help on using the repository browser.