CIAUREG.m

CIAUREG ;MSC/IND/DKM - Various registration actions ;04-May-2006 08:19;DKM

 ;;1.2;CIA UTILITIES;;Mar 20, 2007

 ;;Copyright 2000-2006, Medsphere Systems Corporation

 ;=================================================================

 ; Register a protocol to an extended action protocol

 ; Input: P-Parent protocol

 ;        C-Child protocol

REGPROT(P,C,ERR) ;

 N IENARY,PIEN,AIEN,FDA

 D

 .I '$L(P)!('$L(C)) S ERR="Missing input parameter" Q

 .S IENARY(1)=$$FIND1^DIC(101,"","",P)

 .S AIEN=$$FIND1^DIC(101,"","",C)

 .I 'IENARY(1)!'AIEN S ERR="Unknown protocol name" Q

 .S FDA(101.01,"?+2,"_IENARY(1)_",",.01)=AIEN

 .D UPDATE^DIE("S","FDA","IENARY","ERR")

 Q:$Q $G(ERR)=""

 Q

CIAUREG   ;MSC/IND/DKM - Various registration actions ;04-May-2006 08:19;DKM

 +1       ;;1.2;CIA UTILITIES;;Mar 20, 2007

 +2       ;;Copyright 2000-2006, Medsphere Systems Corporation

 +3       ;=================================================================

 +4       ; Register a protocol to an extended action protocol

 +5       ; Input: P-Parent protocol

 +6       ;        C-Child protocol

REGPROT(P,C,ERR) ;

 +1        NEW IENARY,PIEN,AIEN,FDA

 +2        Begin DoDot:1

 +3            IF '$LENGTH(P)!('$LENGTH(C))

                   SET ERR="Missing input parameter"

                   QUIT 

 +4            SET IENARY(1)=$$FIND1^DIC(101,"","",P)

 +5            SET AIEN=$$FIND1^DIC(101,"","",C)

 +6            IF 'IENARY(1)!'AIEN

                   SET ERR="Unknown protocol name"

                   QUIT 

 +7            SET FDA(101.01,"?+2,"_IENARY(1)_",",.01)=AIEN

 +8            DO UPDATE^DIE("S","FDA","IENARY","ERR")

           End DoDot:1

 +9        IF $QUIT

               QUIT $GET(ERR)=""

 +10       QUIT