©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
DIARR5 ;SFISC/DCM-ARCHIVING(READ ARCHIVED FG)-PRINT REQUEST ;4/8/93 8:00 AM
Source file <DIARR5.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRINT1 | ||
| HD2 | ||
| HD1 | ||
| Q | ||
| HD | ||
| DQ |
| 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 |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | HD+2 |
| ^TMP("DIARO" | DQ+1, PRINT1 |
| Name | Line Occurrences |
|---|---|
| HD | DQ+1, PRINT1 |
| HD2 | HD1 |
| PRINT1 | DQ+1 |
| Q | PRINT, PRINT+1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | PRINT1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DIAR01 | HD1 |
| >> DIARID( | HD2 |
| >> DIARLINE | HD1+1* |
| >> DIARPDEV | PRINT+1, Q |
| >> DIARPG | DQ*, HD+3, HD1+1* |
| >> DIARQUED | PRINT, Q+2 |
| >> DIARR( | DQ+1, HD1, HD2 |
| >> DIARRF( | DQ+1, PRINT1+1 |
| >> DIARX1 | HD2* |
| >> DIARY | DQ+1*, PRINT1, PRINT1+1, HD1, HD2 |
| >> DIARZ | PRINT1* |
| >> DIARZ1 | PRINT1* |
| DIR | HD+1! |
| DIR(0 | HD+1* |
| >> DIRUT | DQ+1, PRINT1, HD+1 |
| DT | HD+2 |
| >> DTOUT | DQ+1, PRINT1, HD+1 |
| IO | HD |
| IO(0 | Q+2 |
| IOF | HD+3 |
| IOM | HD1+1 |
| >> IOP | PRINT+1* |
| IOSL | PRINT1 |
| IOST | HD+1 |
| >> POP | PRINT+1, Q+2 |
| U | HD2 |
| >> Y | HD+2*, HD+3 |
| >> ZTDESC | Q* |
| >> ZTDTH | Q* |
| >> ZTIO | Q* |
| >> ZTRTN | Q* |
| >> ZTSAVE("DIAR01" | Q* |
| >> ZTSAVE("DIARID(" | Q* |
| >> ZTSAVE("DIARR(" | Q* |
| >> ZTSAVE("DIARRF(" | Q* |
| >> ZTSAVE("^TMP(""DIARO"",$J," | Q* |