RABAR1 ;HISC/GJC-Procedure & CPT Code barcode output (part 2 of 2)
Source file <RABAR1.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 |
---|---|---|
; Print the barcode(s) & CPT Code(s)
|
||
PRINT1 | ; Print the test barcode
|
|
PROC() | ; Select the Procedure(s)
|
|
TEST() | ; Does the user wish to print a test barcode.
; Returns '1' if test print is requested, '0' if no test print |
|
ZOSF(DX,DY) | ; Called to execute ^%ZOSF("XY")
|
|
ZTSAVE | ; Save off variable for ZTLOAD
|
Name | Field # of Occurrence |
---|---|
PKILL^%ZISP | PRINT1+8 |
PSET^%ZISP | PRINT1+3 |
^DIR | TEST+6 |
DOLLARY^RABAR | PRINT+17, PRINT+23, PRINT+38 |
HDR^RABAR | PRINT+14, PRINT+20, PRINT+28 |
KILLDIR^RABAR | TEST+3, TEST+7 |
LINE^RABAR | PRINT1+2, PRINT1+9 |
EN1^RASELCT | PROC+8, PROC+9 |
$$EOS^RAUTL5 | PRINT+13, PRINT+19, PRINT+27 |
$$XTERNAL^RAUTL5 | PRINT+5, PRINT+7 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("XY" | ZOSF+1 |
^DD(71 | PRINT+5, PRINT+7, PRINT+17, PRINT+22, PRINT+32, PRINT+36 |
^RA(79.2 - [#79.2] | PRINT+10 |
^RAMIS(71 - [#71] | PRINT+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
D0 | PRINT+1~, PRINT+2*, PRINT+3 |
>> DIR("?" | TEST+4* |
>> DIR("A" | TEST+3*, TEST+5* |
>> DIR("B" | TEST+6* |
>> DIR(0 | TEST+3* |
>> DIRUT | TEST+6 |
DX | ZOSF~ |
DY | ZOSF~ |
I | ZTSAVE+1~, ZTSAVE+2*, ZTSAVE+3 |
>> IOBAROFF | PRINT1+4, PRINT1+6 |
>> IOBARON | PRINT1+4, PRINT1+6 |
IOSL | PRINT+12, PRINT+18, PRINT+26 |
>> RA2 | PRINT+2 |
RA71 | PRINT+1~ |
RA71(0 | PRINT+3*, PRINT+4, PRINT+16, PRINT+31, PRINT+35 |
RA71(12 | PRINT+4*, PRINT+10 |
RA71(6 | PRINT+3*, PRINT+5*, PRINT+16, PRINT+31, PRINT+35 |
RA71(9 | PRINT+4*, PRINT+6, PRINT+7*, PRINT+9*, PRINT+16, PRINT+31, PRINT+35 |
RA792 | PRINT+1~ |
RA792(3 | PRINT+10*, PRINT+16, PRINT+31, PRINT+35 |
RADIC | PROC+1~, PROC+2*, PROC+8, PROC+9 |
RADIC("A" | PROC+2* |
RADIC("S" | PROC+6* |
RADIC("S1" | PROC+3*, PROC+6 |
RADIC("S2" | PROC+4*, PROC+6 |
RADIC("S3" | PROC+5*, PROC+6 |
RADIC(0 | PROC+2* |
>> RAEOS | PRINT+12, PRINT+18, PRINT+26 |
RAINPUT | PROC+1~, PROC+7*, PROC+8, PROC+9 |
>> RAPRNT | PRINT+11, PRINT+30, PRINT+34 |
RAQUIT | PROC+1~, PROC+10 |
>> RASORT | PROC+8, PROC+9, ZTSAVE+5 |
RASPACE | PRINT+1~*, PRINT+16, PRINT+31, PRINT+35 |
>> RATEST | ZTSAVE+6 |
RAUTIL | PROC+1~, PROC+7*, PROC+8, PROC+9 |
>> RAVHI | PRINT+17, PRINT+23, PRINT+38, ZTSAVE+7 |
>> RAXIT | PRINT+12, PRINT+13*, PRINT+18, PRINT+19*, PRINT+26, PRINT+27* |
X | PRINT1+1~*, PRINT1+5, PRINT1+6 |
>> Y | TEST+6*, TEST+8 |
>> ZTSAVE( | ZTSAVE+3* |
>> ZTSAVE("RASORT" | ZTSAVE+5* |
>> ZTSAVE("RATEST" | ZTSAVE+6* |
>> ZTSAVE("RAVHI" | ZTSAVE+7* |