©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
RANMUSE1 ;HISC/SWM-Nuclear Medicine Usage reports ;9/3/97 14:37
Source file <RANMUSE1.m>
| Package | Total | Call Graph |
|---|---|---|
| Radiology Nuclear Medicine | 6 | (SET,WRT)^RANMUSE2 (SUM,ZERO)^RANMUSE3 (SELADMIN,SELDATES,SELIMG,SELRADIO,SELSORT)^RANMUTL1 SETVARS^RAPSET1 (CLOSE,D,ZIS)^RAUTL ($$SETUPDI,SELDIV)^RAUTL7 |
| VA Fileman | 2 | ^%DT ^DIR |
| Package | Total | Caller Graph |
|---|---|---|
| Radiology Nuclear Medicine | 2 | RA NM RADIOPHARM ADMIN RA NM RADIOPHARM USAGE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ;
|
|
| RADADM | ; Entry point for Radiopharm administerer report
|
|
| RADUSE | ; Entry point for Radiopharm usage report
|
|
| EN1 | ;
|
|
| KIL | ;
|
|
| OUT | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | EN1+5 |
| ^DIR | EN1+9 |
| SET^RANMUSE2 | START+6 |
| WRT^RANMUSE2 | START+9 |
| SUM^RANMUSE3 | START+10 |
| ZERO^RANMUSE3 | START+7 |
| SELADMIN^RANMUTL1 | EN1+26 |
| SELDATES^RANMUTL1 | EN1+29 |
| SELIMG^RANMUTL1 | EN1+21 |
| SELRADIO^RANMUTL1 | EN1+25 |
| SELSORT^RANMUTL1 | EN1+31 |
| SETVARS^RAPSET1 | EN1+12 |
| CLOSE^RAUTL | OUT+2 |
| D^RAUTL | EN1+5 |
| ZIS^RAUTL | EN1+57 |
| $$SETUPDI^RAUTL7 | EN1+13 |
| SELDIV^RAUTL7 | EN1+14 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | EN1+15, EN1+16!, EN1+22, EN1+23!, EN1+28, KIL+1!, KIL+2! |
| Name | Line Occurrences |
|---|---|
| EN1 | RADUSE+2, RADADM+2 |
| KIL | EN1+3, OUT+3 |
| OUT | EN1+9, EN1+15, EN1+22, EN1+27, EN1+28, EN1+30, EN1+32, EN1+58, START+9 |
| Name | Field # of Occurrence |
|---|---|
| ^("DIV-IMG" | KIL+1! |
| ^("RA D-TYPE" | KIL+1! |
| ^("RA EITHER" | KIL+1! |
| ^("RA I-TYPE" | KIL+1! |
| ^("RASUM" | KIL+1! |
| ^("RATDOSE" | KIL+2! |
| ^("RATDRAWN" | KIL+2! |
| ^("RATRADIO" | KIL+2! |
| ^("RATUNIQ" | KIL+1! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | EN1+5*! |
| DFN | EN1+1~ |
| DIR | EN1+6!, EN1+9!, KIL+7! |
| DIR("?" | EN1+8* |
| DIR("A" | EN1+8* |
| DIR("B" | EN1+8* |
| DIR(0 | EN1+8* |
| DIROUT | EN1+11! |
| DIRUT | EN1+9, EN1+11! |
| DTOUT | EN1+11! |
| DUOUT | EN1+11! |
| DUZ | EN1+12, EN1+16, EN1+23 |
| I | EN1+1~, EN1+55*, KIL+7! |
| IO | START+8 |
| P02 | EN1+2~ |
| P03 | EN1+2~ |
| RA0 | KIL+3! |
| RA1 | KIL+3! |
| RA2 | KIL+3! |
| >> RACCESS( | EN1+12, EN1+16!, EN1+23! |
| RACN | EN1+1~ |
| RACNI | KIL+4! |
| RADFN | KIL+4! |
| RADIOPH | EN1+1~ |
| RADIVNAM | EN1+1~ |
| RADOSE | KIL+6! |
| RADRAWN | KIL+6! |
| RADTBEG | KIL+3! |
| RADTEND | KIL+3! |
| RADTI | KIL+4! |
| RAEITHER | KIL+7! |
| RAFIRST | KIL+3! |
| RAHDTYP | START+1!, KIL+6! |
| RAHIGH | KIL+6! |
| RAIMGNAM | EN1+1~ |
| RAINPUT | EN1+25, EN1+26, EN1+28, KIL+4! |
| RALN | EN1+5*, KIL+4! |
| RALONGCN | KIL+4! |
| RALOW | KIL+6! |
| RAMES | KIL+6! |
| RAN0 | KIL+4! |
| RANUC | KIL+4! |
| RANUC1 | KIL+6! |
| RANUMD | KIL+6! |
| RANUMI | KIL+6! |
| RAPATNAM | EN1+1~ |
| RAPG | EN1+4*, KIL+3! |
| RAPOP | EN1+30, EN1+32, EN1+58, KIL+5! |
| RAPRC0 | KIL+5! |
| RAPRCNAM | EN1+1~ |
| RAQUIT | EN1+15, EN1+22, EN1+27, KIL+5! |
| RASEQD | KIL+5! |
| RASEQI | KIL+5! |
| RASORT | KIL+3! |
| RASSN | KIL+5! |
| RASTERSK | KIL+3! |
| RASUM | EN1+10*, START+9, KIL+3! |
| RATDOSE | START+1! |
| RATDRAWN | START+1! |
| RATDY | EN1+5*, KIL+4! |
| RATITLE | EN1+4*, EN1+25, EN1+26, RADUSE+2~*, RADADM+2~* |
| RATOUTSD | START+1! |
| RATRADIO | START+1! |
| RATUNIQ | START+1! |
| RAUNIQ | KIL+3! |
| RAWHO | KIL+5! |
| RAXIT | START+9, KIL+5! |
| RAXMDTM | EN1+1~, KIL+5! |
| S3 | EN1+2~ |
| S4 | EN1+2~ |
| VA | EN1+2~ |
| VAERR | EN1+2~ |
| X | EN1+5*, EN1+13~* |
| >> Y | EN1+5, EN1+10 |
| ZTDESC | RADUSE+1~*, RADADM+1~* |
| >> ZTQUEUED | OUT+1 |
| >> ZTREQ | OUT+1* |
| >> ZTRTN | EN1+50* |
| >> ZTSAVE( | EN1+55* |
| >> ZTSAVE("^TMP( | $J, ""RA D-TYPE"", " , EN1+52*, $J, ""RA EITHER"", " , EN1+54*, $J, ""RA I-TYPE"" , " , EN1+53* |
| >> ZTSAVE("^TMP($J,""RA""," | EN1+51* |