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* |