RAMAINU1 ;HISC/GJC-Radiology Utility File Maintenance (utility)
Source file <RAMAINU1.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 2 | UPDATE^DIE $$EXTERNAL^DILFD |
Kernel | 1 | $$NOW^XLFDT |
Radiology Nuclear Medicine | 1 | UPXCM^RAMAINU |
Name | Comments | DBIA/ICR reference |
---|---|---|
CMINTEG(DA,X) | ;ensure data consistency between the 'CONTRAST MEDIA USED' &
|
|
AUD70(RADFN,RADTI,RACNI,RATRKCMB) | ;File the 'when, where, and who' data
|
|
UPPCM(DA,X) | ;Check that if contrast media data is associated with this
|
|
FILEAU(RAD0,RATRKCMB) | ;File the 'when, where, and who' data when the contrast
|
|
XCMINTEG(DA) | ;ensure data consistency between the 'CONTRAST MEDIA USED' &
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RADPT - [#70] | AUD70+7, XCMINTEG+5, XCMINTEG+7, XCMINTEG+11, XCMINTEG+12 |
^RAMIS(71 - [#71] | FILEAU+4, CMINTEG+5, CMINTEG+8, CMINTEG+9 |
Name | Line Occurrences |
---|---|
UPPCM | CMINTEG+13, CMINTEG+18 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | UPPCM~, UPPCM+10, CMINTEG~, CMINTEG+5, CMINTEG+8, CMINTEG+9, CMINTEG+13, CMINTEG+18, XCMINTEG~, XCMINTEG+5 , XCMINTEG+7, XCMINTEG+11, XCMINTEG+12, XCMINTEG+16, XCMINTEG+21 |
DA(1 | XCMINTEG+5, XCMINTEG+7, XCMINTEG+11, XCMINTEG+12 |
DA(2 | XCMINTEG+5, XCMINTEG+7, XCMINTEG+11, XCMINTEG+12 |
DUZ | FILEAU+12, AUD70+16 |
RACM470 | XCMINTEG+7*, XCMINTEG+8, XCMINTEG+18, XCMINTEG+23! |
RACM471 | CMINTEG+5*, CMINTEG+6, CMINTEG+15, CMINTEG+20! |
RACNI | AUD70~, AUD70+7, AUD70+13 |
RAD0 | FILEAU~, FILEAU+4, FILEAU+10, FILEAU+11, FILEAU+12 |
RAD1 | FILEAU+4*, FILEAU+9!, FILEAU+10, FILEAU+11, FILEAU+12, FILEAU+13! |
RAD3 | AUD70+7*, AUD70+12!, AUD70+13, AUD70+17! |
RADFN | AUD70~, AUD70+7, AUD70+13 |
RADTI | AUD70~, AUD70+7, AUD70+13 |
RAI | CMINTEG+8*, CMINTEG+9, CMINTEG+13!, XCMINTEG+10*, XCMINTEG+11*, XCMINTEG+12, XCMINTEG+16! |
RAI(0 | CMINTEG+9*, CMINTEG+10, XCMINTEG+12*, XCMINTEG+13 |
RAIENS | AUD70+13*, AUD70+14, AUD70+15, AUD70+16, AUD70+17! |
RASFM | FILEAU+13!, AUD70+17!, UPPCM+10!, UPPCM+11! |
RASFM( | FILEAU+10*, FILEAU+11*, FILEAU+12*, AUD70+14*, AUD70+15*, AUD70+16* |
RASFM(71 | UPPCM+10* |
RATRKCMB | FILEAU~, FILEAU+9, FILEAU+11, AUD70~, AUD70+12, AUD70+15 |
RAXCM0 | XCMINTEG+5*, XCMINTEG+6, XCMINTEG+8, XCMINTEG+18, XCMINTEG+23! |
RAXCMP | XCMINTEG+6*, XCMINTEG+9, XCMINTEG+19, XCMINTEG+23! |
U | CMINTEG+6, CMINTEG+7, CMINTEG+10, CMINTEG+15, CMINTEG+16, XCMINTEG+6, XCMINTEG+8, XCMINTEG+13, XCMINTEG+18 |
X | UPPCM~, UPPCM+10, CMINTEG~, CMINTEG+6, CMINTEG+7, CMINTEG+15, CMINTEG+16 |