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

Package: Radiology Nuclear Medicine

Routine: RARTE2


Information

RARTE2 ;HISC/SWM,GJC-Edit/Delete a Report ; Feb 09, 2021@12:26:05

Source Information

Source file <RARTE2.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Radiology Nuclear Medicine 3 EN3^RAUTL20  $$EOS^RAUTL5  ENKILL^RAXREF  
VA FileMan 3 (,UPDATE)^DIE  ^DIK  ^DIR  
Kernel 1 OWNSKEY^XUSRB  

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

Package Total Caller Graph
Radiology Nuclear Medicine 11 RAHLO1  RAREG1  RAREG2  RARIC  RART  RARTE  RARTE1  RARTE4  
RARTE5  RARTRPV1  RAUTL15  

Entry Points

Name Comments DBIA/ICR reference
PTR ; if the current study is the master study for
; the print set the accession of the master study
; is the .01 value of the master pset report record.
; All secondary studies will have their accession
; numbers filed in the OTHER CASE# multiple under
; that master pset report record.
PTR2 ;find the descendent, if part of the pset build accession # into our result
PTR3 ; -RAO1: reused for $O subscript (think RACNI)
; -RACCSTR: now represents the full accession #
; Ex: 141-040618-12345 -or- 040618-12345
; -RARPT: record # of RIS report in file #74
INSERT ; add subrec to file #74's subfile #74.05
DEL17(RAIEN) ;del other print set members' pointer to #74
D18
COPY ;copy physicians and diagnoses
COPYLOOP
KIL3
COPY3
UP3 ;
KIL4
COPY4
UP4 ;
KIL5
COPY5
UP5 ;
COPYREF ; clear out Fileman vars and quit
Q
SILENT() ;ask to include canceled cases if interactive
ASK() ;include canceled case in report?
OWNSKEY() ;does this user have the RA MGR key?

External References

Name Field # of Occurrence
^DIE COPYLOOP+7, COPYLOOP+15
UPDATE^DIE INSERT+3, UP3+2, UP4+2, UP5+2
^DIK KIL3+3, KIL4+3, KIL5+3
^DIR ASK+4
EN3^RAUTL20 DEL17+2
$$EOS^RAUTL5 PTR+13, INSERT+6
ENKILL^RAXREF D18+5
OWNSKEY^XUSRB OWNSKEY+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"Missing data (routine RARTE2)",!
  • Line Location: PTR+13
Function Call: WRITE
  • Prompt: !!,$C(7),"Error encountered while setting sub-records (routine RARTE2)",!
  • Line Location: INSERT+6
Function Call: WRITE
  • Prompt: !!,"... now copying ",$S(RADRS=1:"Diagnostic Codes",1:"Staff & Resident data")," to other cases in this print set ...",!
  • Line Location: COPY+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Error encountered while in adding rec ",RA3," to sub-file 70.09"
  • Line Location: UP3+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Error encountered while in adding rec ",RA3," to sub-file 70.11"
  • Line Location: UP4+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Error encountered while in adding rec ",RA3," to sub-file 70.14"
  • Line Location: UP5+3
Function Call: WRITE
  • Prompt: !!,RAX
  • Line Location: ASK+7
Routine Call
  • DIE
  • Line Location:
    • COPYLOOP+7
    • COPYLOOP+15
Routine Call
  • DIE
  • Line Location:
    • INSERT+3
    • UP3+2
    • UP4+2
    • UP5+2
