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