©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
RAFLM ;HISC/GJC AISC/MJK,RMO-Film Usage Report ;4/17/96 10:15
Source file <RAFLM.m>
| Package | Total | Caller Graph |
|---|---|---|
| Radiology Nuclear Medicine | 3 | RA FILMUSE RAFLM1 RAWKL1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SUM | ||
| DEV | ||
| START | ; start processing
|
|
| ASKSUM | ||
| KILL | ;
|
|
| CPT | ;
|
|
| FILM | ; select films to include in report
|
| Name | Field # of Occurrence |
|---|---|
| ^DIR | ASKSUM+1 |
| $$NAMCODE^RACPTMSC | CPT+2 |
| RADTI^RAFLM1 | START+6 |
| ^RAFLM2 | START+7 |
| Q^RAFLM2 | ASKSUM+1, ASKSUM+4, ASKSUM+14, ASKSUM+15, ASKSUM+18, ASKSUM+19, DEV |
| DISPXAM^RALWKL1 | ASKSUM+19 |
| IT^RALWKL2 | ASKSUM+10 |
| $$ALLNOTH^RALWKL3 | ASKSUM+14 |
| SETVARS^RAPSET1 | RAFLM+3 |
| EN1^RASELCT | FILM+5 |
| DATE^RAUTL | ASKSUM+18 |
| ZIS^RAUTL | DEV |
| CRIT^RAUTL1 | START+1 |
| $$DIVLOC^RAUTL7 | ASKSUM+4 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RA(78.4 - [#78.4] | FILM+2 |
| ^RADPT("AR" | START+6 |
| ^TMP($J | ASKSUM+7, ASKSUM+10*, ASKSUM+16, START+1!, START+4*, FILM+1!, FILM+2* |
| Name | Line Occurrences |
|---|---|
| FILM | ASKSUM+15 |
| KILL | FILM+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %W | KILL+1! |
| %Y1 | KILL+1! |
| A | ASKSUM+5*, ASKSUM+6*, ASKSUM+7, ASKSUM+9, ASKSUM+13! |
| A1 | ASKSUM+7*, ASKSUM+8, ASKSUM+10, ASKSUM+13! |
| B | ASKSUM+8*, ASKSUM+9*, ASKSUM+10, ASKSUM+13! |
| B1 | ASKSUM+10, ASKSUM+13! |
| >> BEGDATE | START+1 |
| DIC | KILL+1! |
| DIR | ASKSUM!, ASKSUM+1! |
| DIR("?" | ASKSUM* |
| DIR("A" | ASKSUM* |
| DIR("B" | ASKSUM* |
| DIR(0 | ASKSUM* |
| DIROUT | ASKSUM+3! |
| DIRUT | ASKSUM+1, ASKSUM+3! |
| DT | CPT+2 |
| DTOUT | ASKSUM+3! |
| DUOUT | ASKSUM+3! |
| DUZ | RAFLM+3, ASKSUM+6, ASKSUM+9, ASKSUM+13 |
| >> ENDDATE | START+1 |
| IO | START+1 |
| >> RABEG | START+1*, START+6 |
| >> RACCESS( | RAFLM+3, ASKSUM+6, ASKSUM+9, ASKSUM+13! |
| RACNT | KILL+1! |
| >> RACPT | START+1*, CPT+1*, CPT+2*, CPT+3, CPT+4 |
| >> RACRT | START+1* |
| >> RADFN | START+6* |
| RADIC | FILM+3*, FILM+5, KILL+1! |
| RADIC("A" | FILM+3* |
| RADIC("S" | FILM+4* |
| RADIC(0 | FILM+3* |
| >> RADTE | START+6* |
| >> RAEND | START+1*, START+6 |
| >> RAEOS | START+3*, START+6, START+7 |
| RAFL1 | SUM!, ASKSUM+2*, ASKSUM+20 |
| >> RAFLDCNT | ASKSUM+16* |
| RAIEN | FILM+2*, KILL+1! |
| >> RAINPUT | ASKSUM+14*, ASKSUM+15, ASKSUM+16, FILM+5 |
| >> RAITCNT | START+3* |
| >> RAITCNT( | START+4* |
| RALP | ASKSUM+16*, ASKSUM+17!, START+3*, START+4*, START+5! |
| RALP1 | START+4*, START+5! |
| RAONECHK | FILM+2*, KILL+1! |
| RAONENME | FILM+2*, KILL+1! |
| >> RAPOP | ASKSUM+18, DEV |
| >> RAPRC | CPT+4* |
| >> RAPRI | CPT+1 |
| >> RAPSTX | RAFLM+3* |
| >> RAQUIT | ASKSUM+15 |
| >> RASV | ASKSUM+21* |
| >> RATITLE | ASKSUM+5*, FILM+3 |
| RAUTIL | FILM+3*, FILM+5, KILL+1! |
| >> RAXIT | ASKSUM+19* |
| U | FILM+2 |
| X | ASKSUM+4*, KILL+1! |
| Y | ASKSUM+2, KILL+1! |
| >> ZTDESC | ASKSUM+20* |
| >> ZTQUEUED | START+2 |
| >> ZTREQ | START+2* |
| >> ZTRTN | ASKSUM+20* |
| >> ZTSAVE( | ASKSUM+21* |
| >> ZTSAVE("RAFL1" | ASKSUM+20* |
| >> ZTSAVE("^TMP($J,""RAFILM""," | ASKSUM+20* |
| >> ZTSAVE("^TMP($J,""RAFLM""," | ASKSUM+20* |