©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
%XUCI ;SFISC/STAFF,PUG/TOAD - SWAP UCIs GT.M ;20 May 2003 8:43 am
Source file <XUCIGTM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DO | ;Do some routine and return
|
|
| D | ||
| ERR | ||
| RES | ||
| K | ||
| 1 | ||
| 2 | ;For GT.M this is a NOP, Return Y.
|
|
| ENT | ||
| SWAP | ;
; X ^%ZOSF("PROGMODE") I 'Y S X=$S(X[",":$ZC(%SETUCI,$P(X,","),$P(X,",",2)),1:$ZC(%SETUCI,$P(X,","))),X=$ZC(%PGMSET),X=$ZC(%SECMAP) |
|
| GO | ;GOTO some routine
|
|
| U | ||
| SAV |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("OS" | U+1 |
| ^%ZOSF("TEST" | GO+2 |
| ^%ZOSF("UCI" | 2+1 |
| ^UTILITY($J | GO+3! |
| ^XUTL("XQ" | GO+3! |
| Name | Line Occurrences |
|---|---|
| 1 | ENT |
| 2 | 1+2, ENT, GO+1, DO+2, D |
| @( | GO+3, D |
| D | DO+2 |
| RES | DO+2 |
| SAV | DO+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | U+1*, K!, SAV*, RES* |
| %UCI | 1+1*, K!, ENT, GO+2, DO+1*, DO+2* |
| %XUCI | D~, SAV*, RES |
| DTIME | 1+1 |
| >> PGM | GO+2, GO+3, DO+1*, D |
| U | GO+3 |
| >> X | GO+2*, ERR |
| >> XQZ | DO+1 |
| >> XUSLNT | U |
| Y | U, K*, GO+1, DO+2, D~ |
| >> ZTQUEUED | U |