RADD3 ;HISC/SWM-Radiology Data Dictionary Utility Routine ; Oct 12, 2022@10:55:50
Source file <RADD3.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 | 5 | DESCENDENTS RASTED ^RA(79.1 ^RAMIS(71.3 ^RAMIS(71.9 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PAIR | ;
; called from file 71.9's field SOURCE ; SOURCE may be added normally via the "RA NM EDIT LOT" option, ; or it may be added via one of the 3 exam edits when the LOT ; prompt appears for the case's Radiopharm. This LOT prompt ; allows adding new LOT on-the-fly, which causes the LOT's ; associated SOURCE, EXPIRATION DATE, KIT # to be prompted ; and the current case's Radiopharm to be stuffed into the new LOT's ; Radiopharm field. The SOURCE field invokes this subroutine to: ; re-set DR string to stuff matching radiopharm ; not allow spacebar return for radioph ; RA*5*65 removed the Fileman Identifier for file 79.1's RADIOPHARM ; so by default, the DR will just be "2;3;4;" without the "5;". |
|
| SCRLOT() | ;screen lot # from file 70.2
|
|
| GETID(Y) | ; Pass back a string of data which will be used as an
; identifier when lookups are done on the Imaging Locations (79.1) file ; Input : Y -> ien of entry in 79.1 ; Output: string of data relevent to the entry in file 79.1 ; Location I-type_"-"_Station # of Rad/Nuc Med Division ; *Location I-type_"-"_Station # of Rad/Nuc Med Division ; Note: The asterisk preceeding the Location I-type name ; indicates the I-loc is inactive. (P194) |
|
| DELDESC(RAIEN) | ; This sub-routine will determine if descendents can be
; deleted from parent procedures. If only one descendent exists, and ; the parent is on the common procedure list do not allow the deletion ; of the descendent. ; Input : RAIEN (the DA array for the Rad/Nuc Med Procedure file.) ; Output: 0 if ok to delete, 1 if not ok to delete ; Called from: ^DD(71.05,.01,"DEL",1,0) node |
|
| REACMMN(RADA) | ; Check to see if a commom procedure can be re-activated.
; This sub-routine checks if this common is a parent w/o descendents. ; If true, this common procedure cannot be re-activated. ; Input : RADA - ien of the entry in 71.3 ; Output: 0 if ok to delete, 1 if not ok to delete ; Called from ^DD(71.3,4,"DEL",1,0) |
|
| X7005(RADFN,RADTI,RACNI,RAMDV,RAQED,RASTI,RAWHO) | ;update the EXAM
; STATUS TIMES (70.05) multiple. Called from RASTED (will be ; called from RAUTL1 in the future) |
|
| A7007(RADFN,RADTI,RACNI,RAWHO,RATC) | ; update the ACTIVITY LOG (70.07)
; multiple. Called from RASTED (will be called from RAUTL1 in the ; future) |
|
| U70033(RA18DFN,RA18DTI,RA18CNI,RA18ST) | ;
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| ^RA(79.2 - [#79.2] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DISV( | PAIR+17! |
| ^RA(79.1 - [#79.1] | GETID+10 |
| ^RADPTN - [#70.2] | SCRLOT+15 |
| ^RAMIS(71 - [#71] | DELDESC+10, REACMMN+7 |
| ^RAMIS(71.3 - [#71.3] | DELDESC+8, DELDESC+9, REACMMN+6 |
| ^RAMIS(71.9 - [#71.9] | PAIR+23, SCRLOT+15 |
| Name | Field # of Occurrence |
|---|---|
| ^("NUC" | SCRLOT+15 |
| ^(0 | SCRLOT+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | X7005+11~, A7007+10~, U70033+1~ |
| D | PAIR+22, PAIR+23, PAIR+24, X7005+11~, A7007+10~, U70033+1~ |
| D0 | X7005+11~, A7007+10~, U70033+1~ |
| DA | PAIR+22, PAIR+23, SCRLOT+12, SCRLOT+15, X7005+11~, X7005+19*, A7007+10~, U70033+1~ |
| DA(1 | SCRLOT+12, SCRLOT+15 |
| DIC | X7005+11~, A7007+10~, U70033+1~ |
| DIE | PAIR+17, X7005+11~, X7005+18*, A7007+10~, U70033+1~ |
| DQ | X7005+11~, A7007+10~, U70033+1~ |
| DR | PAIR+17*, X7005+11~, X7005+19*, A7007+10~, U70033+1~ |
| DUZ | PAIR+17 |
| I | DELDESC+7~*, DELDESC+10* |
| RA0A | SCRLOT+13~, SCRLOT+15*, SCRLOT+16 |
| RA0E | SCRLOT+13~, SCRLOT+15*, SCRLOT+16 |
| RA0RAD | SCRLOT+13~, SCRLOT+15*, SCRLOT+16 |
| RA1 | PAIR+14~, PAIR+16*, PAIR+17, PAIR+21*, PAIR+23* |
| RA18CNI | U70033~, U70033+2 |
| RA18DFN | U70033~, U70033+2 |
| RA18DTI | U70033~, U70033+2 |
| RA18FDA | U70033+1~ |
| RA18FDA( | U70033+3* |
| RA18IENS | U70033+1~, U70033+2*, U70033+3 |
| RA18ST | U70033~, U70033+3 |
| RA2 | PAIR+14~, PAIR+21*, PAIR+23*, PAIR+24, PAIR+25 |
| RA3 | PAIR+14~, PAIR+21* |
| RA713 | DELDESC+7~*, DELDESC+8*, DELDESC+9, DELDESC+11, REACMMN+6~*, REACMMN+7 |
| RA713(0 | DELDESC+9*, DELDESC+11 |
| RA791 | GETID+9~ |
| RA791("DIV" | GETID+10*, GETID+13 |
| RA791(0 | GETID+10*, GETID+11, GETID+12 |
| RA791(19 | GETID+11*, GETID+14 |
| RA791(25 | GETID+13*, GETID+14 |
| RA791(6 | GETID+12*, GETID+14 |
| RACNI | X7005~, X7005+13, X7005+18, X7005+20, A7007~, A7007+12, A7007+16 |
| RADA | REACMMN~, REACMMN+6 |
| RADFN | X7005~, X7005+13, X7005+18, X7005+20, A7007~, A7007+12, A7007+16 |
| RADTI | X7005~, X7005+13, X7005+18, X7005+20, A7007~, A7007+12, A7007+16 |
| RAFDA | X7005+11~, X7005+16!, A7007+10~, A7007+15! |
| RAFDA( | X7005+14*, X7005+21*, X7005+22*, A7007+13*, A7007+17*, A7007+18*, A7007+19* |
| RAIEN | DELDESC~, X7005+11~, A7007+10~ |
| RAIEN(1 | DELDESC+8, DELDESC+10, X7005+16, X7005+19, X7005+20, A7007+15, A7007+16 |
| RAIENS | X7005+11~, X7005+13*, X7005+14, X7005+16!, X7005+20*, X7005+21, X7005+22, A7007+10~, A7007+12*, A7007+13 , A7007+15!, A7007+16*, A7007+17, A7007+18, A7007+19 |
| RALOTEXP | SCRLOT+13~, SCRLOT+15*, SCRLOT+16 |
| RALOTRAD | SCRLOT+13~, SCRLOT+15*, SCRLOT+16 |
| RAMDV | X7005~, X7005+17 |
| >> RAOPT("EDITCN" | PAIR+15 |
| >> RAOPT("EDITPT" | PAIR+15 |
| >> RAOPT("STATRACK" | PAIR+15, A7007+11 |
| >> RAPSDRUG | PAIR+16, PAIR+17 |
| RAQED | X7005~, X7005+12*, X7005+17 |
| RARETURN | SCRLOT+13~, SCRLOT+14*, SCRLOT+16*, SCRLOT+17 |
| RASTI | X7005~, X7005+21 |
| RASTR | GETID+9~, GETID+14*, GETID+15 |
| RATC | A7007~, A7007+19 |
| RATOA | A7007+10~, A7007+11*, A7007+17 |
| RATTL | DELDESC+7~*, DELDESC+10*, DELDESC+11 |
| RATXT | DELDESC+14~, DELDESC+17, REACMMN+8~, REACMMN+10 |
| RATXT(1 | DELDESC+14*, REACMMN+8* |
| RATXT(2 | DELDESC+15*, REACMMN+9* |
| RATXT(3 | DELDESC+16*, REACMMN+10* |
| RATXT(4 | DELDESC+17* |
| RATXT(5 | DELDESC+17* |
| RAWHO | X7005~, X7005+22, A7007~, A7007+18 |
| U | PAIR+23, PAIR+24, SCRLOT+15 |
| X | PAIR+25!, X7005+11~, A7007+10~, U70033+1~ |
| Y | PAIR+23, PAIR+24, SCRLOT+12, SCRLOT+15, GETID~, GETID+10, X7005+11~, A7007+10~, U70033+1~ |
