©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RAMIS(71 - [#71] | DESC+14, DESC+17, DESC+19 |
| ^RAMRPF(71.11 - [#71.11] | DESC+14, DESC+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | DESC+20 |
| RA | DESC+15~*, DESC+21*, DESC+22 |
| RAD0 | DESC~, DESC+13, DESC+14, DESC+16 |
| RADESC | DESC+15~, DESC+17*, DESC+18 |
| RADESC("I" | DESC+19*, DESC+20 |
| RADESC(12 | DESC+18*, DESC+21 |
| RADESC(6 | DESC+17*, DESC+21 |
| RAI | DESC+15~, DESC+20*, DESC+21 |
| RAPARNT | DESC+15~, DESC+16* |
| RAPARNT(12 | DESC+16*, DESC+21 |
| RAY | DESC~, DESC+13, DESC+14, DESC+17, DESC+19 |
| U | DESC+16, DESC+17, DESC+18, DESC+21 |