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: RABAR

Package: Radiology Nuclear Medicine

Routine: RABAR


Information

RABAR ;HISC/GJC-Procedure & CPT Code barcode output (part 1 of 2) ;7/31/96 08:57

Source Information

Source file <RABAR.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Entry point for RA BARPROCPRINT (Barcoded Procedure List)
; variable list:
; 'RADIC' : namespaced DIC input variables passed to EN1^RASELCT
; 'RAPRNT': data elements to print i.e, CPT Code, Procedure or both
; 'RASORT': data elements to sort by i.e, CPT Code or Procedure
; '^TMP($J,"RA I-TYPE")': Imaging Type(s) selected by the user
; '^TMP($J,"RA PROC")' : Procedure(s) selected by the user
DEV ; Device selection
START ; Start processing data & printing to the device here
BOTH ; Ask the user which to sort by i.e, CPT Code -or- Procedure
DOLLARY ; Caculate the new value of $Y for formatting purposes.
DSCR(Y) ; Device screen logic, select only barcode capable devices.
HDR ; Header
HELP ; Help message for barcode height prompt
HI() ; user input of height (in lines) of the barcode
; returns the height (in lines) of the barcode, OR -1 if user chooses
; to exit without inputting a number.
INA(Y) ; Determines if the procedure is inactive
; Input : IEN of file 71
; Output: 1 if active, 0 if inactive
ITYPE() ; Select the Imaging Type(s)
KILL ; Kill all other variables [ includes ^TMP($J) ]
KILLDIR ; Kill off variables from DIR call
LINE ; Print ten lines of text

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !?5,"Request Queued, Task #: ",$G(ZTSK)
  • Line Location: DEV+10
Function Call: WRITE
  • Prompt: !
  • Line Location: START+22
Function Call: WRITE
  • Prompt: !
  • Line Location: BOTH+1
Function Call: WRITE
  • Prompt: !?(IOM-$L(RAHD1)\2),RAHD1
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?(IOM-$L(RAHD2)\2),RAHD2
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?$S(IOM=132:116,1:64),"Page: ",RAPG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,RALINE
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"If you don't know how to answer this prompt, first determine which printer",!,"you are going to use. Then exit this option and re-select it from your menu."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"When you are asked if you want to print a sample barcode, enter 'Yes'."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,"Enter your printer selection at the 'DEVICE' prompt, then retrieve your",!,"sample printout. If no barcode has printed, contact your IRM and ask them"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,"to set up the printer for barcode printing. If a barcode has printed, use",!,"the line counts printed above and below the barcode to determine how many"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !,"vertical lines the barcode occupies (include the procedure name line printed",!,"below the barcode)."
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HI+4
Function Call: WRITE
  • Prompt: !,"LINE ",I
  • Line Location: LINE+1
Info |  Source |  Entry Points |  Interaction Calls