source:
WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBAB91.m@
1036
| Last change on this file since 1036 was 613, checked in by , 15 years ago | |
|---|---|
| File size: 251 bytes | |
| Rev | Line | |
|---|---|---|
| [613] | 1 | DVBAB91 ;GT-CAPRI FULL ;05/08/02 |
| 2 | ;;2.7;AMIE;**44**;Apr 10, 1995 | |
| 3 | ; | |
| 4 | ; | |
| 5 | START ; | |
| 6 | N VAR S VAR="" | |
| 7 | I $D(^DVB(396.1,0)) D | |
| 8 | . F S VAR=$O(^DVB(396.1,VAR)) Q:VAR="B" D | |
| 9 | . . S $P(^DVB(396.1,VAR,0),"^",10)="" | |
| 10 | . . S $P(^DVB(396.1,VAR,0),"^",11)="" | |
| 11 | K VAR | |
| 12 | Q |
Note:
See TracBrowser
for help on using the repository browser.
