RANPRO1 ;BPFO/DTG - NEW RADIOLOGY PROCEDURE ; 27 Oct 2016 4:57 PM
Source file <RANPRO1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DESC(RAD0,RAY) | ; Detemine if a procedure qualifies as a descendent for this
; parent procedure. Descendent must be either a detailed or series ; type procedure, must be of same imaging type of the parent, and must ; not be inactive. Called from ^DD(71.1105,.01,0) ; 'RAD0' ien of parent procedure in file 71.11 ; 'RAY' ien of pointed to procedure in file 71 ; Returns: 'RA' i.e, 0:invalid procedure, 1:valid procedure ; RAPARNT: zero node of parent procedure ; RAPARNT(12): i-type of parent procedure ; RADESC : zero node of descendent procedure ; RADESC("I"): inactivation date (if any) of descendent ; RADESC(6) : procedure type of descendent ; RADESC(12) : i-type of descendent procedure |
