Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls