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

Package: Radiology Nuclear Medicine

Routine: RAUTL20


Information

RAUTL20 ;HISC/SWM-Utility Routine ;6/16/97 14:27

Source Information

Source file <RAUTL20.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 $$UP^XLFSTR  
Radiology Nuclear Medicine 1 ($$SSANVAL,$$USESSAN)^RAHLRU1  
VA FileMan 1 FILE^DIE  

Caller Graph

Caller Graph Total: 36

Package Total Caller Graph
Radiology Nuclear Medicine 28 RA ALL UNPRINTED REPORTS  RA PRINTED REPORTS  RA UNPRINTED REPORTS  RADD1  RADEM1  RAEDCN  RAFLH  RAHLO1  
RAHLQ1  RAHLTCPB  RAHLTCPX  RAPROS  RAPTLU  RARIC  RART  RART3  
RARTE  RARTE2  RARTE6  RARTE7  RARTR3  RARTRPV1  RARTUVR3  RARTVER1  
RASTED  RAUTL1  RAUTL11  RAUTL2  
Imaging 6 MAGDRA1  MAGDRA2  MAGJEX1  MAGJRPT  MAGJUPD1  MAGJUTL6  
Vendor - ISI 2 ISIJNOTE  ISIJRPT2  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; for displaying + and . during case lookup
LOOP1 ; RA1= : for-loop var which happens to be the CASE NUMBER (70.03; .01)
; RA2= : (1) ien for 70.03 (2) also, pointer value to file #74
; RA3= : holds earliest case with pointer value to file #74
; RA4= : (ienof #70.03)=case number^procedure pointers^ptr #74
; RA5=0 : all cases in set point to same non-null rarpt() or all null
; regardless of cancelled status
; RA5<>0: one or more cases in set point to different rarpt()
; RA6= : pointer to file #72 examination status
; RA7=1 : denote call of LOOP1 came from EN2 and not from EN1
EN2(RA4) ; display all print members' procs during report editing/printg
EN3(RA4) ; for print set, AFTER record is created in rarpt()
XPRI ;loop thru sub-file #74.05 to set/kill prim. xref for other prt members
XPRI1
XSEC ;loop thru sub-file #74.05 to set/kill sec. xref for other print members
XSEC1
XSEC2
FLAGMEM() ;in distr list, print + if case is part of a print set
; called from File #74's print templates
DELPNT(RADFN,RADTI,RACNI) ; When an exam is cancelled & it is associated
; with data in the Nuc Med Exam Data file (70.2) ask the user if this
; pointer to 70.2 is to be deleted. Also delete the flag which
; indicates that the dosage ticket had printed for this exam.
; Called from CANCEL^RAEDCN
; Input: RADFN - Internal Entry Number (IEN) of the Patient.
; RADTI - Date/Time of the examination (inverse format)
; RACNI - IEN of the exam for this date/time

External References

Name Field # of Occurrence
FILE^DIE DELPNT+11, DELPNT+22
$$SSANVAL^RAHLRU1 LOOP1+12
$$USESSAN^RAHLRU1 LOOP1+15, LOOP1+16
$$UP^XLFSTR DELPNT+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Enter 'Yes' to delete the radiopharmaceutical data associated with this exam.",!?3,"Enter 'No' to preserve the radiopharmaceutical data associated with this",!?3,"exam. "
  • Line Location: DELPNT+30
Function Call: WRITE
  • Prompt: "Enter '^' to exit without deleting the radiopharmaceutical data",!?3,"associated with this exam.",$C(7)
  • Line Location: DELPNT+31
Routine Call
  • DIE
  • Line Location:
    • DELPNT+11
    • DELPNT+22

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(72 - [#72] LOOP1+19
^RABTCH(74.4 - [#74.4] FLAGMEM+4
^RADPT - [#70] EN1+7, EN1+9, EN1+12, EN1+14, LOOP1+9, LOOP1+11, LOOP1+17, EN2+9, EN2+11, EN3+8
XPRI1+2, XPRI1+3, XSEC1+2, XSEC1+3, XSEC2, DELPNT+13
^RARPT - [#74] EN3+8, XPRI+2, XPRI1XPRI1+5*, XPRI1+6!, XSEC+2, XSEC1XSEC2+2*, XSEC2+3!, FLAGMEM+5

Label References

Name Line Occurrences
LOOP1 EN1+14, EN2+11
XPRI1 XPRI1+3, XPRI1+4, XPRI1+7
XSEC1 XSEC1+3, XSEC2
XSEC2 XSEC2+1, XSEC2+4

Naked Globals

Name Field # of Occurrence
^( EN1+12, XSEC1+3, XSEC2
^(0 LOOP1+17, XPRI1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 FLAGMEM+3, FLAGMEM+4
>> DA XPRI+1, XPRI+2, XPRI1XPRI1+5, XPRI1+6, XSEC+1, XSEC+2, XSEC1XSEC2+2, XSEC2+3
DTIME DELPNT+16
RA1 EN1+6~*, EN1+12*, EN1+13, EN1+14*, LOOP1+9, LOOP1+13, LOOP1+16, EN2+7~*, EN2+8*, EN2+11*
, EN3+4~*, EN3+5*, EN3+8*, XPRI+3~*, XPRI1*, XPRI1+2, XSEC+3~*, XSEC1*, XSEC1+2, FLAGMEM+2~*
, FLAGMEM+3, FLAGMEM+4*, FLAGMEM+5*, FLAGMEM+6
RA2 EN1+6~, LOOP1+9*, LOOP1+11, LOOP1+12, LOOP1+15, LOOP1+16, LOOP1+17*, LOOP1+19, LOOP1+20, LOOP1+21
, EN2+7~, EN3+4~, EN3+8*, XSEC+3~, XSEC1+4*, XSEC2*
RA200 XPRI+3~, XPRI1+3*, XPRI1+4, XPRI1+5, XPRI1+6, XSEC+3~, XSEC2*, XSEC2+1, XSEC2+2, XSEC2+3
RA3 EN1+6~*, LOOP1+20*, LOOP1+21, EN2+7~*, EN3+4~*, EN3+8*
RA4 EN1+6~, LOOP1+15*, LOOP1+16*, LOOP1+17, EN2~, EN3~
RA4( LOOP1+15*, LOOP1+16*, LOOP1+17*, EN2+8!, EN3+5!, EN3+8*
RA5 EN1+6~*, EN1+15, LOOP1+21*, EN2+7~*, EN2+12, EN3+4~, EN3+6*, EN3+8
RA6 EN1+6~, LOOP1+17*, LOOP1+19, EN2+7~
RA7 EN1+6~, LOOP1+15, LOOP1+16, LOOP1+17, EN2+7~*
RACN EN1+6~, EN1+7*
RACNDSP LOOP1+12~, LOOP1+13*, LOOP1+15
RACNI EN1+2, EN1+3, EN1+7, EN1+9, EN1+13, EN2+2, EN2+3, EN2+9, DELPNT~, DELPNT+10
, DELPNT+13, DELPNT+21
>> RACNIZ XPRI1+2*, XPRI1+3, XSEC1+2*, XSEC1+3, XSEC2
RADFN EN1+2, EN1+3, EN1+7, EN1+9, EN1+12, EN1+14, LOOP1+9, LOOP1+11, LOOP1+12, LOOP1+17
, EN2+2, EN2+3, EN2+9, EN2+11, EN3+1, EN3+2, EN3+8, DELPNT~, DELPNT+10, DELPNT+13
, DELPNT+21
>> RADFNZ XPRI+1, XPRI1+2, XPRI1+3, XSEC+1, XSEC1+2, XSEC1+3, XSEC2
RADTI EN1+2, EN1+3, EN1+7, EN1+9, EN1+12, EN1+14, LOOP1+9, LOOP1+11, LOOP1+12, LOOP1+17
, EN2+2, EN2+3, EN2+9, EN2+11, EN3+1, EN3+2, EN3+8, DELPNT~, DELPNT+10, DELPNT+13
, DELPNT+21
>> RADTIZ XPRI+1, XPRI1+2, XPRI1+3, XSEC+1, XSEC1+2, XSEC1+3, XSEC2
RAFDA DELPNT+10~, DELPNT+14!, DELPNT+21~
RAFDA( DELPNT+10*, DELPNT+21*
>> RAIEN EN3+6
>> RAKILL XPRI1+6, XSEC2+3
>> RAMEMLOW EN1+8*, EN1+13*, EN1+15*
>> RAPRTSET EN1+1*, EN1+9*, EN1+10, EN1+15*, EN2+1*, EN2+9*, EN2+10, EN2+12*
>> RARAD XPRI+1
>> RARADOLD XPRI1+3
>> RARPT EN3+6
>> RASECOND XSEC+1, XSEC1+3, XSEC2
>> RASET XPRI1+5, XSEC2+2
RASSAN LOOP1+12~*, LOOP1+13
>> RAXREF XPRI+1, XPRI1+5, XPRI1+6, XSEC+1, XSEC2+2, XSEC2+3
RAYN DELPNT+14~, DELPNT+15, DELPNT+16*, DELPNT+17*, DELPNT+18*, DELPNT+19*, DELPNT+20, DELPNT+32*
U EN1+12, FLAGMEM+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All