ORRCYP01.m

ORRCYP01 ; ; Oct 14, 2003@11:51

 ;;1.0;HEALTHEVET DESKTOP;;Jul 15, 2003

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

 ;;4473,"KEY")

 ;;ORRC NURSE EVENT DATE MAX^1

 ;;4473,"VAL")

 ;;T+7

 ;;4474,"KEY")

 ;;ORRC NURSE EVENT DATE MIN^1

 ;;4474,"VAL")

 ;;T

 ;;4475,"KEY")

 ;;ORRC NURSE RESULT DATE MAX^1

 ;;4475,"VAL")

 ;;T

 ;;4476,"KEY")

 ;;ORRC NURSE RESULT DATE MIN^1

 ;;4476,"VAL")

 ;;T-2

 ;;4477,"KEY")

 ;;ORRC NURSE UNVERIFIED DATE MAX^1

 ;;4477,"VAL")

 ;;T

 ;;4478,"KEY")

 ;;ORRC NURSE UNVERIFIED DATE MIN^1

 ;;4478,"VAL")

 ;;T-2

 ;;4479,"KEY")

 ;;ORRC NURSE TEXT ORDER DATE MAX^1

 ;;4479,"VAL")

 ;;T

 ;;4481,"KEY")

 ;;ORRC NURSE VITALS DATE MAX^1

 ;;4481,"VAL")

 ;;T

 ;;4482,"KEY")

 ;;ORRC NURSE VITALS DATE MIN^1

 ;;4482,"VAL")

 ;;T-7

 ;;4728,"KEY")

 ;;ORRC NURSE TEXT ORDER DATE MIN^1

 ;;4728,"VAL")

 ;;T-365

ORRCYP01  ; ; Oct 14, 2003@11:51

 +1       ;;1.0;HEALTHEVET DESKTOP;;Jul 15, 2003

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       ;;4473,"KEY")

 +2       ;;ORRC NURSE EVENT DATE MAX^1

 +3       ;;4473,"VAL")

 +4       ;;T+7

 +5       ;;4474,"KEY")

 +6       ;;ORRC NURSE EVENT DATE MIN^1

 +7       ;;4474,"VAL")

 +8       ;;T

 +9       ;;4475,"KEY")

 +10      ;;ORRC NURSE RESULT DATE MAX^1

 +11      ;;4475,"VAL")

 +12      ;;T

 +13      ;;4476,"KEY")

 +14      ;;ORRC NURSE RESULT DATE MIN^1

 +15      ;;4476,"VAL")

 +16      ;;T-2

 +17      ;;4477,"KEY")

 +18      ;;ORRC NURSE UNVERIFIED DATE MAX^1

 +19      ;;4477,"VAL")

 +20      ;;T

 +21      ;;4478,"KEY")

 +22      ;;ORRC NURSE UNVERIFIED DATE MIN^1

 +23      ;;4478,"VAL")

 +24      ;;T-2

 +25      ;;4479,"KEY")

 +26      ;;ORRC NURSE TEXT ORDER DATE MAX^1

 +27      ;;4479,"VAL")

 +28      ;;T

 +29      ;;4481,"KEY")

 +30      ;;ORRC NURSE VITALS DATE MAX^1

 +31      ;;4481,"VAL")

 +32      ;;T

 +33      ;;4482,"KEY")

 +34      ;;ORRC NURSE VITALS DATE MIN^1

 +35      ;;4482,"VAL")

 +36      ;;T-7

 +37      ;;4728,"KEY")

 +38      ;;ORRC NURSE TEXT ORDER DATE MIN^1

 +39      ;;4728,"VAL")

 +40      ;;T-365