RMPRPIYZ ;HINES CIO/ODJ - Bar Code Print all label ;10/8/02 13:11
Source file <RMPRPIYZ.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RMPR(661.11 - [#661.11] | ITEM+1 |
| ^RMPR(661.5 - [#661.5] | PROC+9, PROC+10 |
| ^RMPR(661.6 - [#661.6] | VEND+2 |
| ^RMPR(661.7 - [#661.7] | LOOP+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | SELD+1* |
| >> %ZIS("A" | SELD* |
| IO | SELD+4 |
| IO("Q" | SELD+4, SELD+5! |
| IOF | STN+1 |
| ION | SELD+6 |
| IONOFF | PRINTC+1! |
| IOP | SELD+1! |
| IOST | SELD+2 |
| >> K | VEND+2* |
| >> POP | SELD+1 |
| >> RD | PROC+6*, VEND+2 |
| >> RH | PROC+5*, ITEM+1, VEND+3, VEND+4 |
| >> RI | LOOP+1*, PROC+4 |
| >> RL | LOC+5*, LOOP+1 |
| RM441 | PROC+3! |
| >> RM6 | VEND+2*, VEND+3, VEND+4 |
| RM661 | PROC+3! |
| >> RMDAT | LOOP+1*, PROC+4, PROC+5, PROC+6, PROC+7, PROC+8 |
| >> RME | PROC+1*, ITEM+2*, ITEM+3, VEND+8*, VEND+9 |
| >> RMLOC | PROC+7*, PROC+9, PROC+10, VEND+4 |
| >> RMLOCNA | PROC+2*, PROC+10*, VEND+19 |
| RMPR1 | STN+4!, LOC+5! |
| RMPR11 | STN+4!, ITEM+2 |
| RMPR11("DESCRIPTION" | PROC+1*, VEND+16 |
| RMPR11("HCPCS-ITEM" | VEND+14 |
| RMPR11("IEN" | ITEM+1* |
| RMPR11("ITEM | MASTER" , VEND+15, MSTER" , VEND+1* |
| >> RMPR5 | LOC+2 |
| >> RMPR5("IEN" | LOC+5 |
| >> RMPR6("VENDOR" | PROC+2*, VEND+1*, VEND+5*, VEND+18 |
| >> RMPR7 | VEND+8 |
| >> RMPR7("HCPCS" | PROC+4* |
| >> RMPR7("IEN" | PROC+4* |
| >> RMPR7("ITEM" | PROC+5*, ITEM+1 |
| >> RMPR7("LOCATION" | PROC+7* |
| >> RMPR7("QUANTITY" | PROC+8*, VEND+17, VEND+20 |
| >> RMPR7("VALUE" | PROC+8*, VEND+17 |
| RMPR7I | PROC+3!, VEND+8 |
| RMPR7I("DATE&TIME" | VEND+12, VEND+13 |
| RMPR7I("HCPCS" | VEND+12 |
| >> RMPRBARC | VEND+12*, VEND+22 |
| >> RMPRERR | STN+1*, STN+2, LOC+2* |
| >> RMPREXC | STN+1, STN+3, LOC+2, LOC+3, LOC+4 |
| >> RMPRITXT | VEND+22 |
| >> RMPRITXT("DATE" | VEND+13* |
| >> RMPRITXT("ITE | M DESC" , VEND+16* |
| >> RMPRITXT("ITEM" | VEND+14* |
| >> RMPRITXT("LOCATION" | VEND+19* |
| >> RMPRITXT("MAS | TER DESC" , VEND+15* |
| >> RMPRITXT("UNI | T PRICE" , VEND+17* |
| >> RMPRITXT("VENDOR" | VEND+18* |
| >> RMPRNLAB | PROC+1*, VEND+20*, VEND+22 |
| >> RMPRSTN | STN+1 |
| >> RMPRSTN("IEN" | STN+4, LOC+2 |
| >> RMSTN | LOOP+1* |
| >> RMV | VEND+1*, VEND+4*, VEND+5 |
| >> RS | STN+4*, LOOP+1, ITEM+1 |
| U | LOOP+1, PROC+4, PROC+5, PROC+6, PROC+7, PROC+8, PROC+10, VEND+3, VEND+4 |
| >> ZTDESC | SELD+5* |
| >> ZTIO | SELD+6* |
| >> ZTRTN | SELD+5* |
| >> ZTSAVE("RL" | SELD+6* |
| >> ZTSAVE("RS" | SELD+6* |
| >> ZTSK | SELD+7 |
