GMRARAD ;HIRMFO/RM-Radiology\ART Interface Routine ;12/8/04 08:03
Source file <GMRARAD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RADD(DFN,OH,YN,VER) | ; THIS EXTRINSIC FUNCTION WILL ADD A CONTRAST MEDIA
; ALLERGY TO FILE 120.8 FOR PATIENT WITH IEN DFN. INPUT VARIABLES: ; DFN = IEN IN FILE 2 OF PATIENT ; OH = 'o' FOR OBSERVED, 'h' FOR HISTORICAL, OR ; 'p' IF THE UTILITY SHOULD PROMPT FOR OBSERVED/HISTORICAL. ; YN = 'Y' MEANS CONTRAST RXN, 'N' MEANS NO CONTRAST RXN, ; 'U' MEANS UNKNOWN CONTRAST RXN, "" MEANS CONTRAST RXN DELETED ; VER (optional) = '1' MEANS DATA WILL BE AUTOVERIFIED, ; '0' MEANS DATA WILL NOT BE VERIFIED, ; '$D MEANS USE ART AUTOVERIFICATION CHECKS. ; FUNCTION RETURNS THE IEN OF NEW 120.8 ENTRY, OR -1 IF NOT ADDED. |
|
| RETRA | ||
| RACHK(DFN,YN) | ; This function will be called from input transform on the
; .05 field of file 70. If the patient (DFN) has allergies in ART ; to contrast media, and the user is changing the .05 field to ; indicate NO contrast media allergy (YN), this function will prompt ; the user if this change is correct. ; Input variables: DFN=Patient IEN in file 2. ; YN=new value of the .05 field. ; Return value: 1 if X should be killed, 0 if not |
|
| RALLG(DA,ERR) | ; This function will determine if entry DA in 120.8 represents
; a contrast media allergy that is not entered in error. ; Input variable: DA=entry in file 120.8 ; ERR(optional)=if set to 0 do not check for E/E ; Return value: 1 if entry is contrast media allergy, 0 if not |
|
| OTHRAD(DFN,DA) | ; This function will determine if another entry for patient
; (DFN) exists other than entry DA that is also a Radiological ; allergy. ; Input Variables: DFN=IEN of patient, DA=entry in 120.8 ; Function Returns: 1 if another entry exists, else returns 0 |
| FileNo | Call Tags |
|---|---|
| ^GMR(120.8 - [#120.8] | Classic Fileman Calls |
