Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
983 bytes
|
Rev | Line | |
---|
[628] | 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.