Last change
on this file since 1424 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
983 bytes
|
Line | |
---|
1 | ORRCYP01 ; ; Oct 14, 2003@11:51
|
---|
2 | ;;1.0;HEALTHEVET DESKTOP;;Jul 15, 2003
|
---|
3 | LOAD ; 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
|
---|
8 | DATA ; 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.