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 |