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 |