©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
RABAR1 ;HISC/GJC-Procedure & CPT Code barcode output (part 2 of 2)
Source file <RABAR1.m>
| Package | Total | Call Graph |
|---|---|---|
| Radiology Nuclear Medicine | 3 | (DOLLARY,HDR,KILLDIR,LINE)^RABAR EN1^RASELCT ($$EOS,$$XTERNAL)^RAUTL5 |
| Kernel | 1 | (PKILL,PSET)^%ZISP |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRINT1 | ; Print the test barcode
|
|
| ZOSF(DX,DY) | ; Called to execute ^%ZOSF("XY")
|
|
| PROC() | ; Select the Procedure(s)
|
|
| ; Print the barcode(s) & CPT Code(s)
|
||
| TEST() | ; Does the user wish to print a test barcode.
; Returns '1' if test print is requested, '0' if no test print |
|
| 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* |