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 |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
Radiology Nuclear Medicine 3 ($$PROC,$$TEST,PRINT,PRINT1,ZOSF,ZTSAVE)^RABAR1  EN1^RASELCT  STOPCHK^RAUTL9  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Radiology Nuclear Medicine 2 RA BARPROCPRINT  RABAR1  

Entry Points

Name Comments DBIA/ICR reference
DOLLARY ; Caculate the new value of $Y for formatting purposes.
BOTH ; Ask the user which to sort by i.e, CPT Code -or- Procedure
INA(Y) ; Determines if the procedure is inactive
; Input : IEN of file 71
; Output: 1 if active, 0 if inactive
HDR ; Header
START ; Start processing data & printing to the device here
KILLDIR ; Kill off variables from DIR call
DEV ; Device selection
ITYPE() ; Select the Imaging Type(s)
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
KILL ; Kill all other variables [ includes ^TMP($J) ]
DSCR(Y) ; Device screen logic, select only barcode capable devices.
LINE ; Print ten lines of text
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.
HELP ; Help message for barcode height prompt

External References

Name Field # of Occurrence
^%ZIS DEV+3
HOME^%ZIS DEV+11
^%ZISC START+22
^%ZTLOAD DEV+9
^DIR EN1+21, BOTH+5, HI+9
$$PROC^RABAR1 EN1+25
$$TEST^RABAR1 EN1+11
PRINT^RABAR1 START+18
PRINT1^RABAR1 START+12
ZOSF^RABAR1 DOLLARY+1
ZTSAVE^RABAR1 DEV+9
EN1^RASELCT ITYPE+3
STOPCHK^RAUTL9 HDR+7
$$FMTE^XLFDT EN1+10

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
Routine Call
  • %ZIS
  • Line Location:
    • DEV+11
Routine Call
  • DIR
  • Line Location:
    • EN1+21
    • BOTH+5
    • HI+9
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] DSCR+1
^%ZIS(2 - [#3.2] DSCR+3, DSCR+4
^RAMIS(71 - [#71] INA+3, INA+4
^TMP($J EN1+8!, EN1+26, DEV+2, DEV+5*, START+16, START+17, KILL+1!, KILL+2!

Label References

Name Line Occurrences
$$HI EN1+14
$$ITYPE EN1+24
BOTH EN1+23
DEV EN1+12
HDR START+12, START+15
KILL EN1+11, EN1+15, EN1+22, EN1+23, EN1+24, EN1+25, EN1+26, DEV+4, DEV+6, START+23
KILLDIR EN1+16, EN1+22, BOTH+1, BOTH+6, HI+4, HI+9

Naked Globals

Name Field # of Occurrence
^("RA BARDEV" DEV+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%X DEV+12!, KILL+3!
%XX DEV+12!, KILL+3!
%Y DEV+12!, KILL+3!
%YY DEV+12!, KILL+3!
>> %ZIS DEV+1*
>> %ZIS("A" DEV+1*
>> %ZIS("B" DEV+2*
>> %ZIS("S" DEV+3*
DDH KILL+5!
DIR KILLDIR+1!
DIR("?" EN1+18*, EN1+19*, EN1+20*, BOTH+3*, BOTH+4*, HI+6*, HI+7*
DIR("??" HI+8*
DIR("A" EN1+17*, BOTH+2*, HI+5*
DIR(0 EN1+16*, BOTH+1*, HI+4*
DIROUT KILLDIR+1!
DIRUT EN1+21, BOTH+5, HI+9, KILLDIR+1!
DT EN1+10, INA+4
DTOUT KILLDIR+1!
DUOUT KILLDIR+1!
I KILL+5!, LINE+1~*
IO START+1
IO("Q" DEV+6, DEV+12!
IOF HDR+1
IOM START+10, HDR+2, HDR+3, HDR+4
ION DEV+5
POP DEV+4, KILL+5!
RA1 START+10*, START+16*, START+17, KILL+3!
RA2 START+17*, KILL+3!
RABAR0 DSCR+1~, DSCR+3*, DSCR+5
RABAR1 DSCR+1~, DSCR+4*, DSCR+5
RADIC EN1+9~, ITYPE+1~, ITYPE+2*, ITYPE+3
RADIC("A" ITYPE+2*
RADIC(0 ITYPE+2*
RADT EN1+9~, EN1+10*, START+9
RADX EN1+9~, DOLLARY+1*
RADY EN1+9~, DOLLARY+1*
RAEOS START+15~*
RAHD1 START+3*, START+4*, START+5*, START+6*, START+8*, HDR+2, KILL+3!
RAHD2 START+9*, HDR+3, KILL+3!
RAHI HI+3~*, HI+4, HI+6
RAINPUT ITYPE+1~, ITYPE+3*
RALINE START+10*, HDR+5, KILL+3!
RALOW HI+3~*, HI+4, HI+6
RAPG START+9*, HDR+1*, HDR+4, KILL+3!
RAPG1 KILL+3!
RAPRNT EN1+9~, EN1+22*, EN1+23, START+4, START+5, START+6
RAQUIT ITYPE+1~, ITYPE+4
RASORT EN1+9~, BOTH+6*
RATERMTY DSCR+1~*, DSCR+2, DSCR+3, DSCR+4
RATEST EN1+11*, EN1+12, EN1+13!, DEV+5, START+2, START+8, START+11, KILL+1, KILL+3!
RAUTIL ITYPE+1~, ITYPE+3*
RAVHI EN1+9~, EN1+14*, EN1+15, START+15, DOLLARY+1
RAXIT EN1+9~, EN1+10*, EN1+21*, EN1+22, EN1+23, EN1+24*, EN1+25*, START+12, START+15, START+16
, START+17, BOTH+5*, BOTH+6, HDR+7*
X DEV+12!, KILL+3!
Y DEV+12!, DSCR~, DSCR+1, HI+9*, HI+10, INA~, INA+3, INA+4, KILL+3!
Y(0 EN1+22, BOTH+6
ZTDESC DEV+8*, KILL+4!
>> ZTQUEUED START+1, HDR+7
>> ZTREQ START+1*
ZTRTN DEV+7*, KILL+4!
ZTSAVE KILL+4!
>> ZTSK DEV+10
>> ZTSK("D" DEV+10
>> ZTSTOP HDR+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All