| 1 | PSOBARV ;BHAM ISC/DMA - CHECK QUALITY OF BARCODES ; 1/15/88 8:20 AM
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
|
|---|
| 3 | 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."
|
|---|
| 4 | D ^DIR G:$D(DTOUT)!($D(DUOUT))!($D(DIRUT))!($D(DIROUT)) OUT I Y D INST
|
|---|
| 5 | RUN K DIR R !!,"Read Barcode : ",X:DTIME,! S:'$T X="^" G OUT:"^"[X G HELP:X["?" G RUN
|
|---|
| 6 | OUT K DIR,DTOUT,DUOUT,DIRUT,DIROUT,X,J,Y Q
|
|---|
| 7 | 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."
|
|---|
| 8 | D ^DIR G:$D(DTOUT)!($D(DUOUT))!($D(DIRUT))!($D(DIROUT)) OUT I Y D INST
|
|---|
| 9 | G RUN
|
|---|
| 10 | 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="^"
|
|---|
| 11 | K D Q
|
|---|
| 12 | ;
|
|---|
| 13 | NEWS ;
|
|---|
| 14 | ;;
|
|---|
| 15 | ;;This option allows you to check the quality of your printed
|
|---|
| 16 | ;;barcodes. It can also be used for practice in using the
|
|---|
| 17 | ;;barcode reader.
|
|---|
| 18 | ;;
|
|---|
| 19 | ;;ABSOLUTELY NO ACTION IS TAKEN ON THE PRESCRIPTION BY
|
|---|
| 20 | ;; USING THIS OPTION
|
|---|
| 21 | ;;
|
|---|
| 22 | ;;Common causes for failure to read are:
|
|---|
| 23 | ;;1. Barcode too faint (change printer ribbon)
|
|---|
| 24 | ;;2. Improper scanning (move the wand at a steady rate)
|
|---|
| 25 | ;;3. Defective barcode reader (replace the reader)
|
|---|
| 26 | ;;
|
|---|
