RMPRPIYZ ;HINES CIO/ODJ - Bar Code Print all label ;10/8/02 13:11
Source file <RMPRPIYZ.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PB | ;***** PB - Print ALL Bar Code labels
|
|
| STN | ;S RMPROVAL=$G(RMPRSTN("IEN"))
|
|
| LOC | ; askk for location
|
|
| ;I '$D(RMPRBCP) G PRINTX
|
||
| SELD | ||
| PNOW | ;jump here if not queued.
|
|
| LOOP | ;loop 661.7 for all items in a location.
|
|
| PROC | ;process bar code for printing.
|
|
| ITEM | ;get 661.11 record
|
|
| VEND | ;get vendor from 661.6.
|
|
| PRINTC | ;
|
|
| PBX | ||
| PRINTX |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|