|
Last change
on this file since 1042 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
566 bytes
|
| Line | |
|---|
| 1 | ORX4 ; SLC/MKB - OE/RR Orders file extract utilities ;9/30/97 14:58
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
|
|---|
| 3 | VALUE(IFN,ID,INST,FORMAT) ; -- Returns value of prompt by ID
|
|---|
| 4 | I '$G(IFN)!('$D(^OR(100,+$G(IFN),0)))!($G(ID)="") Q ""
|
|---|
| 5 | N I,Y S I=0,Y="" S:'$G(INST) INST=1
|
|---|
| 6 | F S I=$O(^OR(100,+IFN,4.5,"ID",ID,I)) Q:I'>0 I $P($G(^OR(100,+IFN,4.5,+I,0)),U,3)=INST S PRMT=+$P(^(0),U,2),Y=$G(^(1)) Q
|
|---|
| 7 | I $L(Y),$G(PRMT),$G(FORMAT)="E" D ; get external form of Y
|
|---|
| 8 | . N ORDIALOG S ORDIALOG(PRMT,0)=$G(^ORD(101.41,PRMT,1))
|
|---|
| 9 | . S ORDIALOG(PRMT,1)=Y,Y=$$EXT^ORCD(PRMT,1)
|
|---|
| 10 | Q Y
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
