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 |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RACPTCSV

Package: Radiology Nuclear Medicine

Routine: RACPTCSV


Information

RACPTCSV ;HISC/SWM - CPT Code Set Version ;2/23/04 09:03

Source Information

Source file <RACPTCSV.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 $$FMTE^XLFDT  
Radiology Nuclear Medicine 1 ($$ACTCODE,$$ACTMOD,$$NAMCODE)^RACPTMSC  
VA Fileman 1 EN^DDIOL  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Radiology Nuclear Medicine 4 RACTEX2  RACTEX3  RACTTK5  RACTTK8  

Entry Points

Name Comments DBIA/ICR reference
ACTC() ; find out if CPT CODE is active
; called from file 70.03 field 2's DIC("S")
; Y = ien file 71
; DA(2) = RADFN
; DA(1) = RADTI
FUTCMOD() ; called from input templates [RA EXAM EDIT], [RA STATUS CHANGE]
; IF exam date is future to first Log Date:
; check CPT Modifier when/after that date arrives
; and last Log Date isn't later than Exam Date
; assumes existing RADFN,RADTI,RACNI,RADTE
; RETURNS 0=at least one CPT Mod is inactive, 1=all CPT Mods active
FUTCQ ;
FUTCMODQ ;
FUTC() ; called from input templates [RA EXAM EDIT], [RA STATUS CHANGE]
; IF exam date is future to first Log Date:
; check CPT CODE when/after that date arrives
; and last Log Date isn't later than Exam Date
; assumes existing RADFN,RADTI,RACNI,RADTE
; RETURNS 0=inact.CPT Code, 1=active CPT Code

External References

