Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: RAIPST3

Package: Radiology Nuclear Medicine

Routine: RAIPST3


Information

RAIPST3 ;HIRMFO/GJC - Clean-up of the v5.0 environment ;10/9/97 14:40

Source Information

Source file <RAIPST3.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 ($$NEWCP,$$PARCP,$$UPCP,BMES,MES)^XPDUTL  
Radiology Nuclear Medicine 1 ENKILL^RAXREF  
VA FileMan 1 ^DIK  

Entry Points

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.

External References

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

Global Variables Directly Accessed

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*

Label References

Name Line Occurrences
VERSION VERSION+2

Local Variables

Legend:

>> 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*

Marked Items

Name Field # of Occurrence
$T(VERSION VERSION+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All