RACPTMSC ;HISC/SWM - CPT Mod screen, misc. ;5/30/00 11:02
Source file <RACPTMSC.m>
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|