PSOBARV ;BHAM ISC/DMA - CHECK QUALITY OF BARCODES ; 1/15/88 8:20 AM
;;7.0;OUTPATIENT PHARMACY;;DEC 1997
S DIR("A")="Do you need instructions? ",DIR("B")="N",DIR(0)="SA^1:YES;0:NO",DIR("?")="Enter 'Yes' if instructions are needed, otherwise press RETURN."
D ^DIR G:$D(DTOUT)!($D(DUOUT))!($D(DIRUT))!($D(DIROUT)) OUT I Y D INST
RUN K DIR R !!,"Read Barcode : ",X:DTIME,! S:'$T X="^" G OUT:"^"[X G HELP:X["?" G RUN
OUT K DIR,DTOUT,DUOUT,DIRUT,DIROUT,X,J,Y Q
HELP S DIR("A",1)="Scan the barcode now",DIR("A")="Do you need further instructions? ",DIR("B")="N",DIR(0)="SA^1:YES;0:NO",DIR("?")="Enter 'Yes' if instructions are needed, otherwise press RETURN."
D ^DIR G:$D(DTOUT)!($D(DUOUT))!($D(DIRUT))!($D(DIROUT)) OUT I Y D INST
G RUN
INST F J=1:1 S D=$T(NEWS+J) Q:D="" W !,?5,$P(D,";;",2,2000) I J#22=0 R !,"return to continue ",X:DTIME S:'$T X="^" Q:X="^"
K D Q
;
NEWS ;
;;
;;This option allows you to check the quality of your printed
;;barcodes. It can also be used for practice in using the
;;barcode reader.
;;
;;ABSOLUTELY NO ACTION IS TAKEN ON THE PRESCRIPTION BY
;; USING THIS OPTION
;;
;;Common causes for failure to read are:
;;1. Barcode too faint (change printer ribbon)
;;2. Improper scanning (move the wand at a steady rate)
;;3. Defective barcode reader (replace the reader)
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOBARV 1360 printed Sep 23, 2025@20:00:57 Page 2
PSOBARV ;BHAM ISC/DMA - CHECK QUALITY OF BARCODES ; 1/15/88 8:20 AM
+1 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
+2 SET DIR("A")="Do you need instructions? "
SET DIR("B")="N"
SET DIR(0)="SA^1:YES;0:NO"
SET DIR("?")="Enter 'Yes' if instructions are needed, otherwise press RETURN."
+3 DO ^DIR
if $DATA(DTOUT)!($DATA(DUOUT))!($DATA(DIRUT))!($DATA(DIROUT))
GOTO OUT
IF Y
DO INST
RUN KILL DIR
READ !!,"Read Barcode : ",X:DTIME,!
if '$TEST
SET X="^"
if "^"[X
GOTO OUT
if X["?"
GOTO HELP
GOTO RUN
OUT KILL DIR,DTOUT,DUOUT,DIRUT,DIROUT,X,J,Y
QUIT
HELP SET DIR("A",1)="Scan the barcode now"
SET DIR("A")="Do you need further instructions? "
SET DIR("B")="N"
SET DIR(0)="SA^1:YES;0:NO"
SET DIR("?")="Enter 'Yes' if instructions are needed, otherwise press RETURN."
+1 DO ^DIR
if $DATA(DTOUT)!($DATA(DUOUT))!($DATA(DIRUT))!($DATA(DIROUT))
GOTO OUT
IF Y
DO INST
+2 GOTO RUN
INST FOR J=1:1
SET D=$TEXT(NEWS+J)
if D=""
QUIT
WRITE !,?5,$PIECE(D,";;",2,2000)
IF J#22=0
READ !,"return to continue ",X:DTIME
if '$TEST
SET X="^"
if X="^"
QUIT
+1 KILL D
QUIT
+2 ;
NEWS ;
+1 ;;
+2 ;;This option allows you to check the quality of your printed
+3 ;;barcodes. It can also be used for practice in using the
+4 ;;barcode reader.
+5 ;;
+6 ;;ABSOLUTELY NO ACTION IS TAKEN ON THE PRESCRIPTION BY
+7 ;; USING THIS OPTION
+8 ;;
+9 ;;Common causes for failure to read are:
+10 ;;1. Barcode too faint (change printer ribbon)
+11 ;;2. Improper scanning (move the wand at a steady rate)
+12 ;;3. Defective barcode reader (replace the reader)
+13 ;;
