©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
GMRARAD ;HIRMFO/RM-Radiology\ART Interface Routine ;12/8/04 08:03
Source file <GMRARAD.m>
| Package | Total | Call Graph |
|---|---|---|
| Adverse Reaction Tracking | 3 | (CHKEXAL,NKADD)^GMRARAD0 $$PSCHK^GMRARAD1 $$VFY^GMRASIGN |
| Kernel | 3 | ^%ZTLOAD ($$DT,$$HTFM)^XLFDT $$LOW^XLFSTR |
| VA Fileman | 2 | IX1^DIK ^DIR |
| National Drug File | 1 | IEN^PSN50P65 |
| Package | Total | Caller Graph |
|---|---|---|
| Radiology Nuclear Medicine | 3 | EXAMINATIONS RACTEX10 RAPTLU |
| Adverse Reaction Tracking | 1 | GMRARAD0 |
| 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. |
|
| 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 |
|
| 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 |
|
| RETRA | ||
| 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 |
| FileNo | Call Tags |
|---|---|
| ^GMR(120.8 - [#120.8] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(120.8 - [#120.8] | RADD+20, RADD+34, RADD+35, RADD+36*, RADD+37*, RADD+38*, RADD+39, RADD+40*, RALLG+7, RALLG+8 , RALLG+10, OTHRAD+7 |
| ^GMRD(120.82 - [#120.82] | RALLG+11 |
| ^TMP($J | RADD+17, RADD+18!, RALLG+10 |
| Name | Line Occurrences |
|---|---|
| $$RALLG | RADD+20, OTHRAD+7 |
| RETRA | RADD+12, RADD+13, RADD+17, RADD+21, RADD+26, RADD+32 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | RADD+11~, RADD+12*, RADD+13*, RADD+17*, RADD+20*, RADD+21, RADD+26*, RADD+32*, RADD+35*, RADD+36 , RADD+37, RADD+38, RADD+39, RADD+40, RADD+41, RETRA, RACHK+9~, RALLG~, RALLG+7, RALLG+8 , RALLG+10, OTHRAD~, OTHRAD+7 |
| DFN | RADD~, RADD+13, RADD+20, RADD+27, RACHK~, OTHRAD~, OTHRAD+7 |
| DIK | RADD+11~, RADD+39*, RACHK+9~ |
| DIR | RADD+23!, RADD+24!, RACHK+9~ |
| DIR("?" | RADD+23* |
| DIR("A" | RADD+23* |
| DIR(0 | RADD+23* |
| DRCL | RALLG+6~, RALLG+10* |
| DRCL1 | RALLG+6~, RALLG+10* |
| DUZ | RADD+27, RADD+38 |
| ERR | RALLG~, RALLG+7*, RALLG+8 |
| FXN | RACHK+9~, RACHK+10*, RACHK+12, RALLG+6~, RALLG+7*, RALLG+10*, RALLG+11*, RALLG+12*, RALLG+14, OTHRAD+6~ , OTHRAD+7*, OTHRAD+8 |
| GMRA | RADD+11~ |
| GMRACAUS | RADD+11~, RADD+16*, RADD+27 |
| GMRACLS | RADD+11~, RADD+27*, RADD+37 |
| GMRADA | RACHK+9~, OTHRAD+6~, OTHRAD+7* |
| GMRADRCL | RADD+11~, RADD+17*, RADD+27 |
| GMRAER | RADD+11~, RACHK+9~ |
| GMRAL | RADD+11~, RADD+27*, RADD+29, RADD+33*, RADD+36 |
| GMRANEW | RADD+11~, RADD+34*, RADD+35, RADD+40 |
| GMRANOW | RADD+11~, RADD+27*, RADD+33 |
| GMRAPA | RADD+41*! |
| GMRASITE | RADD+30! |
| GMRATYPE | RADD+30! |
| GMRAX | RADD+11~, RACHK+9~ |
| GMRAY | RADD+11~, RADD+29*, RADD+30!, RACHK+9~ |
| GMRAY(0 | RADD+29* |
| OH | RADD~, RADD+22, RADD+24*, RADD+26, RADD+27 |
| >> RAAF18 | RADD+27, RADD+41 |
| U | RADD+33, RALLG+10, RALLG+11, RALLG+12 |
| VER | RADD~, RADD+28, RADD+29*, RADD+32, RADD+33 |
| X | RADD+11~, RACHK+9~ |
| Y | RADD+11~, RADD+24, RACHK+9~ |
| YN | RADD~, RADD+12, RACHK~, RACHK+11 |
| ZERO | RALLG+6~, RALLG+7*, RALLG+10, RALLG+11, RALLG+12 |
| >> ZTDESC | RADD+41* |
| >> ZTDTH | RADD+41* |
| >> ZTIO | RADD+41* |
| >> ZTRTN | RADD+41* |
| >> ZTSAVE("GMRAPA" | RADD+41* |
| ZTSK | RADD+41! |