RADD2 ;HISC/GJC/CAH-Radiology Data Dictionary Utility Routine ; Feb 11, 2021@11:10:54
Source file <RADD2.m>
| 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
|
