XPARDD2.m

XPARDD2 ;SLC/KCM - DD Logic for Parameter Template (8989.52) [ 04/02/2003   8:47 AM ]

 ;;7.3;TOOLKIT;**1001**;APR 1, 2003

 ;;7.3;TOOLKIT;**26**;Apr 25, 1995

 ;

VALID01 ; -- Input transform for NAME (8989.51,.01), prevent duplicate names

 ; ( Need to figure out how to check for duplicates and have verify

 ;   fields still work )

 I $L(X)>30!($L(X)<3)!'(X'?1P.E) K X Q  ; Length 3-30

 I X'?2A.E K X Q                        ; Must begin with namespace

 I $D(^XTV(8989.52,"B",X)) D  Q         ; No duplicates

 . K X D EN^DDIOL("Duplicate template names not allowed.")

 Q

XPARDD2   ;SLC/KCM - DD Logic for Parameter Template (8989.52) [ 04/02/2003   8:47 AM ]

 +1       ;;7.3;TOOLKIT;**1001**;APR 1, 2003

 +2       ;;7.3;TOOLKIT;**26**;Apr 25, 1995

 +3       ;

VALID01   ; -- Input transform for NAME (8989.51,.01), prevent duplicate names

 +1       ; ( Need to figure out how to check for duplicates and have verify

 +2       ;   fields still work )

 +3       ; Length 3-30

           IF $LENGTH(X)>30!($LENGTH(X)<3)!'(X'?1P.E)

               KILL X

               QUIT 

 +4       ; Must begin with namespace

           IF X'?2A.E

               KILL X

               QUIT 

 +5       ; No duplicates

           IF $DATA(^XTV(8989.52,"B",X))

               Begin DoDot:1

 +6                KILL X

                   DO EN^DDIOL("Duplicate template names not allowed.")

               End DoDot:1

               QUIT 

 +7        QUIT