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 |
|