Changeset 404 for ccr/trunk/p/C0CRNF.m
- Timestamp:
- Mar 16, 2009, 6:08:55 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CRNF.m
r351 r404 1 1 C0CRNF ; CCDCCR/GPL - Reference Name Format (RNF) utilities; 12/6/08 2 2 ;;0.1;CCDCCR;nopatch;noreleasedate 3 ;Copyright 200 8 WorldVistA. Licensed under the terms of the GNU3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. 5 5 ; … … 99 99 . . . S GIEN=$QS(ZG,4) ; PULL OUT THE IEN 100 100 . . E S GIEN="" ; NOT FOUND IN INDEX 101 . E S GIEN="" ; 101 . E S GIEN="" ; 102 102 ;W "IEN: ",GIEN,! 103 103 ;N C0CTMP,C0CI,C0CJ,C0CREF,C0CNAME … … 163 163 . . . S GIEN=$QS(ZG,4) ; PULL OUT THE IEN 164 164 . . E S GIEN="" ; NOT FOUND IN INDEX 165 . E S GIEN="" ; 165 . E S GIEN="" ; 166 166 ;W "IEN: ",GIEN,! 167 167 ;N C0CTMP,C0CI,C0CJ,C0CREF,C0CNAME
Note:
See TracChangeset
for help on using the changeset viewer.