RAIPST3 ;HIRMFO/GJC - Clean-up of the v5.0 environment ;10/9/97 14:40
Source file <RAIPST3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VERSION | ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
|
|
| NUMLIN | ; This subroutine will delete the Number Of Lines field (12)
; and all associated data in the Rad/Nuc Med Reports file (74) |
|
| TCOMNTS | ; This subroutine will delete the Transfer Comment field (150)
; and all associated data from the Examinations Sub-Field (70.03) |
|
| DISTQ | ; This subroutine will delete the following fields from the
; Report Distribution (74.4) file: Hospital Division (5) ; Imaging Location (7), Patient (9) and SSN (10). All data ; associated with these fields will be deleted. |
|
| TIMOUT | ; This subroutine will delete the '*Timeout After How
; Many Second' field from the Imaging Type (79.2) file. ; All data associated with this field will be deleted. |
|
| AOXREF | ; This subroutine will delete corrupted "AO" cross-
; reference data from the Rad/Nuc Med Patient file. ; Only the "AO" cross-reference will be deleted. Data ; in the Rad/Nuc Med Patient file and the Rad/Nuc Med ; Orders file will remain intact. |
| Name | Field # of Occurrence |
|---|---|
| ^DIK | NUMLIN+17, TCOMNTS+26, DISTQ+36, DISTQ+37, DISTQ+38, DISTQ+39, TIMOUT+13 |
| ENKILL^RAXREF | NUMLIN+11, TCOMNTS+16, DISTQ+16, DISTQ+20, DISTQ+24, DISTQ+28, TIMOUT+10 |
| $$NEWCP^XPDUTL | VERSION+5, VERSION+9, VERSION+14, VERSION+20, VERSION+25 |
| $$PARCP^XPDUTL | NUMLIN+4, TCOMNTS+4, DISTQ+7, AOXREF+9 |
| $$UPCP^XPDUTL | NUMLIN+15, TCOMNTS+23, DISTQ+33, AOXREF+27 |
| BMES^XPDUTL | NUMLIN+8, TCOMNTS+8, DISTQ+11 |
| MES^XPDUTL | TIMOUT+7, AOXREF+14 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(70.03 | TCOMNTS+2 |
| ^DD(74 | NUMLIN+2 |
| ^DD(74.4 | DISTQ+4 |
| ^DD(79.2 | TIMOUT+3 |
| ^RA(79.2 - [#79.2] | TIMOUT+8, TIMOUT+9, TIMOUT+11* |
| ^RABTCH(74.4 - [#74.4] | DISTQ+12, DISTQ+13, DISTQ+17*, DISTQ+21*, DISTQ+25*, DISTQ+29* |
| ^RADPT - [#70] | TCOMNTS+9, TCOMNTS+10, TCOMNTS+12, TCOMNTS+13, TCOMNTS+18!, AOXREF+22 |
| ^RADPT("AO" | AOXREF+15, AOXREF+17, AOXREF+19, AOXREF+21, AOXREF+22!, AOXREF+23! |
| ^RAO(75.1 - [#75.1] | AOXREF+23 |
| ^RARPT - [#74] | NUMLIN+9, NUMLIN+10, NUMLIN+12* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | NUMLIN+3~, TCOMNTS+3~, DISTQ+6~, DISTQ+36!, DISTQ+37!, DISTQ+38!, DISTQ+39!, TIMOUT+4~, TIMOUT+13! |
| DA | NUMLIN+3~, NUMLIN+17*, TCOMNTS+3~, TCOMNTS+25*, DISTQ+6~, DISTQ+36*!, DISTQ+37*!, DISTQ+38*!, DISTQ+39*!, TIMOUT+4~ , TIMOUT+13*! |
| DA(1 | NUMLIN+17*, TCOMNTS+25*, DISTQ+36*, DISTQ+37*, DISTQ+38*, DISTQ+39*, TIMOUT+13* |
| DIC | NUMLIN+3~, TCOMNTS+3~, DISTQ+6~, DISTQ+36!, DISTQ+37!, DISTQ+38!, DISTQ+39!, TIMOUT+4~, TIMOUT+13! |
| >> DIFROM | VERSION+2 |
| DIK | NUMLIN+3~, NUMLIN+17*, TCOMNTS+3~, TCOMNTS+25*, DISTQ+6~, DISTQ+36*!, DISTQ+37*!, DISTQ+38*!, DISTQ+39*!, TIMOUT+4~ , TIMOUT+13*! |
| RA1 | NUMLIN+3~, NUMLIN+15*, TCOMNTS+3~, TCOMNTS+23*, DISTQ+6~, DISTQ+33*, AOXREF+8~, AOXREF+27* |
| RA744 | DISTQ+6~, DISTQ+13*, DISTQ+14 |
| RACNI | TCOMNTS+3~, TCOMNTS+11*, TCOMNTS+12*, TCOMNTS+13, TCOMNTS+15, TCOMNTS+18, AOXREF+8~, AOXREF+20*, AOXREF+21*, AOXREF+22 |
| RACNT | NUMLIN+3~, NUMLIN+13*, NUMLIN+14, TCOMNTS+3~, TCOMNTS+21*, TCOMNTS+22, DISTQ+6~, DISTQ+31*, DISTQ+32 |
| RAD0 | NUMLIN+3~, NUMLIN+4*, NUMLIN+9*, NUMLIN+10, NUMLIN+11, NUMLIN+12, NUMLIN+15, DISTQ+6~, DISTQ+7*, DISTQ+12* , DISTQ+13, DISTQ+16, DISTQ+17, DISTQ+20, DISTQ+21, DISTQ+24, DISTQ+25, DISTQ+28, DISTQ+29, DISTQ+33 , TIMOUT+4~, TIMOUT+7*, TIMOUT+8*, TIMOUT+9, TIMOUT+10, TIMOUT+11 |
| RADA | TCOMNTS+3~, TCOMNTS+15*, TCOMNTS+16 |
| RADA(1 | TCOMNTS+15* |
| RADA(2 | TCOMNTS+15* |
| RADFN | TCOMNTS+3~, TCOMNTS+4*, TCOMNTS+9*, TCOMNTS+10, TCOMNTS+12, TCOMNTS+13, TCOMNTS+15, TCOMNTS+18, TCOMNTS+23, AOXREF+8~ , AOXREF+16*, AOXREF+17*, AOXREF+19, AOXREF+21, AOXREF+22, AOXREF+23 |
| RADTI | TCOMNTS+3~, TCOMNTS+10*, TCOMNTS+12, TCOMNTS+13, TCOMNTS+15, TCOMNTS+18, AOXREF+8~, AOXREF+18*, AOXREF+19*, AOXREF+21 , AOXREF+22 |
| RAHD | DISTQ+6~, DISTQ+13*, DISTQ+15, DISTQ+16 |
| RAIL | DISTQ+6~, DISTQ+14*, DISTQ+19, DISTQ+20 |
| RAIPST | VERSION+3~, VERSION+5*, VERSION+9*, VERSION+14*, VERSION+20*, VERSION+25* |
| RALNUM | NUMLIN+3~, NUMLIN+10*, NUMLIN+11, NUMLIN+12 |
| RAORD | AOXREF+8~, AOXREF+9*, AOXREF+15*, AOXREF+17, AOXREF+19, AOXREF+21, AOXREF+22, AOXREF+23, AOXREF+27 |
| RAPAT | DISTQ+6~, DISTQ+14*, DISTQ+23, DISTQ+24 |
| RASEC | TIMOUT+4~, TIMOUT+9*, TIMOUT+10, TIMOUT+11 |
| RASSN | DISTQ+6~, DISTQ+14*, DISTQ+27, DISTQ+28 |
| RATCOM | TCOMNTS+3~, TCOMNTS+13*, TCOMNTS+14, TCOMNTS+16 |
| RATXT | NUMLIN+3~, NUMLIN+8, TCOMNTS+3~, TCOMNTS+8, DISTQ+6~, DISTQ+11, TIMOUT+4~, TIMOUT+7, AOXREF+8~, AOXREF+14 |
| RATXT(1 | NUMLIN+4*, TCOMNTS+4*, DISTQ+7*, TIMOUT+4*, AOXREF+8* |
| RATXT(2 | NUMLIN+5*, TCOMNTS+5*, DISTQ+8*, TIMOUT+5*, AOXREF+10* |
| RATXT(3 | NUMLIN+6*, TCOMNTS+6*, DISTQ+9*, TIMOUT+6*, AOXREF+11* |
| RATXT(4 | NUMLIN+7*, TCOMNTS+7*, DISTQ+10*, AOXREF+12* |
| RATXT(5 | NUMLIN+8*, AOXREF+13* |
| X | NUMLIN+3~, TCOMNTS+3~, DISTQ+6~, TIMOUT+4~ |
| >> XPDABORT | VERSION+2* |
| Y | NUMLIN+3~, TCOMNTS+3~, DISTQ+6~, TIMOUT+4~ |
| >> ZTQUEUED | NUMLIN+14, TCOMNTS+22, DISTQ+32 |
| >> ZTREQ | VERSION+1* |
| Name | Field # of Occurrence |
|---|---|
| $T(VERSION | VERSION+2 |
