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 |