DGPWBD.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGPWBD   540     printed  Apr 09, 2024@22:02:29                                                                                                                                                                                                       Page 2

DGPWBD    ;ALB/CAW - Device Specifications for Patient Wristband ;2/14/95

 +1       ;;5.3;Registration;**62,82,246,385**;Aug 13, 1993

 +2       ;

BL        ; Barcode Blazer

 +1        NEW LINE

 +2        USE IO

 +3        SET LINE=$GET(^%ZIS(2,IOST(0),203))

           WRITE LINE,LINE1,!

 +4        SET LINE=$GET(^%ZIS(2,IOST(0),205))

           WRITE LINE,LINE2,!

 +5        SET LINE=$GET(^%ZIS(2,IOST(0),207))

           WRITE LINE,LINE3,!

 +6        SET LINE=$GET(^%ZIS(2,IOST(0),209))

           WRITE LINE,LINE4,!

 +7        SET VARIABLE=$PIECE(VADM(2),U)

 +8       ;VARIABLE is the SSN without dashes.

 +9        IF $LENGTH($GET(^%ZIS(2,+IOST(0),"BAR1")))

               WRITE @^%ZIS(2,IOST(0),"BAR1")

 +10       QUIT 

ADD       ; Add different barcode set up here

 +1        QUIT