©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
GMRARAD0 ;HIRMFO/RM-Radiology\ART Interface Routine (cont.);12/30/93
Source file <GMRARAD0.m>
| Package | Total | Call Graph |
|---|---|---|
| Adverse Reaction Tracking | 5 | $$RALLG^GMRARAD PTBUL^GMRAROBS BULLT^GMRASEND SITE^GMRAUTL EN1^GMRAVAB |
| Kernel | 1 | $$HTFM^XLFDT |
| National Drug File | 1 | IEN^PSN50P65 |
| Registration | 1 | (1,KVAR)^VADPT |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DRCLRACK(DA) | ; This function will determine if entry DA in 120.8 represents
; a contrast media allergy that is not entered in error if the Drug ; Class DX100 is deleted. ; Input variable: DA=entry in file 120.8 ; Return value: 1 if entry is contrast media allergy, 0 if not |
|
| CHKEXAL | ; This entry point will check the database for existing Rad. Allergies,
; and ask user if they should be entered in error. |
|
| QBULL | ; THIS ENTRY POINT WILL ALLOW BE CALLED AS A TASKED JOB TO SEND
; BULLETINS FOR A RAD ALLERGY IF NECESSARY. ; INPUT VARIABLE: GMRAPA = IEN 120.8 ENTRY |
|
| NKADD | ; This entry point will add the NKA entry in file 120.8 if needed.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(120.8 | CHKEXAL+9, CHKEXAL+11 |
| ^GMR(120.8 - [#120.8] | CHKEXAL+2, CHKEXAL+7, CHKEXAL+8, CHKEXAL+10*, QBULL+4, QBULL+9, DRCLRACK+7, DRCLRACK+8, DRCLRACK+16 |
| ^GMR(120.86 - [#120.86] | NKADD+3, NKADD+4, NKADD+6, NKADD+8*, NKADD+9*, NKADD+10*, NKADD+12 |
| ^GMRD(120.82 - [#120.82] | DRCLRACK+18 |
| ^GMRD(120.84 - [#120.84] | QBULL+7 |
| ^TMP($J | DRCLRACK+12, DRCLRACK+13! |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | NKADD+12* |
| ^(1 | CHKEXAL+11 |
| ^(2 | CHKEXAL+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | QBULL+11! |
| DA | NKADD+1~, CHKEXAL+8*, DRCLRACK~, DRCLRACK+16 |
| DA(1 | DRCLRACK+7, DRCLRACK+8, DRCLRACK+16 |
| DFN | NKADD+1~, CHKEXAL+2, CHKEXAL+7, QBULL+5*, QBULL+11! |
| DIK | NKADD+1~ |
| >> DIR("?" | CHKEXAL+5* |
| >> DIR("A" | CHKEXAL+4*, CHKEXAL+5* |
| >> DIR(0 | CHKEXAL+5* |
| DRCL | DRCLRACK+6~, DRCLRACK+9*, DRCLRACK+11, DRCLRACK+12 |
| DRCL1 | DRCLRACK+6~, DRCLRACK+12*, DRCLRACK+15, DRCLRACK+16 |
| DRCL2 | DRCLRACK+6~, DRCLRACK+16* |
| DUZ | CHKEXAL+10 |
| FXN | CHKEXAL+6*, DRCLRACK+6~, DRCLRACK+7*, DRCLRACK+9, DRCLRACK+15*, DRCLRACK+16*, DRCLRACK+18*, DRCLRACK+20 |
| GMRA | NKADD+1~ |
| GMRA(0 | NKADD+2*, NKADD+3, NKADD+4, NKADD+6, NKADD+12 |
| GMRACNT | NKADD+5~, NKADD+8*, NKADD+10 |
| >> GMRADA | CHKEXAL+2*, CHKEXAL+3, CHKEXAL+7*, CHKEXAL+8, CHKEXAL+10 |
| GMRADFN | NKADD+5~, NKADD+6*, NKADD+8, NKADD+9, NKADD+10 |
| >> GMRAER | CHKEXAL+8*, CHKEXAL+9, CHKEXAL+10*, CHKEXAL+11 |
| GMRAHLOC | QBULL+11! |
| >> GMRAL | NKADD+2 |
| GMRALOC | QBULL+6*, QBULL+9, QBULL+11! |
| GMRANAM | QBULL+6*, QBULL+11! |
| GMRAOUT | QBULL+11! |
| GMRAPA | NKADD+1~, QBULL+3, QBULL+4, QBULL+9, QBULL+11! |
| GMRAPA(0 | QBULL+4*, QBULL+5, QBULL+8, QBULL+10 |
| GMRASITE | QBULL+7, QBULL+11! |
| GMRASITE(0 | QBULL+7*, QBULL+9 |
| GMRATMP | NKADD+1~ |
| GMRATYPE | QBULL+11! |
| GMRAVIP | QBULL+6*, QBULL+11! |
| GMRAX | NKADD+1~, NKADD+5~, NKADD+6*, NKADD+7*, NKADD+8, NKADD+10*, CHKEXAL+9*, CHKEXAL+11* |
| GMRAY | NKADD+1~, CHKEXAL+9*, CHKEXAL+11* |
| U | NKADD+3, NKADD+8, NKADD+10, NKADD+12, CHKEXAL+9, CHKEXAL+11, QBULL+4, QBULL+6, QBULL+8, QBULL+9 , QBULL+10, DRCLRACK+15, DRCLRACK+18 |
| VA | QBULL+6! |
| VA("PID" | QBULL+6 |
| >> VADM(1 | QBULL+6 |
| >> VAIN(4 | QBULL+6 |
| >> X | CHKEXAL+9*, CHKEXAL+11* |
| XMB | QBULL+11! |
| XMY | QBULL+11! |
| XQA | QBULL+11! |
| XQAMSG | QBULL+11! |
| >> Y | CHKEXAL+6 |
| ZERO | DRCLRACK+6~, DRCLRACK+7*, DRCLRACK+15, DRCLRACK+18 |
| >> ZTREQ | QBULL+11* |