RTL2 ;MJK/TROY ISC;Routine to print labels; ; 1/30/87 10:08 AM ;
Source file <RTL2.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 2 | ^%ZIS ^%ZISC |
Record Tracking | 1 | PRT^RTL1 |
VA FileMan | 1 | ^DIC |
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 |
Package | Total | Caller Graph |
---|---|---|
Record Tracking | 3 | RT LABEL EDIT RT LBL-TEST RTL |
Kernel | 1 | ^DIC(19 |
Name | Comments | DBIA/ICR reference |
---|---|---|
CMP | ||
STORE | ||
TEST | ||
Q | ||
BC | ;DIC("S") for print fields multiple of 194.4 (LABEL FORMAT file)
; Z1 = type of label from 194.4 ; Z2 = " " " from 194.5 (LABEL PRINT FIELD file) ; Z3 = 1 or 0 depending is Z1 and Z2 are compatible ; AND if the field is a barcode field, that it is ; the ONLY barcode field for the label format |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DIC(194.4 - [#194.4] | Classic Fileman Calls |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | CMP+2*, STORE |
A | Q+1! |
>> D0 | BC+7, BC+8 |
DIC | TEST+1*!, Q+1! |
DIC("A" | TEST+1* |
DIC("S" | TEST+1* |
DIC(0 | TEST+1* |
DUOUT | Q! |
IO | TEST+2 |
IO(0 | TEST+2 |
J | CMP+2*, CMP+4!, STORE+1, STORE+2, Q+1! |
K | Q+1! |
POP | TEST+2, Q+1! |
RAI | BC+8*, BC+10! |
RTBC | Q+1! |
RTCOL | CMP+2*, CMP+4!, STORE+2 |
RTDEF | CMP+4!, STORE*, STORE+1 |
RTEST | TEST*, Q! |
>> RTFL | CMP+2*, STORE+2* |
RTFMT | CMP, CMP+1, CMP+2, CMP+3, STORE+2, TEST+1*, Q! |
RTI | CMP+1*, CMP+2*, CMP+4! |
RTII | CMP+4! |
RTITL | CMP+4! |
>> RTITLE | STORE+1*, STORE+2 |
RTIV | CMP+4!, STORE*, STORE+1, STORE+2 |
RTN | CMP+2*, CMP+4!, STORE+2* |
RTNUM | TEST*, Q! |
RTROW | CMP*, CMP+2, CMP+4! |
U | BC+7, BC+8 |
Y | TEST+1, Q+1!, BC+7, BC+8 |
Z1 | BC+7*, BC+10! |
Z2 | BC+7*, BC+10! |
Z3 | BC+7*, BC+8*, BC+9, BC+10! |