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

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 983 bytes
Line 
1ORRCYP01 ; ; Oct 14, 2003@11:51
2 ;;1.0;HEALTHEVET DESKTOP;;Jul 15, 2003
3LOAD ; load data into ^TMP (expects ROOT to be defined)
4 S I=1 F S REF=$T(DATA+I) Q:REF="" S VAL=$T(DATA+I+1) D
5 . S I=I+2,REF=$P(REF,";",3,999),VAL=$P(VAL,";",3,999)
6 . S @(ROOT_REF)=VAL
7 Q
8DATA ; parameter data
9 ;;4473,"KEY")
10 ;;ORRC NURSE EVENT DATE MAX^1
11 ;;4473,"VAL")
12 ;;T+7
13 ;;4474,"KEY")
14 ;;ORRC NURSE EVENT DATE MIN^1
15 ;;4474,"VAL")
16 ;;T
17 ;;4475,"KEY")
18 ;;ORRC NURSE RESULT DATE MAX^1
19 ;;4475,"VAL")
20 ;;T
21 ;;4476,"KEY")
22 ;;ORRC NURSE RESULT DATE MIN^1
23 ;;4476,"VAL")
24 ;;T-2
25 ;;4477,"KEY")
26 ;;ORRC NURSE UNVERIFIED DATE MAX^1
27 ;;4477,"VAL")
28 ;;T
29 ;;4478,"KEY")
30 ;;ORRC NURSE UNVERIFIED DATE MIN^1
31 ;;4478,"VAL")
32 ;;T-2
33 ;;4479,"KEY")
34 ;;ORRC NURSE TEXT ORDER DATE MAX^1
35 ;;4479,"VAL")
36 ;;T
37 ;;4481,"KEY")
38 ;;ORRC NURSE VITALS DATE MAX^1
39 ;;4481,"VAL")
40 ;;T
41 ;;4482,"KEY")
42 ;;ORRC NURSE VITALS DATE MIN^1
43 ;;4482,"VAL")
44 ;;T-7
45 ;;4728,"KEY")
46 ;;ORRC NURSE TEXT ORDER DATE MIN^1
47 ;;4728,"VAL")
48 ;;T-365
Note: See TracBrowser for help on using the repository browser.