©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
RACPTCSV ;HISC/SWM - CPT Code Set Version ;2/23/04 09:03
Source file <RACPTCSV.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 1 | $$FMTE^XLFDT |
| Radiology Nuclear Medicine | 1 | ($$ACTCODE,$$ACTMOD,$$NAMCODE)^RACPTMSC |
| VA Fileman | 1 | EN^DDIOL |
| Package | Total | Caller Graph |
|---|---|---|
| Radiology Nuclear Medicine | 4 | RACTEX2 RACTEX3 RACTTK5 RACTTK8 |
| 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 |
| 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 |
| 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 |
| Name | Field # of Occurrence |
|---|---|
| ^("I" | ACTC+20 |
| >> | 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 |