source: FOIAVistA/trunk/r/CARE_MANAGEMENT-ORRC/ORRCYP01.m@ 794

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