©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
RADD2 ;HISC/GJC/CAH-Radiology Data Dictionary Utility Routine ;5/14/97 10:31
Source file <RADD2.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | EN^DDIOL FILE^DIE |
| Kernel | 1 | MES^XPDUTL |
| Order Entry Results Reporting | 1 | NOTE^ORX3 |
| Package | Total | Caller Graph |
|---|---|---|
| Radiology Nuclear Medicine | 7 | ^RARPT DEFAULT RADIOPHARMACEUTICALS RACTOE4 RACTQE2 RACTTK8 RAMAIN2 ^RAO(75.1 |
| IHS VA Support Files | 1 | DEFAULT RADIOPHARMACEUTICALS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| USUAL(RADA,RAX) | ; To insure that the USUAL DOSE value falls between the
; HIGH ADULT DOSE and the LOW ADULT DOSE. ; Input Variables: ; RADA -> top level/sub-file level IEN's ; RAX -> value input by the user ; Output Variable: $S(1: value is accepted, 0: value not accepted) |
|
| EN1(RAX,RAY) | ; Input transform for the .01 field (Procedure) for the Rad/Nuc
; Med Common Procedure file i.e, ^RAMIS(71.3 ; Procedure must not have an inactive date before today in file 71 ; Procedure in file 71 must have same imaging type as the one ; selected before editing this record in file 71.3 ; If 'Parent' type procedure, it must have at least 1 descendent ; 'RAX' is the value of the .01 field in ^RAMIS(71.3, ; 'RAY' are ien's of entries in ^RAMIS(71, |
|
| RANGE(RADA) | ; Determine the range in which the 'USUAL DOSE' must fall
; Input Variables: ; RADA -> top level/sub-file level IEN's ; Output Variable: ; RANGE -> the range in which the 'USUAL DOSE' must fall |
|
| CH(RAY,RAX) | ; This subroutine will fire off the 'Radiology Request Cancel
; /Hold' notification as defined in the 'OE/RR NOTIFICATIONS' file. ; Only if request is either cancelled or held. Called from the set ; logic of the 'ACHN' xref in ^DD(75.1,5) field definition. |
|
| MEDOSE(RAY,RADT) | ; Determine if this individual (RAY) is authorized to
; administer medications. Called from ^DD(70.15,4,12.1) ; Input : RAY (pnt to 200) - the individual being checked at the moment ; RADT - Date of the examination ; Output: '1' - user is authorized to administer medications, else '0' |
|
| INACOM(RAD0) | ; Check inactive date on the Rad/Nuc Med Procedure file (71)
; for the Common Procedure before setting our inactive procedure to ; active. Called from the 'RA COMMON PROCEDURE EDIT' input template. ; Option: Common Procedure Enter/Edit (13^RAMAIN2) ; Input : RAD0-ien of Rad/Nuc Med Common Procedure ; Output: if Common cannot be re-activated, reset the 'Inactive' field ; to 'yes'. |
|
| EN2() | ; called from ^DD(74,0,"ID","WRITE")
; display long case #'s in the same print set as current record |
|
| PRIDXIXK(DA,X) | ;This subroutine executes the KILL logic for the 'new style' AD cross-
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RADPT("AD" | PRIDXIXK+8! |
| ^RAMIS(71 - [#71] | EN1+9, CH+16, INACOM+7, USUAL+8, RANGE+6 |
| ^RAMIS(71.3 - [#71.3] | INACOM+7 |
| ^RAO(75.1 - [#75.1] | CH+14 |
| ^RARPT - [#74] | EN2+5 |
| ^VA(200 - [#200] | MEDOSE+6, MEDOSE+7, MEDOSE+8, MEDOSE+10 |
| ^XUSEC("ORELSE" | MEDOSE+9 |
| ^XUSEC("ORES" | MEDOSE+9 |
| Name | Field # of Occurrence |
|---|---|
| ^("I" | EN1+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | CH+10~ |
| C | CH+10~ |
| D | CH+10~ |
| D0 | CH+10~ |
| DA | CH+10~, PRIDXIXK~, PRIDXIXK+5, PRIDXIXK+6 |
| DA(1 | PRIDXIXK+5, PRIDXIXK+6 |
| DA(2 | PRIDXIXK+5, PRIDXIXK+6 |
| DC | CH+10~ |
| DDER | CH+10~ |
| DE | CH+10~ |
| DG | CH+10~ |
| DH | CH+10~ |
| DI | CH+10~ |
| DIC | CH+10~ |
| DIE | CH+10~ |
| DIEDA | CH+10~ |
| DIEL | CH+10~ |
| DIFLD | CH+10~ |
| DIP | CH+10~ |
| DIW | CH+10~ |
| DIWT | CH+10~ |
| DK | CH+11~ |
| DL | CH+11~ |
| DM | CH+11~ |
| DN | CH+11~ |
| DP | CH+11~ |
| DQ | CH+11~ |
| DR | CH+11~ |
| DT | EN1+9, INACOM+8 |
| DU | CH+11~ |
| DV | CH+11~ |
| DW | CH+11~ |
| I | CH+11~ |
| J | CH+11~ |
| N | CH+11~ |
| ORBPMSG | CH+11~, CH+17* |
| ORBXDATA | CH+11~, CH+18* |
| ORIFN | CH+11~, CH+18* |
| ORNOTE | CH+11~ |
| ORNOTE(26 | CH+18* |
| ORVP | CH+11~, CH+16* |
| RA1 | EN2+2~, EN2+3*, EN2+5* |
| RA2 | EN2+2~, EN2+3*, EN2+5*, EN2+6 |
| RA7108 | USUAL+8~*, USUAL+9, RANGE+5~, RANGE+6*, RANGE+7 |
| RA751 | CH+12~, CH+14*, CH+15, CH+16, CH+18 |
| RACNI | PRIDXIXK+4~, PRIDXIXK+5*, PRIDXIXK+8 |
| RAD0 | INACOM~, INACOM+7, INACOM+10 |
| RADA | USUAL~, USUAL+8, RANGE~, RANGE+6 |
| RADA(1 | USUAL+8, RANGE+6 |
| RADFN | CH+12~, CH+15*, CH+16, CH+18, PRIDXIXK+4~, PRIDXIXK+5*, PRIDXIXK+8 |
| RADT | MEDOSE~, MEDOSE+14 |
| RADTI | PRIDXIXK+4~, PRIDXIXK+5*, PRIDXIXK+8 |
| RAFDA | INACOM+9~, PRIDXIXK+4~ |
| RAFDA( | INACOM+10*, PRIDXIXK+6* |
| RAH | USUAL+8~, USUAL+9*, USUAL+10*, USUAL+11, USUAL+13, RANGE+5~, RANGE+7*, RANGE+8*, RANGE+9 |
| RAIENS | PRIDXIXK+4~, PRIDXIXK+6* |
| >> RAIMGTYI | EN1+8, EN1+9 |
| RAINA | INACOM+7~*, INACOM+8 |
| RAL | USUAL+8~, USUAL+9*, USUAL+10*, USUAL+11, USUAL+13, RANGE+5~, RANGE+7*, RANGE+8*, RANGE+9 |
| RAMSG | INACOM+9~, INACOM+14 |
| RAMSG(1 | INACOM+10* |
| RAMSG(2 | INACOM+11* |
| RAMSG(3 | INACOM+12* |
| RAMSG(4 | INACOM+13* |
| RAMSG(5 | INACOM+14* |
| RAMSG(6 | INACOM+14* |
| RANME | CH+12~ |
| RAOIFN | CH+12~, CH+15*, CH+18 |
| RAOLP | CH+12~ |
| RAOPTN | CH+12~ |
| RAORDS | CH+12~ |
| RAOREA | CH+12~ |
| RAOSTS | CH+12~ |
| RAPARENT | CH+12~ |
| RAPRC | CH+13~, CH+16*, CH+17 |
| RARRY | USUAL+12~, USUAL+14 |
| RARRY(1 | USUAL+12*, USUAL+13* |
| RAUTH | MEDOSE+10~*, MEDOSE+14 |
| RAX | EN1~, CH~, CH+9, CH+17, USUAL~, USUAL+7, USUAL+11, PRIDXIXK+4~, PRIDXIXK+5*, PRIDXIXK+8 |
| RAXIT | CH+13~ |
| RAY | EN1~, EN1+9, CH~, CH+9, CH+14, CH+15, MEDOSE~, MEDOSE+6, MEDOSE+7, MEDOSE+8 , MEDOSE+9, MEDOSE+10 |
| U | EN1+9 |
| X | CH+13~, PRIDXIXK~, PRIDXIXK+5 |
| Y | CH+13~, EN2+5 |