©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
TIUFLP ;SLC/AJB - Print Form Letter Progress Notes ;06Mar07
Source file <TIUFLP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENTRY | ;
|
|
| ENTRY1 | ; Entry point from above
|
|
| EXIT | ||
| DEVICE(TIUFLAG,TIUSPG) | ; pick your device
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("TIULQ" | ENTRY1+2!, EXIT! |
| ^TMP("TIUPR" | EXIT! |
| Name | Line Occurrences |
|---|---|
| ENTRY1 | DEVICE+8 |
| EXIT | DEVICE+1, DEVICE+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | DEVICE+1* |
| D0 | ENTRY1+1~ |
| DIROUT | ENTRY1+1~ |
| DIRUT | ENTRY1+1~ |
| DN | ENTRY1+1~ |
| DTOUT | ENTRY1+1~ |
| DUOUT | ENTRY1+1~ |
| IO | DEVICE+8, ENTRY+2 |
| IO("Q" | DEVICE+2! |
| IOP | DEVICE+1! |
| POP | DEVICE+1! |
| TIUERR | ENTRY1+1~ |
| TIUFLAG | DEVICE~ |
| TIUSPG | DEVICE~, ENTRY+1~ |
| Y | ENTRY1+1~ |
| ZTDESC | DEVICE+4*, DEVICE+6! |
| ZTDTH | DEVICE+6! |
| ZTIO | DEVICE+6! |
| >> ZTQUEUED | ENTRY1+3 |
| >> ZTREQ | ENTRY1+3* |
| ZTRTN | DEVICE+3*, DEVICE+6! |
| ZTSAVE | DEVICE+6! |
| ZTSAVE("^TMP(""TIUPR"",$J," | DEVICE+3* |
| ZTSK | DEVICE+5, DEVICE+6! |