RARIC ;HISC/FPT,GJC AISC/SAW-Radiologic Image Capture and Display Routine ;08/05/08 14:35
Source file <RARIC.m>
| Package | Total | Call Graph | 
|---|---|---|
| Radiology Nuclear Medicine | 2 | PTR^RARTE2 EN2^RAUTL20 | 
| VA Fileman | 2 | (FILE,UPDATE)^DIE LOCK^DILF | 
| Kernel | 1 | $$NOW^XLFDT | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| DELRPT(Y) | ; delete a report (RARIC). The report record should | |
| CREATE | ; >>create new stub entry in file 74<< ; -------------------------------------------------------------------- ; IA: 1178 (the value of RARPT is currently null) If no report entry is ; created, RARPT is set to null or negative (negative w/report) | |
| XIT | ;exit the CREATE subroutine ; ================================================================= | |
| NEWIEN() | ; ##### ALLOCATES A NEW RECORD IN THE RAD/NUC MED REPORTS FILE ; (#74) AND LOCKS IT ; -------------------------------------------------------------------- ; Return Values ; ============= ; >0 IEN for the new record in the RAD/NUC MED REPORTS FILE (#74) | |
| UNLOCXAM | ;Unlock the EXAMINATION node locked by this process. ; -------------------------------------------------------------------- | |
| PTR | ; associate images with a radiology report record ; -------------------------------------------------------------------- | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^RA(79 - [#79] | CREATE+57 | 
| ^RADPT - [#70] | CREATE+24, CREATE+28, CREATE+29, CREATE+36, UNLOCXAM+2 | 
| ^RARPT - [#74] | CREATE+107, CREATE+133, XIT+3, PTR+11, PTR+20, NEWIEN+20 | 
| ^RARPT(" " | NEWIEN+18 | 
| Name | Line Occurrences | 
|---|---|
| $$NEWIEN | CREATE+80 | 
| DELRPT | CREATE+108, CREATE+123 | 
| UNLOCXAM | CREATE+35, CREATE+36, CREATE+44, XIT+3 | 
| XIT | CREATE+107, CREATE+123 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | CREATE+57 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> DILOCKTM | PTR+11 | 
| DT | CREATE+90 | 
| DUZ | CREATE+100 | 
| IEN | NEWIEN+14~, NEWIEN+18*, NEWIEN+20, NEWIEN+28 | 
| >> MAGGP | PTR+10, PTR+14 | 
| NEWIEN | NEWIEN+14~, NEWIEN+15*, NEWIEN+17, NEWIEN+28*, NEWIEN+31 | 
| NODE | NEWIEN+14~, NEWIEN+20*, NEWIEN+23, NEWIEN+26 | 
| RA1 | CREATE+65~ | 
| RACESION | CREATE+56~, CREATE+59*, CREATE+62*, CREATE+86 | 
| >> RACN | CREATE+35, CREATE+62, CREATE+89 | 
| >> RACNI | CREATE+24, CREATE+29, CREATE+36, CREATE+118, UNLOCXAM+2 | 
| >> RADFN | CREATE+24, CREATE+28, CREATE+29, CREATE+36, CREATE+87, CREATE+118, UNLOCXAM+2 | 
| >> RADTE | CREATE+62 | 
| >> RADTI | CREATE+24, CREATE+28, CREATE+29, CREATE+36, CREATE+88, CREATE+118, UNLOCXAM+2 | 
| RAERR | CREATE+65~, CREATE+116!, DELRPT+5!, DELRPT+6! | 
| RAERR("DIERR" | CREATE+107, CREATE+123 | 
| >> RAESIG | CREATE+99 | 
| RAFDA | CREATE+65~, CREATE+116!, PTR+13~, DELRPT+5!, DELRPT+6! | 
| RAFDA( | CREATE+119*, PTR+14* | 
| RAFDA(74 | DELRPT+5* | 
| RAFDAIEN | CREATE+65~ | 
| RAFDAIEN(1 | CREATE+80*, CREATE+107, CREATE+108, CREATE+119, CREATE+123, CREATE+127, XIT+3 | 
| RAIEN | CREATE+65~, CREATE+116!, CREATE+118*, CREATE+119, PTR+13~ | 
| RAIEN(1 | PTR+19 | 
| RAMDIV | CREATE+56~, CREATE+57* | 
| RAMDV | CREATE+56~, CREATE+57* | 
| RAMEMARR | CREATE+65~, CREATE+74 | 
| RAPRTSET | CREATE+65~, CREATE+134 | 
| RARIC | CREATE+134~* | 
| >> RARPT | CREATE+23*, CREATE+24*, CREATE+43*, CREATE+44, CREATE+127*, CREATE+133, PTR+11, PTR+14, PTR+20 | 
| RARPTN | CREATE+133~* | 
| RARSLT | PTR+13~ | 
| RARSLT("DIERR" | PTR+16 | 
| >> RATIMEOUT | CREATE+24 | 
| RATXT | CREATE+65~, CREATE+116! | 
| >> RAVERF | CREATE+100 | 
| RAX | CREATE+65~, CREATE+85*, CREATE+86, CREATE+87, CREATE+88, CREATE+89, CREATE+90, CREATE+97*, CREATE+98, CREATE+99 , CREATE+100 | 
| RAXIT | CREATE+65~ | 
| RAY | CREATE+65~, CREATE+85*, CREATE+97 | 
| RAY2 | CREATE+28~*, CREATE+57 | 
| RAY3 | CREATE+28~, CREATE+29*, CREATE+35, CREATE+43, CREATE+58, CREATE+59 | 
| U | CREATE+23*, CREATE+35, CREATE+36, CREATE+43, CREATE+57, CREATE+58, CREATE+59, CREATE+133 | 
| Y | PTR+10*, PTR+12*, PTR+17*, PTR+19*, DELRPT~, DELRPT+5 |