©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
DGQEMP ;RWA/SLC-DHW/OKC-ALB/MIR - EMBOSSER PRINT;04/02/85 5:48 PM ; 11 Feb 86 10:04 AM
Source file <DGQEMP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SB2 | ||
| 1 | ;embosser
|
|
| EN | ||
| END | ||
| ERR | ||
| A0 | ||
| TEXT | ;get text from cards in hold
|
|
| S1 | ||
| H1 | ||
| BATCH | ;process cards in hold status
|
|
| Q | ||
| 0 | ;plain paper printer
|
|
| 2 | ;addressograph
|
|
| SB1 | ||
| S2 | ||
| X1 | ||
| ADD | ||
| A1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: READ |
|
| Function Call: READ |
|
| Function Call: READ |
|
| 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) |
|---|---|
| ^%ZOSF("EOFF" | 1+1 |
| ^%ZOSF("TYPE-AHEAD" | 1+1 |
| ^DIC(39.1 - [#39.1] | MAIL, MAIL+2, BATCH+1, BATCH+2, TEXT+1 |
| ^DIC(39.3 - [#39.3] | EN, EN+1, PRINT+6*, PRINT+7, PRINT+10, PRINT+11 |
| ^DPT - [#2] | MAIL+1 |
| Name | Line Occurrences |
|---|---|
| @( | |
| A0 | A0+1, S2, X1 |
| A1 | A0+2 |
| ADD | 2+1 |
| EN | TEXT+2 |
| END | A1+2 |
| ERR | A0, S1, H1, X1 |
| H1 | A0+1, A0+2, A1+1, S1 |
| PRINT+1 | |
| PRINT+1 | |
| Q | EN+2, PRINT+5 |
| S1 | A0+1, A0+2, A1+1 |
| S2 | A1 |
| SB1 | A1 |
| SB2 | S2 |
| TEXT | BATCH+1 |
| X1 | A0+1, A0+2, A1+1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | BATCH+1 |
| ^(0 | EN+1, PRINT+7, MAIL, MAIL+1, BATCH+1, TEXT+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | EN*! |
| CARD | EN+3! |
| DA | PRINT+11*, Q+1!, BATCH+2*, BATCH+3! |
| DA(1 | PRINT+10*, BATCH+2* |
| DFN | Q!, MAIL+1, BATCH+1* |
| DGCD | BATCH+1*, BATCH+3!, TEXT+1 |
| DGCOUNT | EN+3*, PRINT+10, PRINT+11, Q!, 0+1*, END*, 2+1* |
| DGCT | Q! |
| DGEMBTYP | EN*, EN+1*, EN+2, PRINT, Q! |
| DGF | Q!, 1+1*, S1, X1 |
| DGFORMAT | EN+3!, Q!, 1+2, A0+1* |
| DGHARD | EN+3*, PRINT+11, Q!, H1* |
| DGHER | PRINT+8*, PRINT+11, Q! |
| DGI | EN*, EN+1, PRINT+5, PRINT+6, PRINT+7, PRINT+9, PRINT+10, PRINT+11, Q! |
| DGLINE | Q! |
| DGLINE( | TEXT+1*, 0+1, SB1, ADD+1 |
| DGLINE(1 | TEXT+2 |
| DGNUM | PRINT+8*, PRINT+11, Q! |
| DGQUAN | PRINT*, Q!, BATCH+1*, 0+1, A1+1, SB1, 2+1 |
| DGSOFER | PRINT+8*, PRINT+11, Q! |
| DGSOFT | EN+3*, PRINT+11, Q!, S1* |
| DGTRY | EN+3*, PRINT+1*, Q! |
| DGTYP | MAIL, MAIL+2, BATCH+1, BATCH+2, BATCH+3!, TEXT+1 |
| DGUKER | PRINT+8*, PRINT+11, Q! |
| DGUNK | EN+3*, PRINT+11, Q!, A0*, X1* |
| DIC | PRINT+9*, PRINT+11, Q+1! |
| DIC(0 | PRINT+10* |
| DIE | PRINT+11*, Q+1! |
| DIK | BATCH+2*, BATCH+3! |
| DINUM | PRINT+10*, Q+1! |
| >> DR | PRINT+11* |
| DT | PRINT+7, PRINT+10, PRINT+11 |
| DUZ | |
| ERR | PRINT*, PRINT+1, Q!, ERR* |
| F | Q!, 1+1*, S1*, X1* |
| FM | Q!, 1+2*, A0+1*, A1, S2* |
| I | Q!, 0+1*, 1+3*, A1+1*, 2+1* |
| IOF | 0+2 |
| ION | EN |
| IOP | EN*! |
| J | Q! |
| K | Q!, TEXT+1*, 1+1*, A1+1*, END |
| >> L | 0+1*, SB1*, ADD*, ADD+1* |
| POP | Q! |
| REC | PRINT+1, Q!, MAIL+1, MAIL+2, 1+1*, A1* |
| X | PRINT+7*, PRINT+8, PRINT+10*, Q!, 1+1*, 1+3*, A0*, A0+1, A0+2, A1+1* , S1* |
| XMB | Q!, MAIL+1*, MAIL+4! |
| XMB( | MAIL+1* |
| XMB(1 | MAIL+2* |
| XMDUZ | Q!, MAIL+1*, MAIL+4! |
| >> XMY( | MAIL* |
| Y | Q! |