RADD1 ;HISC/FPT-Radiology Utility Routine ;6/2/98 16:17
Source file <RADD1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SECXREF | ; sets/kills 'ARES' & 'ASTF' x-refs for secondary resident/staff rads
; called from ^DD(74,5 |
|
| KILL | ||
| SCDTC | ; status change date/time check
; called from ^DD(70.05,.01 ; if X is a date/time prior to the exam date/time, then set Y=0. ; if X is a over a minute in the future, then set Y=0. ; if X is missing the time portion, then set Y=0. |
|
| PDC() | ; do not enter secondary into primary diagnostic code field
; called from ^DD(70.03,13,0) ; do not select inactive diagnostic code 12/23/96 |
|
| SDC() | ; do not enter primary into secondary diagnostic code field
; called from ^DD(70.14,.01,0) ; do not select inactive diagnostic code 12/23/96 |
|
| SDC2 | ;
|
|
| SDC3 | ;
|
|
| NODEL | ; Do not permit deletion of the PRIMARY DIAGNOSTIC CODE (70.03,
; 13), PRIMARY INTERPRETING RESIDENT (70.03,12) or PRIMARY ; INTERPRETING STAFF (70.03,15) if a SECONDARY DIAGNOSTIC CODE ; multiple (70.03,13.1) is associated with the exam record. ; ; P94: WRITE removed; EN^DDIOL added |
|
| PRCCPT() | ; Displays the procedure type and CPT code if applicable.
; This code is called from ^DD(71,0,"ID","WRITE") and rtn RAPROD |
|
| INDTCHK(RADA) | ; Cannot inactivate a procedure if it is a common procedure
; with a valid sequence number. Code resides in ^DD(71,100,0)! ; 'RADA' is the ien of the procedure in file 71. if this procedure is ; a common procedure i.e, $D(^RAMIS(71.3,"B",RADA)) inform the user that ; the sequence number must be deleted. This relies on the "AA" xref in ; the Common Proc. file for the Sequence # fld (#3) 0 node, 4th pce. |
|
| CPTCHK(RADA) | ; Check if the CPT code is inactive nationally.
; 'RADA' assume the value of +Y passed from the input xform, ^DD(71,9,0) ; quit if CPT code is active |
|
| VALADM(RAD0,Y,RADT,RAUTH) | ;edit validation
|
|
| VOL(RAX) | ; Validate the format of the value input for volume.
; RAX must be a number followed by a space then text -or- ; a number followed by text ; Input Variable : 'RAX'- user's input ; Output Variable: null if 'RAX' erroneous, formatted version of 'RAX' |
