RADD2 ;HISC/GJC/CAH-Radiology Data Dictionary Utility Routine ; Feb 11, 2021@11:10:54
Source file <RADD2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Radiology Nuclear Medicine | 8 | RA COMMON PROCEDURE EDIT RA PROCEDURE EDIT RACTRG2 RAMAIN2 RANPRO ^RADPT DEFAULT RADIOPHARMACEUTICALS ^RARPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1(RA71) | ; Input transform for the .01 field (Procedure) for the Rad/Nuc
; Med Common Procedure file i.e, ^RAMIS(71.3 (reworked for RA*5.0*158) ; 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 |
|
| CH | ;this tag was removed w/RA*5.0*175
|
|
| 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 |
|
| 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) |
|
| 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 |
|
| 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' |
|
| PRIDXIXK(DA,X) | ;This subroutine executes the KILL logic for the 'new style' AD cross-
|
|
| AEASSET(RAX,RADA,RAXREF) | ;determine is the examination status of the
|
|
| AEKILL(RADA) | ;execute the KILL logic for the "AE" xref on the
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RA(72 - [#72] | AEASSET+23, AEASSET+29 |
| ^RA(79.2 - [#79.2] | AEASSET+26 |
| ^RADPT - [#70] | AEASSET+24, AEASSET+25, AEKILL+4 |
| ^RADPT("AD" | PRIDXIXK+8! |
| ^RADPT("AE" | AEASSET+31*, AEKILL+5! |
| ^RADPT("AS" | AEASSET+32* |
| ^RAMIS(71 - [#71] | EN1+17, EN1+21, INACOM+7, USUAL+8, RANGE+6 |
| ^RAMIS(71.3 - [#71.3] | INACOM+7 |
| ^RARPT - [#74] | EN2+5 |
| ^VA(200 - [#200] | MEDOSE+6, MEDOSE+7, MEDOSE+8, MEDOSE+10 |
| ^XUSEC("ORELSE" | MEDOSE+9 |
| ^XUSEC("ORES" | MEDOSE+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | PRIDXIXK~, PRIDXIXK+5, PRIDXIXK+6 |
| DA(1 | PRIDXIXK+5, PRIDXIXK+6 |
| DA(2 | PRIDXIXK+5, PRIDXIXK+6 |
| DT | EN1+24, INACOM+8 |
| RA1 | EN2+2~, EN2+3*, EN2+5* |
| RA2 | EN2+2~, EN2+3*, EN2+5*, EN2+6 |
| RA71 | EN1~, EN1+17, EN1+21 |
| RA71("I" | EN1+17*, EN1+24 |
| RA71(0 | EN1+17*, EN1+19, EN1+28 |
| RA7108 | USUAL+8~*, USUAL+9, RANGE+5~, RANGE+6*, RANGE+7 |
| RA71ACTIVE | EN1+24*, EN1+25, EN1+37! |
| RA71ITYPE | EN1+28*, EN1+29, EN1+37! |
| RACNI | PRIDXIXK+4~, PRIDXIXK+5*, PRIDXIXK+8 |
| RAD0 | INACOM~, INACOM+7, INACOM+10 |
| RADA | USUAL~, USUAL+8, RANGE~, RANGE+6, AEASSET~, AEASSET+25, AEASSET+31, AEASSET+32, AEKILL~, AEKILL+4 , AEKILL+5 |
| RADA(1 | USUAL+8, RANGE+6, AEASSET+24, AEASSET+25, AEASSET+31, AEASSET+32, AEKILL+4, AEKILL+5 |
| RADA(2 | AEASSET+24, AEASSET+25, AEASSET+31, AEASSET+32, AEKILL+4, AEKILL+5 |
| RADFN | 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* |
| RAIMGTY | AEASSET+23~, AEASSET+26*, AEASSET+29 |
| >> RAIMGTYI | EN1+15, EN1+28 |
| 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* |
| RAPARENT | EN1+19*, EN1+21, EN1+32, EN1+35, EN1+37! |
| RAPFLG | EN1+21*, EN1+35, EN1+37! |
| RARRY | USUAL+12~, USUAL+14 |
| RARRY(1 | USUAL+12*, USUAL+13* |
| RAUTH | MEDOSE+10~*, MEDOSE+14 |
| RAX | USUAL~, USUAL+7, USUAL+11, PRIDXIXK+4~, PRIDXIXK+5*, PRIDXIXK+8, AEASSET~, AEASSET+23, AEASSET+29, AEASSET+32 |
| RAXREF | AEASSET~, AEASSET+31, AEASSET+32 |
| RAY | MEDOSE~, MEDOSE+6, MEDOSE+7, MEDOSE+8, MEDOSE+9, MEDOSE+10, AEASSET+23~*, AEASSET+24, AEASSET+29, AEASSET+30 |
| RAY2 | AEASSET+23~, AEASSET+24*, AEASSET+26 |
| RAY3 | AEASSET+23~, AEASSET+25*, AEASSET+31, AEKILL+4~*, AEKILL+5 |
| U | AEASSET+23, AEASSET+26, AEASSET+31 |
| X | PRIDXIXK~, PRIDXIXK+5 |
| >> Y | EN2+5 |
