- 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 Jan 18, 2025@03:25:51 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 ;;