source: FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XPARDD2.m@ 1312

Last change on this file since 1312 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 509 bytes
Line 
1XPARDD2 ;SLC/KCM - DD Logic for Parameter Template (8989.52)
2 ;;7.3;TOOLKIT;**26**;Apr 25, 1995
3 ;
4VALID01 ; -- Input transform for NAME (8989.51,.01), prevent duplicate names
5 ; ( Need to figure out how to check for duplicates and have verify
6 ; fields still work )
7 I $L(X)>30!($L(X)<3)!'(X'?1P.E) K X Q ; Length 3-30
8 I X'?2A.E K X Q ; Must begin with namespace
9 I $D(^XTV(8989.52,"B",X)) D Q ; No duplicates
10 . K X D EN^DDIOL("Duplicate template names not allowed.")
11 Q
Note: See TracBrowser for help on using the repository browser.