©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
RACMP ;HISC/GJC AISC/MJK-Complication Report (Part 1 of 3) ;4/16/96 09:47
Source file <RACMP.m>
| Package | Total | Caller Graph |
|---|---|---|
| Radiology Nuclear Medicine | 4 | RA COMPLICATION RACMP2 RADLQ1 RADLY |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DIVTOT(Z) | ; Check if more than one division is included in the report.
; Pass back '0' if just one division, '1' if more than one division. |
|
| ASKLOG | ; Ask date range
|
|
| SET | ; Set data global
|
|
| KILL | ; Kill and quit
|
|
| START | ; Start processing data
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | START+1 |
| PRINT^RACMP1 | START+21 |
| HEADER^RACMP2 | START+19, START+25 |
| SORT^RACMP2 | START+12 |
| SYNOP^RACMP2 | START+25 |
| SETVARS^RAPSET1 | RACMP+3 |
| CLOSE^RAUTL | START+15, START+28 |
| DATE^RAUTL | ASKLOG+2 |
| ZIS^RAUTL | ASKLOG+12 |
| TIME^RAUTL1 | SET+1 |
| $$EOS^RAUTL5 | START+24 |
| $$DIVLOC^RAUTL7 | RACMP+9 |
| $$FMTE^XLFDT | START+3 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | ASKLOG+6, ASKLOG+7 |
| ^RA(78.1 - [#78.1] | RACMP+4 |
| ^RADPT - [#70] | SET+10 |
| ^RADPT("AR" | START+10, START+11 |
| ^RAMIS(71 - [#71] | SET+2 |
| ^TMP($J | RACMP+11, RACMP+12, RACMP+13*, RACMP+15*, ASKLOG+1!, START+16, START+18, START+20, KILL+6!, KILL+7! , KILL+8!, SET+12*, DIVTOT+3, DIVTOT+4 |
| ^VA(200 - [#200] | SET+4, SET+6, SET+8 |
| Name | Line Occurrences |
|---|---|
| $$DIVTOT | START+23 |
| KILL | RACMP+9, ASKLOG+2, ASKLOG+13, START+15, START+28 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | START+3, KILL+1! |
| %DT | KILL+10! |
| %I | KILL+1! |
| A | RACMP+10*, RACMP+11, RACMP+12, RACMP+14, ASKLOG+1! |
| B | RACMP+11*, RACMP+12*, RACMP+13, RACMP+15, ASKLOG+1! |
| BEGDATE | ASKLOG+3, ASKLOG+4, ASKLOG+5!, KILL+10! |
| C | RACMP+14*, RACMP+15, ASKLOG+1! |
| DUZ | RACMP+3, RACMP+10, RACMP+14, KILL+1 |
| ENDDATE | ASKLOG+3, ASKLOG+4, ASKLOG+5! |
| I | KILL+10! |
| IO | START+1 |
| IOM | START+3, START+7, START+8, START+9 |
| POP | KILL+10! |
| RA0 | KILL+1! |
| RA1 | KILL+1! |
| RA10 | KILL+1! |
| RA2 | KILL+1! |
| RA3 | KILL+1! |
| RA4 | KILL+1! |
| RA5 | KILL+1! |
| RA7 | KILL+1! |
| RACCESS | KILL+9! |
| RACCESS( | RACMP+3, RACMP+10, RACMP+14, KILL+1! |
| RACMP | RACMP+4~*, RACMP+5 |
| RACMPTX | KILL+1!, SET+10*, SET+11*, SET+12 |
| RACNI | KILL+2!, SET+10, SET+12 |
| RACOMP | KILL+2!, SET+12 |
| RADFN | START+11*, KILL+2!, SET+10, SET+12 |
| RADIV | START+19*, START+24*, KILL+2!, SET+12 |
| RADIVNM | START+23*, KILL+2! |
| RADTBEG | ASKLOG+4*, START+10, KILL+2! |
| RADTBEGI | ASKLOG+3*, ASKLOG+6, KILL+2! |
| RADTBEGX | ASKLOG+6*, START+6, KILL+2! |
| RADTE | START+10*, START+11, START+12, KILL+2!, SET+1, SET+12 |
| RADTEND | ASKLOG+4*, START+10, KILL+3! |
| RADTENDI | ASKLOG+3*, ASKLOG+7, KILL+3! |
| RADTENDX | ASKLOG+7*, START+6, KILL+3! |
| RADTI | START+12*, KILL+3!, SET+10 |
| RAERR | START+4*, KILL+3! |
| RAEX | KILL+3! |
| RAEX(0 | SET+2, SET+4, SET+6, SET+8 |
| RAFLG | START+24*, KILL+3! |
| RAHDR | KILL+3! |
| RAHDR(1 | START+5* |
| RAHDR(2 | START+6* |
| RAITYPE | START+19*, START+24*, KILL+3!, SET+12 |
| RALN | START+3*, KILL+3! |
| RAMES | KILL+10! |
| RANME | KILL+4!, SET+12 |
| RAPG | START+1*, KILL+4! |
| RAPHY | KILL+4!, SET+6*, SET+7*, SET+12 |
| RAPOP | ASKLOG+2, ASKLOG+13, KILL+4! |
| RAPRC | KILL+4!, SET+2*, SET+3*, SET+12 |
| RAPSTX | RACMP+3*, KILL+9! |
| RAQUIT | KILL+5! |
| RARE | KILL+4! |
| RARES | KILL+4!, SET+4*, SET+5*, SET+12 |
| RASSN | KILL+4!, SET+12 |
| RASTF | KILL+4!, SET+8*, SET+9*, SET+12 |
| RATAB | KILL+4! |
| RATAB(1 | START+7* |
| RATAB(2 | START+7* |
| RATAB(3 | START+8* |
| RATAB(4 | START+8* |
| RATAB(5 | START+9* |
| RATAB(6 | START+9* |
| RATDY | START+3*, KILL+4! |
| RATME | KILL+4!, SET+1*, SET+12 |
| RAXIT | START+1*, START+10, START+11, START+15, START+22, START+24*, START+25, KILL+5! |
| X | RACMP+9*, START+16*, START+17, START+18, START+19, KILL+5!, SET+1*, DIVTOT+2~*, DIVTOT+3 |
| Y | ASKLOG+6*, ASKLOG+7*, START+17*, START+18*, START+19, KILL+5! |
| Y1 | DIVTOT+2~, DIVTOT+3*, DIVTOT+4 |
| Y2 | DIVTOT+2~, DIVTOT+4* |
| Z | DIVTOT~, DIVTOT+3, DIVTOT+4 |
| ZTDESC | ASKLOG+8*, KILL+5! |
| >> ZTQUEUED | START+2 |
| >> ZTREQ | START+2* |
| ZTRTN | ASKLOG+9*, KILL+5! |
| ZTSAVE | KILL+5! |
| ZTSAVE("RACMP" | ASKLOG+9* |
| ZTSAVE("RADT*" | ASKLOG+10* |
| ZTSAVE("^TMP( | $J, ""RA D-TYPE"", " , ASKLOG+11*, $J, ""RA I-TYPE"", " , ASKLOG+12* |
| ZTSAVE("^TMP($J,""RACMP""," | ASKLOG+10* |