LR7OSUM ;slc/dcm - Silent Patient cum ;8/11/97
Source file <LR7OSUM.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| GET64(Y) | ;Get minor headers from file 64.5 | 
 
 
 
 | 
| END | ||
| PT | ;Test with a loop thru multiple patients | |
| EN(Y,DFN,SDATE,EDATE,COUNT,GIOM,SUBHEAD) | ;Enter here to get silent lab results | 
 
 
 
 | 
| LRLLOC | ; | |
| DFN | ||
| CLEAN | ;Clean up TMP globals | |
| TEST | ;Test the output | |
| AP(DFN) | ;Get just the AP results | 
 
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: READ | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DPT - [#2] | PT+5 | 
| ^LAB(64.5 - [#64.5] | GET64+2 | 
| ^LR - [#63] | LRLLOC+2 | 
| ^TMP("LRC" | EN+24, TEST+2, PT+5!, CLEAN+1!, AP+3! | 
| ^TMP("LRH" | PT+5!, CLEAN+1! | 
| ^TMP("LRT" | PT+5!, CLEAN+1! | 
| ^TMP($J | LRLLOC+3*, LRLLOC+4*, EN+14! | 
| Name | Line Occurrences | 
|---|---|
| EN | PT+5, AP+8 | 
| END | DFN+4, EN+23 | 
| LRLLOC | DFN+4, EN+23 | 
| PT | PT+3 | 
| TEST | PT+5 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | LRLLOC+2, TEST+2, GET64+2 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| %I | AP+2~ | 
| A | EN+15~ | 
| AGE | LRLLOC+3, EN+15~ | 
| B | LRLLOC+1~ | 
| C | LRLLOC+1~ | 
| CCNT | LRLLOC+1~, LRLLOC+2* | 
| COUNT | EN~, EN+20* | 
| CT1 | EN+15~, EN+17* | 
| DFN | LRLLOC+3, EN~, EN+11, EN+12, PT+1~, PT+4*, PT+5*, AP~, AP+1, AP+8 | 
| DIC | DFN+1!, EN+15~ | 
| DOB | EN+15~ | 
| DTIME | PT+2 | 
| E | AP+2~ | 
| EDATE | EN~, EN+22 | 
| F | EN+15~ | 
| G | EN+15~ | 
| GCNT | LRLLOC+1~, LRLLOC+2* | 
| GIOM | EN~, EN+20*, EN+21* | 
| GIOSL | LRLLOC+1~, LRLLOC+2* | 
| H | EN+15~ | 
| I | EN+15~, GET64+1~, GET64+2* | 
| IFN | EN+15~, TEST+1~, TEST+2* | 
| INC | EN+15~ | 
| IO | DFN+3 | 
| J | EN+15~, GET64+1~, GET64+2* | 
| K | EN+15~ | 
| LR | EN+15~ | 
| LRA | EN+15~ | 
| LRAA | EN+15~ | 
| LRABV | EN+15~ | 
| LRACT | EN+15~ | 
| LRADM | EN+15~, EN+17* | 
| LRADX | EN+15~, EN+17* | 
| LRAU | AP+2~ | 
| LRCNT | EN+15~ | 
| LRCTN | EN+15~ | 
| >> LRDFN | LRLLOC+2, LRLLOC+3, LRLLOC+4, EN+12*, EN+13 | 
| LRDP | EN+15~ | 
| >> LRDPF | LRLLOC+3 | 
| LREND | DFN*, EN+15~, EN+22* | 
| >> LRIDT | DFN*, EN+22* | 
| >> LRIN | DFN*, EN+22* | 
| LRJ02 | EN+15~ | 
| >> LRLLOC | LRLLOC+2* | 
| LRMD | EN+15~ | 
| LRMIT | EN+15~ | 
| LRN | EN+15~ | 
| LRNAME | EN+15~ | 
| >> LROUT | DFN*, EN+22* | 
| LRPRAC | EN+15~ | 
| LRQ | EN+15~ | 
| LRRB | EN+15~ | 
| LRSAV | EN+15~ | 
| LRSB | LRLLOC+1~ | 
| LRSPE | EN+15~ | 
| LRSPEM | EN+15~ | 
| LRTEST | EN+15~ | 
| LRTOP | EN+15~ | 
| LRTREA | EN+15~ | 
| LRUNKNOW | EN+15~ | 
| LRUNT | EN+15~ | 
| LRV | AP+2~ | 
| LRVAL | EN+15~ | 
| LRW | EN+15~ | 
| >> LRWRD | LRLLOC+2 | 
| LRZ | AP+2~ | 
| M | EN+15~ | 
| N | EN+15~ | 
| P | EN+15~ | 
| P7 | EN+15~ | 
| >> PNM | LRLLOC+3 | 
| PTN | PT+1~, PT+5* | 
| PTNX | PT+1~, PT+4*, PT+5 | 
| S1 | EN+15~ | 
| SDATE | EN~, EN+22 | 
| SP | EN+15~ | 
| >> SSN | LRLLOC+2*, LRLLOC+3 | 
| SUBHEAD | LRLLOC+4, LRLLOC+7, LRLLOC+8, EN~, AP+2~, AP+8 | 
| SUBHEAD("AUTOPSY" | AP+7* | 
| SUBHEAD("BLOO | D BANK" , LRLLOC+8 | 
| SUBHEAD("CYTOPATHOLOGY" | AP+4* | 
| SUBHEAD("EM" | AP+6* | 
| SUBHEAD("MICROBIOLOGY" | LRLLOC+7 | 
| SUBHEAD("MISC | ELLANEOUS TESTS" , LRLLOC+4 | 
| SUBHEAD("SURG | ICAL PATHOLOGY" , AP+5* | 
| T | EN+15~ | 
| U | LRLLOC+3 | 
| VA | LRLLOC+1~, EN+18! | 
| VA200 | LRLLOC+1~ | 
| VADM | EN+18! | 
| VAERR | LRLLOC+1~, EN+18! | 
| VAIN | EN+18! | 
| VAIN(7 | EN+17 | 
| VAIN(9 | EN+17 | 
| W | LRLLOC+1~ | 
| X | EN+15~, GET64+2*, PT+1~, PT+2*, PT+3, PT+4 | 
| X1 | EN+15~ | 
| X2 | DFN+1! | 
| XZ | EN+15~ | 
| Y | DFN+2, EN~, EN+15~, EN+24*, GET64~, GET64+10*, PT+5 | 
| Y( | GET64+2* | 
| Y("AUTOPSY" | GET64+9* | 
| Y("BLOOD BANK | " , GET64+5* | 
| Y("CYTOPATHOLOGY" | GET64+6* | 
| Y("EM" | GET64+8* | 
| Y("MICROBIOLOGY" | GET64+4* | 
| Y("MISCELLANE | OUS TESTS" , GET64+3* | 
| Y("SURGICAL P | ATHOLOGY" , GET64+7* | 
| Y1 | EN+15~ | 
| >> ZIP | AP+8 | 
| ZTRTN | DFN+1! |