©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
XMRPCTSA ;(KC-VAMC)/XXX-Steal TWIX's from PCTS Host [RCVR] ;04/08/98 10:39
Source file <XMRPCTSA.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ERR | ||
| XM | ||
| DSP(XMTRAN) | ||
| INIT | ;called from XMRPCTS & XMRPCTS0
|
|
| REPLY | ;Let AMS know we have the message OK and what our local msg number is
|
|
| TERMON | ;Need to change read terminators
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("OS" | TERMON+1, TERMON+2, TERMON+3 |
| ^TMP($J | INIT+5! |
| ^XMB("NETNAME" | XM+6 |
| ^XMB(3.9 - [#3.9] | XM+6*, XM+7*, XM+8*, XM+9*, XM+10*, XM+11*, XM+12*, XM+13* |
| Name | Line Occurrences |
|---|---|
| $$DSP | XM+1, REPLY+1, INIT+1, ERR |
| TERMON | INIT+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | XM~, XM+1*, REPLY+1*, INIT+1*, INIT+3*, ERR* |
| DIC | XM~ |
| >> ER | INIT+2* |
| IO | REPLY+2, TERMON+1, TERMON+2 |
| U | XM+3* |
| X | XM~ |
| XM | XM+2~ |
| XMCHAN | XM+2~* |
| >> XMCI | INIT+2* |
| >> XMCR | REPLY+2, INIT+3* |
| XMDF | XM~, XM+3* |
| >> XMDH | INIT+7* |
| >> XMDUZ | XM+3*, XM+4 |
| >> XMET | REPLY+2, INIT+3* |
| >> XMLF | INIT+3* |
| >> XMLMN | XM+4*, REPLY+1, REPLY+2 |
| >> XMLPC | INIT+6* |
| >> XMMN | XM+9, REPLY+2 |
| >> XMRPCTS("ERROR" | TERMON+4 |
| >> XMRPCTS("R" | XM+1* |
| >> XMRPCTS0 | INIT+2 |
| >> XMSH | INIT+3* |
| >> XMSUB | XM+4 |
| XMTEXT | XM~, XM+3* |
| XMTRAN | DSP~ |
| XMY | XM~ |
| XMY( | XM+4* |
| XMY("G.PCTS" | XM+4* |
| XMZ | XM~, XM+4, XM+6, XM+7, XM+8, XM+9, XM+10, XM+11, XM+12, XM+13 |
| XXX | XM~, XM+4*, XM+7 |
| Y | XM~, INIT+2* |
| ZTQUEUED | XM+2~* |
| ZTSK | XM+2~* |