Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls