Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Routine: RABAR1

Package: Radiology Nuclear Medicine

Routine: RABAR1


Information

RABAR1 ;HISC/GJC-Procedure & CPT Code barcode output (part 2 of 2)

Source Information

Source file <RABAR1.m>

Call Graph

Call Graph

Call Graph Total: 5

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RABAR  

Entry Points

Name Comments DBIA/ICR reference
PRINT ; 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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(RA71(0),"^"),RASPACE,RA792(3),RASPACE,RA71(6),RASPACE,RA71(9)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !?10
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !,$P(RA71(0),"^"),RASPACE,RA792(3),RASPACE,RA71(6),RASPACE,RA71(9)
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: !?10
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !,$P(RA71(0),"^"),RASPACE,RA792(3),RASPACE,RA71(6),RASPACE,RA71(9)
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: !,X
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: @IOBARON,X,@IOBAROFF
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: !,"To print barcoded procedure list, you will need to know the height (in",!,"vertical lines) of the barcode output on the printer to be used."
  • Line Location: TEST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: TEST+3
Routine Call
  • DIR
  • Line Location:
    • TEST+6

Global Variables Directly Accessed

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

Local Variables

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables  | All