RAWFR1 ;HISC/GJC-'Wasted Film Report' (1 of 4) ;4/15/96 07:22
Source file <RAWFR1.m>
| Package | Total | Caller Graph |
|---|---|---|
| Radiology Nuclear Medicine | 1 | RA WASTED FILM RPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RAEXAM | ; Journey through the 'Examination' multiple.
|
|
| DIVITY | ; Select division/imaging type
|
|
| ENDDT | ; *** Prompt for Ending Date ***
|
|
| STRTDT | ; *** Prompt for Starting Date ***
|
|
| START | ; Start the sort/print process
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZISC | START+15 |
| ^DIR | RAWFR1+17, STRTDT+7, ENDDT+8 |
| SETVARS^RAPSET1 | RAWFR1+5 |
| ZIS^RAUTL | ENDDT+15 |
| ACCVIO^RAUTL19 | RAWFR1+6 |
| $$DIVLOC^RAUTL7 | DIVITY+1 |
| COMPSUM^RAWFR2 | START+14 |
| SETUP^RAWFR2 | RAEXAM+6 |
| COMP^RAWFR3 | START+14 |
| KILL^RAWFR3 | RAWFR1+6, RAWFR1+18, DIVITY+2, DIVITY+6, DIVITY+9, STRTDT+8, ENDDT+9, ENDDT+16, ENDDT+17, START+16 |
| DISPXAM^RAWFR4 | DIVITY+8 |
| ZEROUT^RAWFR4 | DIVITY+4 |
| $$FMTE^XLFDT | RAWFR1+8, RAWFR1+9 |
| $$NOW^XLFDT | RAWFR1+8, RAWFR1+9 |
| 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) |
|---|---|
| ^RADPT - [#70] | START+7, START+8, RAEXAM+2, RAEXAM+3, RAEXAM+4 |
| ^RADPT("AR" | START+4, START+5, START+6 |
| ^TMP($J | RAWFR1+8! |
| Name | Line Occurrences |
|---|---|
| RAEXAM | START+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIR | RAWFR1+13!, RAWFR1+17!, STRTDT+1!, STRTDT+7!, ENDDT+1!, ENDDT+8! |
| DIR("?" | RAWFR1+15*, RAWFR1+16*, STRTDT+3*, STRTDT+4*, STRTDT+5*, STRTDT+6*, ENDDT+3*, ENDDT+4*, ENDDT+5*, ENDDT+6* , ENDDT+7* |
| DIR("A" | RAWFR1+14*, STRTDT+2*, ENDDT+2* |
| DIR("B" | RAWFR1+17*, STRTDT+7*, ENDDT+8* |
| DIR(0 | RAWFR1+17*, STRTDT+1*, ENDDT+1* |
| >> DIRUT | RAWFR1+18, STRTDT+8, ENDDT+9 |
| DT | STRTDT+1, ENDDT+1 |
| DUZ | DIVITY+3, START+15 |
| IO | START+1 |
| IOF | RAWFR1+10 |
| IOM | RAWFR1+12, START+1 |
| >> POP | ENDDT+16 |
| >> RABGDTI | STRTDT+9*, ENDDT+1 |
| >> RABGDTX | STRTDT+9*, ENDDT+6, ENDDT+8 |
| >> RACCESS | RAWFR1+5, RAWFR1+6 |
| >> RACCESS( | DIVITY+3, START+15! |
| >> RADATE | RAWFR1+9*, STRTDT+5, STRTDT+7, ENDDT+5 |
| >> RADFN | START+5*, START+6, START+7, START+8, RAEXAM+2, RAEXAM+3, RAEXAM+4 |
| >> RADT | START+4*, START+5, START+6 |
| >> RADTI | START+6*, START+7, START+8, RAEXAM+2, RAEXAM+3, RAEXAM+4 |
| >> RAENDTI | ENDDT+10* |
| >> RAENDTX | ENDDT+10* |
| >> RAEX | RAEXAM+1*, RAEXAM+2*, RAEXAM+3, RAEXAM+4 |
| >> RAEX0 | RAEXAM+4*, RAEXAM+5 |
| >> RAEXS | RAEXAM+5*, RAEXAM+6 |
| >> RAHEAD | START+3* |
| >> RALINE | START+1* |
| >> RAMBGDT | STRTDT+9*, START+4 |
| >> RAMENDT | ENDDT+10*, START+4 |
| >> RAPOP | ENDDT+17 |
| >> RAPSTX | RAWFR1+5* |
| >> RARP0 | START+8* |
| >> RASYN | RAWFR1+22*, START+14 |
| >> RATDAY | RAWFR1+8* |
| >> RAWFR | DIVITY+9 |
| >> RAWFR( | RAEXAM+6 |
| >> RAXIT | RAWFR1+9*, DIVITY+9, START+4, START+5, START+6, START+14, RAEXAM+2 |
| U | RAEXAM+5 |
| X | RAWFR1+10!*, RAWFR1+12, RAWFR1+13!, DIVITY+1*, DIVITY+2 |
| Y | RAWFR1+10!, RAWFR1+11*, RAWFR1+12, RAWFR1+13!, RAWFR1+22, STRTDT+9, ENDDT+10 |
| Y(0 | STRTDT+9, ENDDT+10 |
| Z | RAWFR1+10!, RAWFR1+11*, RAWFR1+12, RAWFR1+13! |
| >> ZTDESC | ENDDT+14* |
| >> ZTQUEUED | START+2 |
| >> ZTREQ | START+2* |
| >> ZTRTN | ENDDT+13* |
| >> ZTSAVE("RA*" | ENDDT+11* |
| >> ZTSAVE("^TMP( | $J, ""RA D-TYPE"", " , ENDDT+11*, $J, ""RA I-TYPE"", " , ENDDT+12*, $J, ""RA WFR"" , " , ENDDT+12* |