RAMAINU ;HISC/GJC-Radiology Utility File Maintenance (utility)
Source file <RAMAINU.m>
| Package | Total | Call Graph | 
|---|---|---|
| VA Fileman | 2 | (FILE,UPDATE)^DIE ^DIR | 
| Radiology Nuclear Medicine | 1 | (AUD70,FILEAU)^RAMAINU1 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| CPT(DA,RAX) | ;Ask for CPT Code when the 'Procedure Enter/Edit' option | |
| UPXCM(DA,X) | ;set the 'CONTRAST MEDIA USED?' (#10) field to 'No' if contrast | |
| TRK70CMB(RADFN,RADTI,RACNI,RACMB4) | ;Contrast Medium/Media is used with | |
| PRGCM(DA) | ;Purge contrast media data related to an exam when the user | |
| STUFCM70(DA,RAPRI) | ;If the exam record indicates that a contrast medium | |
| TRKCMB(DA,RACMB4) | ;Contrast Medium/Media is used with this procedure. | |
| TRK70CMA(RADFN,RADTI,RACNI,RATRKCMB) | ;Contrast Medium/Media is used with | |
| TRKCMA(DA,RATRKCMB,RATRKCMA,RACMDIF) | ;Contrast Medium/Media is used with this | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^RADPT - [#70] | TRK70CMB+10, TRK70CMB+11, TRK70CMA+9, TRK70CMA+10, PRGCM+8, PRGCM+10!, STUFCM70+14 | 
| ^RAMIS(71 - [#71] | TRKCMB+8, TRKCMB+9, TRKCMA+8, TRKCMA+9, STUFCM70+13, STUFCM70+16 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| DA | CPT~, CPT+17, TRKCMB~, TRKCMB+8, TRKCMB+9, TRKCMA~, TRKCMA+8, TRKCMA+9, TRKCMA+18, TRKCMA+24 , TRKCMA+29, TRKCMA+38, PRGCM~, PRGCM+8, PRGCM+10, UPXCM~, UPXCM+7, STUFCM70~, STUFCM70+15 | 
| DA(1 | PRGCM+8, PRGCM+10, UPXCM+7, STUFCM70+15 | 
| DA(2 | PRGCM+8, PRGCM+10, UPXCM+7, STUFCM70+15 | 
| DIR | CPT+3~ | 
| DIR(0 | CPT+5* | 
| DIROUT | CPT+3~ | 
| DIRUT | CPT+3~, CPT+4, CPT+5 | 
| DTIME | CPT+9 | 
| DTOUT | CPT+3~ | 
| DUOUT | CPT+3~ | 
| I | TRKCMB+7~*, TRKCMB+8*, TRKCMB+9, TRK70CMB+9~*, TRK70CMB+10*, TRK70CMB+11, TRKCMA+7~*, TRKCMA+8*, TRKCMA+9, TRKCMA+35* , TRKCMA+36, TRK70CMA+8~*, TRK70CMA+9*, TRK70CMA+10, TRK70CMA+32*, TRK70CMA+33, STUFCM70+12~, STUFCM70+13*, STUFCM70+16 | 
| J | TRKCMA+7~, TRKCMA+36*, TRK70CMA+8~, TRK70CMA+33* | 
| K | TRK70CMA+8~*, TRK70CMA+32, TRK70CMA+33*, TRK70CMA+35 | 
| RACMB4 | TRKCMB~, TRKCMB+7*, TRKCMB+9*, TRK70CMB~, TRK70CMB+9*, TRK70CMB+11* | 
| RACMDIF | TRKCMA~, TRKCMA+7*, TRKCMA+13*, TRKCMA+18*, TRKCMA+24*, TRKCMA+29*, TRKCMA+35, TRKCMA+36*, TRKCMA+38 | 
| RACNI | TRK70CMB~, TRK70CMB+10, TRK70CMB+11, TRK70CMA~, TRK70CMA+9, TRK70CMA+10, TRK70CMA+18, TRK70CMA+22, TRK70CMA+26, TRK70CMA+35 , STUFCM70+14 | 
| RAD3 | STUFCM70+12!, STUFCM70+14*, STUFCM70+15, STUFCM70+17! | 
| RADFN | TRK70CMB~, TRK70CMB+10, TRK70CMB+11, TRK70CMA~, TRK70CMA+9, TRK70CMA+10, TRK70CMA+18, TRK70CMA+22, TRK70CMA+26, TRK70CMA+35 , STUFCM70+14 | 
| RADTI | TRK70CMB~, TRK70CMB+10, TRK70CMB+11, TRK70CMA~, TRK70CMA+9, TRK70CMA+10, TRK70CMA+18, TRK70CMA+22, TRK70CMA+26, TRK70CMA+35 , STUFCM70+14 | 
| RAFDA | CPT+3~ | 
| RAFDA(71 | CPT+17* | 
| RAIENS | UPXCM+7*, UPXCM+8, UPXCM+9!, STUFCM70+12!, STUFCM70+15*, STUFCM70+16, STUFCM70+17! | 
| RAPRI | STUFCM70~, STUFCM70+13, STUFCM70+16 | 
| RASFM | UPXCM+7!, UPXCM+9!, STUFCM70+12!, STUFCM70+17! | 
| RASFM( | UPXCM+8*, STUFCM70+16* | 
| RATRKCMA | TRKCMA~, TRKCMA+7*, TRKCMA+9*, TRKCMA+13, TRKCMA+17, TRKCMA+18, TRKCMA+23, TRKCMA+24, TRKCMA+29, TRKCMA+36 , TRKCMA+38, TRK70CMA+8*, TRK70CMA+10*, TRK70CMA+14, TRK70CMA+18, TRK70CMA+22, TRK70CMA+26, TRK70CMA+33, TRK70CMA+35 | 
| RATRKCMB | TRKCMA~, TRKCMA+13, TRKCMA+17, TRKCMA+23, TRKCMA+29, TRKCMA+35, TRKCMA+36, TRK70CMA~, TRK70CMA+14, TRK70CMA+18 , TRK70CMA+22, TRK70CMA+26, TRK70CMA+32, TRK70CMA+33 | 
| RAX | CPT~, CPT+8 | 
| RAYN | CPT+3~*, CPT+4, CPT+9*, CPT+10*, CPT+11*, CPT+12, CPT+14*, CPT+15*, CPT+17 | 
| U | CPT+8, CPT+17, TRKCMB+9, TRK70CMB+11, TRKCMA+9, TRK70CMA+10, STUFCM70+16 | 
| X | CPT+3~, CPT+5!, UPXCM~, UPXCM+8 | 
| Y | CPT+3~, CPT+5!, CPT+8, CPT+17 |