PXRMV1X1.m

PXRMV1X1 ; SLC/PJH - Export Parameter Definitions; 05/08/2000

 ;;1.5;CLINICAL REMINDERS;;Jun 19, 2000

 ;;

LOAD ; load data into ^TMP (expects ROOT to be defined)

 S I=1 F  S REF=$T(DATA+I) Q:REF=""  S VAL=$T(DATA+I+1) D

 . S I=I+2,REF=$P(REF,";",3,999),VAL=$P(VAL,";",3,999)

 . S @(ROOT_REF)=VAL

 Q

DATA ; parameter data

 ;;4302,"KEY")

 ;;PXRM PROGRESS NOTE HEADERS^1

 ;;4302,"VAL")

 ;;CLINICAL REMINDER ACTIVITY

PXRMV1X1  ; SLC/PJH - Export Parameter Definitions; 05/08/2000

 +1       ;;1.5;CLINICAL REMINDERS;;Jun 19, 2000

 +2       ;;

LOAD      ; load data into ^TMP (expects ROOT to be defined)

 +1        SET I=1

           FOR 

               SET REF=$TEXT(DATA+I)

               IF REF=""

                   QUIT 

               SET VAL=$TEXT(DATA+I+1)

               Begin DoDot:1

 +2                SET I=I+2

                   SET REF=$PIECE(REF,";",3,999)

                   SET VAL=$PIECE(VAL,";",3,999)

 +3                SET @(ROOT_REF)=VAL

               End DoDot:1

 +4        QUIT 

DATA      ; parameter data

 +1       ;;4302,"KEY")

 +2       ;;PXRM PROGRESS NOTE HEADERS^1

 +3       ;;4302,"VAL")

 +4       ;;CLINICAL REMINDER ACTIVITY