Routine Call
  • DIR
  • Line Location:
    • ASK+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(72 - [#72] PTR2+26
^RADPT - [#70] PTR2+23, PTR2+24, PTR2+40*, D18+4, D18+7, COPY+9, COPY+11, COPY+13, COPY+15, KIL3
, KIL4, KIL5
^RARPT("B" PTR3+11

Label References

Name Line Occurrences
$$ASK PTR2+33
$$OWNSKEY PTR2+32, PTR2+33
$$SILENT PTR2+32, PTR2+33, PTR2+37
COPY3 KIL3, UP3+2
COPY4 KIL4, UP4+2
COPY5 KIL5, UP5+2
COPYLOOP COPYLOOP, COPYLOOP+23
COPYREF COPYLOOP
D18 D18+4, D18+8
INSERT PTR3+11
KIL3 COPYLOOP+20, KIL3+4
KIL4 COPYLOOP+21, KIL4+4
KIL5 COPYLOOP+22, KIL5+4
Q COPYLOOP+20, COPYLOOP+21, COPYLOOP+22

Naked Globals

Name Field # of Occurrence
^( COPY+11, COPY+13, COPY+15
^(0 D18+7*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BOOL OWNSKEY+7~
BOOL(0 OWNSKEY+8
DA D18+2*, D18+5, COPYLOOP+4*, COPYLOOP+7!, COPYLOOP+12*, COPYLOOP+15!, KIL3+1*, KIL4+1*, KIL5+1*, COPYREF+1!
, Q!
DA(1 D18+2*, COPYLOOP+4*, COPYLOOP+5, COPYLOOP+12*, COPYLOOP+13, COPYLOOP+19*, KIL3+2, KIL4+2, KIL5+2
DA(2 D18+2*, COPYLOOP+4*, COPYLOOP+5, COPYLOOP+12*, COPYLOOP+13, COPYLOOP+19*, KIL3+2, KIL4+2, KIL5+2
DA(3 COPYLOOP+19*, KIL3+2, KIL4+2, KIL5+2
DIE COPYLOOP+5*, COPYLOOP+7!, COPYLOOP+13*, COPYLOOP+15!
DIK KIL3+2*, KIL4+2*, KIL5+2*, COPYREF+1!
DIR ASK+1~
DIR("A" ASK+3*, ASK+4*
DIR("B" ASK+2*
DIR(0 ASK+2*
DIRUT ASK+1~, ASK+5
DR COPYLOOP+6*, COPYLOOP+7!, COPYLOOP+14*, COPYLOOP+15!
DTOUT ASK+1~
DUOUT ASK+1~
DUZ OWNSKEY+6, OWNSKEY+7
RA1 DEL17+2~, DEL17+4*, D18*, D18+2, D18+4, D18+7, COPY+3~, COPY+9*, COPY+11*, COPY+13*
, COPY+15*, COPY+17*, COPYLOOP*, COPYLOOP+4, COPYLOOP+12, COPYLOOP+18, COPYLOOP+19, KIL3, KIL4, KIL5
RA1ARY PTR2+4~
RA1ARY( PTR2+43*, PTR3+5, PTR3+6
RA1ARY(0 PTR2+20*, PTR2+43
RA1PD COPY+6~, COPY+9*, COPYLOOP+14
RA1PR COPY+4~, COPY+9*, COPYLOOP+6
RA1PS COPY+4~, COPY+9*, COPYLOOP+6
RA1SD COPY+6~
RA1SD( COPY+15*, COPY5, UP5+1
RA1SR COPY+5~
RA1SR( COPY+11*, COPY3, UP3+1
RA1SS COPY+5~
RA1SS( COPY+13*, COPY4, UP4+1
RA2 COPY+3~, COPYLOOP+18*, UP3+1, UP4+1, UP5+1
RA3 COPY+3~, COPYLOOP+20*, COPYLOOP+21*, COPYLOOP+22*, KIL3*, KIL3+1, COPY3*, UP3+1, UP3+3, KIL4*
, KIL4+1, COPY4*, UP4+1, UP4+3, KIL5*, KIL5+1, COPY5*, UP5+1, UP5+3
RA4 DEL17+2~
RA4( D18
RA4(0 DEL17+3
RACCSTR PTR2+4~, PTR2+12*, PTR2+42, PTR3+6*, PTR3+11, INSERT+2
>> RACNI PTR+11, COPY+1, COPY+9, COPY+11, COPY+13, COPY+15, COPYLOOP
>> RADFN PTR+11, PTR2+23, PTR2+24, PTR2+40, DEL17+1, D18+2, D18+4, D18+7, COPY+1, COPY+9
, COPY+11, COPY+13, COPY+15, COPYLOOP+4, COPYLOOP+12, COPYLOOP+18, COPYLOOP+19, KIL3, KIL4, KIL5
>> RADRS COPY+1, COPY+2, COPY+9, COPY+11, COPY+13, COPY+15, COPYLOOP+3, COPYLOOP+11, COPYLOOP+20, COPYLOOP+21
, COPYLOOP+22
>> RADTI PTR+11, PTR2+23, PTR2+24, PTR2+40, DEL17+1, D18+2, D18+4, D18+7, COPY+1, COPY+9
, COPY+11, COPY+13, COPY+15, COPYLOOP+4, COPYLOOP+12, COPYLOOP+18, COPYLOOP+19, KIL3, KIL4, KIL5
>> RAERR PTR+14*, INSERT+7*
RAFDA INSERT+1~, COPY+7~, COPY3!, COPY4!, COPY5!
RAFDA( INSERT+2*, UP3+1*, UP4+1*, UP5+1*
RAIEN INSERT+1~, INSERT+2*, DEL17~, D18+4, D18+5, COPY+7~, COPY3!, COPY4!, COPY5!
>> RAMDV PTR2+16
>> RAMEMARR COPY+1
>> RAMEMARR( COPYLOOP
RAMSG INSERT+1~, INSERT+4, COPY+7~, COPY3!, UP3+2, COPY4!, UP4+2, COPY5!, UP5+2
RAO1 PTR2+4~, PTR2+22*, PTR2+23*, PTR2+24, PTR2+40, PTR2+43, PTR3+5*, PTR3+6
RAO1(0 PTR2+24*, PTR2+26, PTR2+42, PTR2+43, ASK+3, ASK+6
>> RAOUT PTR+13*, INSERT+6*
RAOX PTR2+22!, PTR2+42*, PTR2+43, PTR2+45!
RAOX(3 PTR2+26*, PTR2+32, PTR2+33, PTR2+37
>> RAQUIET PTR+13, INSERT+6, SILENT+3
>> RARIC PTR+12, INSERT+5, SILENT+3
>> RARPT PTR+11, PTR2+40, PTR3+11, INSERT+2
>> RARPTN PTR+11, PTR2+12, PTR2+20
RARPTONCAN PTR2+4~, PTR2+16*, PTR2+32, PTR2+33, PTR2+37
RAX ASK+1~, ASK+6*, ASK+7
>> RAXIT PTR+10*, PTR+12*, INSERT+5*, COPYLOOP+20, COPYLOOP+21, COPYLOOP+22, COPY3, UP3+3*, COPY4, UP4+3*
, COPY5, UP5+3*
U PTR2+16, PTR2+26, PTR2+40, PTR2+43, ASK+3, ASK+6
X ASK+1~
Y ASK+1~, ASK+5*, ASK+6, ASK+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All