©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
RANMUTL1 ;HISC/SWM-Nuclear Medicine utilites ;8/6/97 08:48
Source file <RANMUTL1.m>
| Package | Total | Call Graph |
|---|---|---|
| Radiology Nuclear Medicine | 4 | EN2^RAPSAPI EN1^RASELCT $$IMG1^RAUTL7 $$IMGNUM^RAUTL7A |
| VA Fileman | 2 | ^%DT ^DIR |
| Kernel | 1 | $$FMTE^XLFDT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SELIMG | ; Select Imaging Type, if exists; code is from RAUTL7
; Prompts user to select Imaging Type(s). ; Creates ^TMP($J,"RA I-TYPE",Imaging Type name,Imaging Type IEN)="" |
|
| SELDATES | ; Define RADTBEG and RADTEND
|
|
| SELSORT | ; select sort order
|
|
| SELADMIN | ; Setup ^TMP($J,"RA EITHER",ien file 50)
|
|
| SELRADIO | ; Setup ^TMP($J,"RA EITHER",ien file 50)
|
|
| SETUP1 | ; Setup ^TMP($J,"DIV-IMG",Imaging Type IEN)=""
; based upon ^TMP($J,"RA D-TYPE",Division name) ; RACCESS "DIV-IMG" ; elements. |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RA(79.2 - [#79.2] | SELIMG+15, SETUP1+8, SETUP1+9 |
| ^TMP($J | SELIMG+5, SELIMG+6*, SELIMG+10, SELIMG+13, SELIMG+15, SELIMG+16*, SELIMG+20, SETUP1+5, SETUP1+9* |
| Name | Line Occurrences |
|---|---|
| SETUP1 | SELIMG+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | SELDATES+2*, SELDATES+6*, SELDATES+9! |
| %DT("A" | SELDATES+3*, SELDATES+7* |
| %DT("B" | SELDATES+4*, SELDATES+8* |
| %DT(0 | SELDATES+5* |
| %W | SELIMG+26!, SELRADIO+11!, SELADMIN+14! |
| %Y1 | SELIMG+26!, SELRADIO+11!, SELADMIN+14! |
| DIC | SELIMG+26!, SELRADIO+11!, SELADMIN+14! |
| DIR | SELRADIO+2!, SELRADIO+6!, SELADMIN+2!, SELADMIN+6! |
| DIR("?" | SELRADIO+4*, SELRADIO+5*, SELADMIN+4*, SELADMIN+5* |
| DIR("A" | SELRADIO+3*, SELADMIN+3*, SELSORT+2* |
| DIR("B" | SELRADIO+2*, SELADMIN+2*, SELSORT+3* |
| DIR(0 | SELRADIO+2*, SELADMIN+2*, SELSORT+3* |
| DIROUT | SELRADIO+7!, SELADMIN+7! |
| DIRUT | SELRADIO+6, SELRADIO+7!, SELADMIN+6, SELADMIN+7!, SELSORT+4 |
| DTOUT | SELRADIO+7!, SELADMIN+7! |
| DUOUT | SELRADIO+7!, SELADMIN+7!, SELSORT+4 |
| DUZ | SETUP1+6, SETUP1+7 |
| RA | SELIMG+3~* |
| RA0 | SELIMG+14~, SELIMG+15*, SELIMG+16 |
| RA1 | SELIMG+14~, SELIMG+15*, SELIMG+16 |
| >> RACCESS( | SETUP1+6, SETUP1+7 |
| RADIC | SELIMG+18*, SELIMG+26!, SELRADIO+9*, SELRADIO+11!, SELADMIN+9*, SELADMIN+14! |
| RADIC("A" | SELIMG+19*, SELRADIO+10*, SELADMIN+10* |
| RADIC("B" | SELIMG+19* |
| RADIC("S" | SELIMG+21*, SELIMG+25*, SELADMIN+13* |
| RADIC(0 | SELIMG+18*, SELRADIO+9*, SELADMIN+9* |
| >> RADTBEG | SELDATES+5*, SELDATES+10 |
| >> RADTBEG("X" | SELDATES+10* |
| >> RADTEND | SELDATES+9*, SELDATES+11, SELDATES+12* |
| >> RADTEND("X" | SELDATES+11* |
| RAIMGNUM | SELIMG+3~, SELIMG+11*, SELIMG+13 |
| >> RAINPUT | SELRADIO+1*, SELRADIO+7*, SELRADIO+8, SELADMIN+1*, SELADMIN+7*, SELADMIN+8 |
| RAONE | SELIMG+3~*, SELIMG+5, SELIMG+6 |
| >> RAPOP | SELDATES+1*, SELDATES+5*, SELDATES+9*, SELSORT+1*, SELSORT+4* |
| >> RAQUIT | SELIMG+5*, SELIMG+13* |
| >> RASORT | SELSORT+1*, SELSORT+5* |
| >> RATITLE | SELSORT+2 |
| RAUTIL | SELIMG+18*, SELIMG+26!, SELRADIO+11!, SELADMIN+9*, SELADMIN+14! |
| RAX | SETUP1+4~*, SETUP1+5*, SETUP1+6, SETUP1+7 |
| RAY | SETUP1+4~, SETUP1+7*, SETUP1+8, SETUP1+9 |
| RAZ | SETUP1+4~, SETUP1+9* |
| U | SETUP1+8 |
| X | SELIMG+26!, SELRADIO+2!, SELRADIO+7!, SELRADIO+11!, SELADMIN+2!, SELADMIN+7!, SELADMIN+14! |
| Y | SELIMG+26!, SELRADIO+2!, SELRADIO+7!, SELRADIO+11!, SELADMIN+2!, SELADMIN+7!, SELADMIN+14!, SELDATES+5, SELDATES+9, SELSORT+5 |