Name Field # of Occurrence
EN^DDIOL ACTC+53, ACTC+55, ACTC+57, FUTC+23, FUTC+25, FUTC+27, FUTC+28, FUTCMOD+23, FUTCMOD+25, FUTCMOD+28
$$ACTCODE^RACPTMSC ACTC+30, FUTC+19
$$ACTMOD^RACPTMSC FUTCMOD+20
$$NAMCODE^RACPTMSC ACTC+31, FUTC+21
$$FMTE^XLFDT ACTC+21, ACTC+29

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RADPT - [#70] ACTC+15, ACTC+25, FUTC+8, FUTC+10, FUTC+11, FUTC+14, FUTC+15, FUTCMOD+8, FUTCMOD+10, FUTCMOD+11
, FUTCMOD+14, FUTCMOD+15, FUTCMOD+18, FUTCMOD+19
^RAMIS(71 - [#71] ACTC+9, ACTC+20, ACTC+21, ACTC+35, ACTC+46, FUTC+18
^RAO(75.1 - [#75.1] ACTC+35

Label References

Name Line Occurrences
FUTCMODQ FUTCMOD+8, FUTCMOD+10, FUTCMOD+11, FUTCMOD+12, FUTCMOD+13, FUTCMOD+14, FUTCMOD+15, FUTCMOD+16
FUTCQ FUTC+8, FUTC+10, FUTC+11, FUTC+12, FUTC+13, FUTC+14, FUTC+16

Naked Globals

Name Field # of Occurrence
^("I" ACTC+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA(1 ACTC+15, ACTC+25
>> DA(2 ACTC+15, ACTC+25
DT ACTC+20, FUTC+13, FUTCMOD+13
RA0 FUTCMOD+6~, FUTCMOD+20*, FUTCMOD+21
RA1 FUTCMOD+6~, FUTCMOD+18*, FUTCMOD+19
RA71 FUTC+6~, FUTC+18*, FUTC+19, FUTC+21
RA710 ACTC+5~, ACTC+9*, ACTC+10, ACTC+11, ACTC+16, ACTC+25, ACTC+45, ACTC+52
RA813 FUTCMOD+6~
RAACTIV ACTC+5~, ACTC+7*, ACTC+11*, ACTC+16*, ACTC+20*, ACTC+25*, ACTC+30*, ACTC+42, ACTC+43, ACTC+45
, ACTC+46, ACTC+51, ACTC+58
>> RACNI FUTC+8, FUTC+10, FUTC+11, FUTC+14, FUTC+15, FUTCMOD+8, FUTCMOD+10, FUTCMOD+11, FUTCMOD+14, FUTCMOD+15
, FUTCMOD+18, FUTCMOD+19
RACPT ACTC+5~, ACTC+10*, ACTC+11, ACTC+30, ACTC+31
RACPTNAM ACTC+5~, ACTC+31*, ACTC+33, FUTC+6~, FUTC+21*, FUTC+24
RADATE ACTC+5~, ACTC+15*, ACTC+29, ACTC+30, ACTC+31
RADATV ACTC+5~, ACTC+21*, ACTC+23, ACTC+29*, ACTC+33
>> RADFN FUTC+8, FUTC+10, FUTC+11, FUTC+14, FUTC+15, FUTCMOD+8, FUTCMOD+10, FUTCMOD+11, FUTCMOD+14, FUTCMOD+15
, FUTCMOD+18, FUTCMOD+19
RADT0 ACTC+5~, ACTC+15*
>> RADTE FUTC+9, FUTC+19, FUTC+21, FUTCMOD+9, FUTCMOD+20
RADTEX FUTC+6~, FUTC+9*, FUTC+12, FUTC+13, FUTC+16, FUTCMOD+6~, FUTCMOD+9*, FUTCMOD+12, FUTCMOD+13, FUTCMOD+16
>> RADTI FUTC+8, FUTC+10, FUTC+11, FUTC+14, FUTC+15, FUTCMOD+8, FUTCMOD+10, FUTCMOD+11, FUTCMOD+14, FUTCMOD+15
, FUTCMOD+18, FUTCMOD+19
RAI ACTC+6~, ACTC+8*, ACTC+12*, ACTC+13, ACTC+17*, ACTC+18, ACTC+22*, ACTC+23, ACTC+26*, ACTC+27
, ACTC+32*, ACTC+33, ACTC+36*, ACTC+37, ACTC+38*, ACTC+39, ACTC+54*, ACTC+55*
RALOG1 FUTC+6~, FUTC+10*, FUTC+11*, FUTC+12, FUTCMOD+6~, FUTCMOD+10*, FUTCMOD+11*, FUTCMOD+12
RALOGL FUTC+6~, FUTC+14*, FUTC+15*, FUTC+16, FUTCMOD+6~, FUTCMOD+14*, FUTCMOD+15*, FUTCMOD+16
RAMODSTR FUTCMOD+6~, FUTCMOD+24
RAMSG ACTC+5~, ACTC+52*, ACTC+53, ACTC+55*, ACTC+56*, ACTC+57, FUTC+6~, FUTC+22*, FUTC+23, FUTC+24*
, FUTC+25, FUTC+26*, FUTC+27, FUTCMOD+6~, FUTCMOD+22*, FUTCMOD+23, FUTCMOD+24*, FUTCMOD+25
>> RAOPT("REG" ACTC+35, ACTC+51
>> RAORDS(1 ACTC+35
>> RAPRC ACTC+51
>> RAPROCI ACTC+51
RARET FUTC+6~, FUTC+7*, FUTC+19*, FUTC+20, FUTCQ+1, FUTCMOD+6~, FUTCMOD+7*, FUTCMOD+21*, FUTCMOD+28, FUTCMODQ+1
RATXT ACTC+6~, ACTC+43
RATXT( ACTC+13*, ACTC+18*, ACTC+23*, ACTC+27*, ACTC+33*, ACTC+37*, ACTC+39*, ACTC+55
RAX ACTC+6~, FUTC+6~, FUTC+8*, FUTC+18, FUTCMOD+6~, FUTCMOD+19*, FUTCMOD+20
U ACTC+10, ACTC+11, ACTC+15, ACTC+16, ACTC+21, ACTC+25, ACTC+31, ACTC+35, ACTC+46, ACTC+52
, FUTC+18, FUTC+21
>> X ACTC+45, ACTC+46, ACTC+51
>> Y ACTC+9, ACTC+20, ACTC+21, ACTC+46, ACTC+51
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All