source:
WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBAB91.m@
780
Last change on this file since 780 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.