source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOBARV.m@ 1267

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

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1PSOBARV ;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
5RUN K DIR R !!,"Read Barcode : ",X:DTIME,! S:'$T X="^" G OUT:"^"[X G HELP:X["?" G RUN
6OUT K DIR,DTOUT,DUOUT,DIRUT,DIROUT,X,J,Y Q
7HELP 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
10INST 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 ;
13NEWS ;
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 ;;
Note: See TracBrowser for help on using the repository browser.