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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RACPTMSC

Package: Radiology Nuclear Medicine

Routine: RACPTMSC


Information

RACPTMSC ;HISC/SWM - CPT Mod screen, misc. ;5/30/00 11:02

Source Information

Source file <RACPTMSC.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
DRG Grouper 2 $$CPT^ICPTCOD  ($$MOD,$$MODP)^ICPTMOD  
VA Fileman 2 EN^DDIOL  (FILE,UPDATE)^DIE  

Caller Graph

Caller Graph Total: 48

Package Total Caller Graph
Radiology Nuclear Medicine 47 DEFAULT CPT MODIFIERS(LOC)  DEFAULT CPT MODIFIERS(PROC)  EXAMINATIONS  RACPT1  RACPTCSV  RACTEX2  RACTEX3  RACTRG2  
RACTRG3  RACTRG5  RACTTK2  RACTTK5  RADD1  RAFLM  RAFLM1  RAHLR  
RAHLR1A  RAHLRPT1  RAHLRPTT  RAHLRU  RAHLRU1  RAMAINP1  RAO7CMP  RAO7MFN  
RAO7NEW  RAO7PC1A  RAO7SCH  RAORD2  RAORD5  RAPCE  RAPCE2  RAPERR  
RAPINFO  RAPMW  RAPMW2  RAPROD  RART3  RARTR3  RASTRPT  RASTRPT1  
RAUTL0  RAUTL15  RAUTL2  RAWKL1  RAWKLU  RAWKLU2  RAWRVUP  
IHS VA Support Files 1 DEFAULT CPT MODIFIERS(PROC)  

Entry Points

Name Comments DBIA/ICR reference
SET23
SET ; use Rad vars if available
SDP(Y) ; SCREEN DEFAULT cpt mod for a PROCEDURE
; called from file 71's field 135's screen
; Y = ien of file 81.3
; RACPT= CPT ien of this procedure
; RAX = screen's outcome, 0=failed
DISCMOD ; display existing CPT Modifiers
EHDP ; EXECUTABLE HELP for DEFAULT CPT MODIFIERS (PROC)
EHDL ; EXECUTABLE HELP for DEFAULT CPT MODIFIERS (LOC)
ACTCODE(RA1,RA2) ;outputs CPT code active status
; output=1 active, =0 inactive
; RA1 = CPT CODE, internal or external
; RA2 = date to check CPT Code
SCRN(Y) ;screen entry of cpt mod
; called from file 70.03's field 135's screen
; Y = ien of file 81.3
; RACPT= CPT ien of this exam's procedure
; RADT = exam date
; RAX = screen's outcome, 0=failed
WARN
LOOP2
BASICMOD(RA1,RA2) ; outputs basic modifier info
; RA1 = CPT MODIFIER, internal is used here
; RA2 = date to check CPT Modifier
WARNLOC
NAMCODE(RA1,RA2) ;outputs flds #.01 and #2 of CPT record
; RA1 = CPT CODE, internal or external
; RA2 = date to check CPT Code
SETDEFS ; set default CPT Modifiers, called by [RA REGISTER]
; 1st choice, defaults from file 71
; 2nd choice, defaults from file 79.1
DW ; del exam's cpt mods and warn of proc mods
; called from file 70.03's field 2's Mumps xref for kill
; Y = ien of file 81.3
LOOP1
ACTMOD(RA1,RA2) ; outputs active status of CPT modifier
; RA1 = CPT MODIFIER, internal is used here
; RA2 = date to check CPT Modifier
; output:
; RA3 = 0 is inactive, >0 is active
; RAMODSTR returned from call to MOD^ICPTMOD
DISDCM ;display existing Default CPT Modifers for procedure or location
; file 71 used if called from [RA PROCEDURE EDIT]
; file 79.1 used if called from [RA LOCATION PARAMETERS]
SDL(Y) ; SCREEN DEFAULT cpt mod for a LOCATION
; called from file 79.1's field 135's screen
; Y = ien of file 81.3
; RAX = screen's outcome; 0=failed

External References

Name Field # of Occurrence
EN^DDIOL EHDP+6, EHDL+13, WARNLOC+6
FILE^DIE DW+12
UPDATE^DIE LOOP1+9
$$CPT^ICPTCOD ACTCODE+5, NAMCODE+4
$$MOD^ICPTMOD BASICMOD+3, ACTMOD+7
$$MODP^ICPTMOD SCRN+13, SDP+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"All previous CPT Modifier(s) are deleted.",!
  • Line Location: DW+13
Function Call: WRITE
  • Prompt: !!?5,"Current Procedure Modifier(s) :"
  • Line Location: WARN+2
Function Call: WRITE
  • Prompt: !?10,$P($G(^RAMIS(71.2,+^(RAX,0),0)),U)
  • Line Location: WARN+3
Function Call: WRITE
  • Prompt: !!,$C(7),"** Unable to enter default CPT Modifier ",$P(RA3,U,2)," (",$P($P(RA3,U,3)," "),") **",!
  • Line Location: LOOP1+11
Function Call: WRITE
  • Prompt: !?6,$P(RA3,"^",2),?9,"(",$P($P(RA3,"^",3)," "),") (",$S($P(RA3,"^",7)=1:"",1:"in"),"active)"
  • Line Location: LOOP2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DISDCM+6
Function Call: WRITE
  • Prompt: !?6,$P(RA3,"^",2),?9,"(",$P($P(RA3,"^",3)," "),")"
  • Line Location: DISDCM+7
Routine Call
  • DIE
  • Line Location:
    • LOOP1+9
