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

Call Graph Total: 4

Package Total Call Graph
CPT HCPCS Codes 2 $$CPT^ICPTCOD  ($$MOD,$$MODP)^ICPTMOD  
VA FileMan 2 EN^DDIOL  (FILE,UPDATE)^DIE  

Caller Graph

Caller Graph Total: 43

Package Total Caller Graph
Radiology Nuclear Medicine 43 DEFAULT CPT MODIFIERS(LOC)  DEFAULT CPT MODIFIERS(PROC)  EXAMINATIONS  RACPT1  RACPTCSV  RACTRG2  RADD1  RADRPT1A  
RADRPT2A  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  

Entry Points

Name Comments DBIA/ICR reference
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
SET ; use Rad vars if available
SET23
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
WARN
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
NAMCODE(RA1,RA2) ;outputs flds #.01 and #2 of CPT record
; RA1 = CPT CODE, internal or external
; RA2 = date to check CPT Code
BASICMOD(RA1,RA2) ; outputs basic modifier info
; RA1 = CPT MODIFIER, internal is used here
; RA2 = date to check CPT Modifier
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
SETDEFS ; set default CPT Modifiers, called by [RA REGISTER]
; 1st choice, defaults from file 71
; 2nd choice, defaults from file 79.1
LOOP1
DISCMOD ; display existing CPT Modifiers
LOOP2
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
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
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]
EHDP ; EXECUTABLE HELP for DEFAULT CPT MODIFIERS (PROC)
EHDL ; EXECUTABLE HELP for DEFAULT CPT MODIFIERS (LOC)
WARNLOC

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:
    • DW+12
Routine Call
  • DIE
  • Line Location:
    • LOOP1+9

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