Routine Call
  • DIE
  • Line Location:
    • DW+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(79.1 - [#79.1] SETDEFS+4
^RADPT - [#70] SET23, DW+8, DW+10, WARN, WARN+3, SETDEFS+7, DISCMOD+3, LOOP2
^RAMIS(71 - [#71] SCRN+12, SETDEFS+4, SDP+6
^RAMIS(71.2 - [#71.2] WARN+3

Label References

Name Line Occurrences
$$ACTMOD SDL+5
$$BASICMOD LOOP1+5, LOOP2+1, DISDCM+7
LOOP1 LOOP1+6, LOOP1+7, LOOP1+10, LOOP1+12
LOOP2 LOOP2+5
SET SCRN+8, DW+5
SET23 SET+1
WARN DW+8
WARNLOC DISDCM+5, EHDL+1

Naked Globals

Name Field # of Occurrence
^( WARN+3, LOOP2, DISDCM+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 SET+2, SDP+6
>> D1 SET+2
>> D2 SET+2
>> DA DISDCM+3, DISDCM+6, DISDCM+7
>> DIE DISDCM+3, DISDCM+5, DISDCM+6, DISDCM+7
DT LOOP1+5, LOOP2+1, SDP+7, SDL+5, DISDCM+7
RA ACTCODE+4~, ACTCODE+5*, ACTCODE+6, NAMCODE+3~, NAMCODE+4*, NAMCODE+5*, NAMCODE+6*, NAMCODE+7
RA1 SCRN+6~, SET+1*, SET+2*, SET+3, SET23, DW+3~, DW+8, DW+10, DW+11, WARN
, WARN+3, ACTCODE~, ACTCODE+5, NAMCODE~, NAMCODE+4, BASICMOD~, BASICMOD+3, ACTMOD~, ACTMOD+7, SETDEFS+6~
, SETDEFS+8*, LOOP1+1*, LOOP1+2, DISCMOD+2~*, DISCMOD+3, LOOP2*, SDP+5~, DISDCM+4~*, DISDCM+6, DISDCM+7*
RA2 SCRN+6~, SET+1*, SET+2*, SET+3, SET23, DW+3~, DW+8, DW+10, DW+11, WARN
, WARN+3, ACTCODE~, ACTCODE+5, NAMCODE~, NAMCODE+4, BASICMOD~, BASICMOD+3, ACTMOD~, ACTMOD+7, SETDEFS+6~
, SETDEFS+8*, LOOP1+8, DISCMOD+2~, LOOP2*, LOOP2+1, SDP+5~, DISDCM+4~, DISDCM+7*
RA3 SCRN+6~, SET+1*, SET+2*, SET+3, SET23, DW+3~, DW+8, DW+10, DW+11, WARN
, WARN+3, ACTMOD+6~, ACTMOD+8*, ACTMOD+9*, ACTMOD+10*, ACTMOD+11, SETDEFS+6~, LOOP1+2*, LOOP1+5*, LOOP1+6
, LOOP1+7, LOOP1+8, LOOP1+11, DISCMOD+2~, LOOP2+1*, LOOP2+2*, LOOP2+4, SDP+5~, DISDCM+4~, DISDCM+7*
RA7002 SCRN+6~, SCRN+7*, SCRN+9, SCRN+11, SET23*, DW+3~, DW+4*, DW+6
RA7003 SCRN+6~, SCRN+7*, SCRN+10, SCRN+12, SET23*, DW+3~, DW+4*, DW+7
>> RACNI SET+1, SETDEFS+7, SETDEFS+8, DISCMOD+1, DISCMOD+3, LOOP2
RACPT SCRN+6~, SCRN+12*, SCRN+13, SDP+5~, SDP+6*, SDP+7
>> RADFN SET+1, SETDEFS+7, SETDEFS+8, DISCMOD+1, DISCMOD+3, LOOP2
RADT SCRN+6~, SCRN+11*, SCRN+13
>> RADTI SET+1, SETDEFS+7, SETDEFS+8, DISCMOD+1, DISCMOD+3, LOOP2
RAFDA SETDEFS+6~, LOOP1!
RAFDA( LOOP1+8*
RAIEN SETDEFS+6~, LOOP1!
>> RAMLC SETDEFS+4
RAMODSTR ACTMOD+7*, ACTMOD+8, ACTMOD+10, SDL+4~
RAMSG SETDEFS+6~, LOOP1!, LOOP1+10
>> RAPRI SETDEFS+4
RAROOT DW+3~, SETDEFS+3~, SETDEFS+4*, SETDEFS+5, LOOP1+1, LOOP1+2
RAROOT( DW+11*
RATXT EHDP+1~, EHDP+6, EHDL+2~, EHDL+13, WARNLOC~, WARNLOC+6
RATXT(1 EHDP+2*, EHDL+3*, WARNLOC+1*
RATXT(10 EHDL+12*
RATXT(2 EHDP+3*, EHDL+4*, WARNLOC+2*
RATXT(3 EHDP+4*, EHDL+5*, WARNLOC+3*
RATXT(4 EHDP+5*, EHDL+6*, WARNLOC+4*
RATXT(5 EHDL+7*, WARNLOC+5*
RATXT(6 EHDL+8*
RATXT(7 EHDL+9*
RATXT(8 EHDL+10*
RATXT(9 EHDL+11*
RAX SCRN+6~, SCRN+13*, SCRN+14, DW+3~, DW+9*, DW+10*, DW+11, WARN+1*, WARN+3*, SDP+5~
, SDP+7*, SDP+8, SDL+4~, SDL+5*, SDL+6
U SCRN+11, SCRN+12, WARN+3, ACTMOD+10, LOOP1+7, LOOP1+8, LOOP1+11, SDP+6
Y SCRN~, SCRN+13, SDP~, SDP+7, SDL~, SDL+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All