| [613] | 1 | ORDDPAPI ; SLC/AGP - Misc. Order Dialog functions; 04/11/2006
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17, 1997;Build 242
|
|---|
| 3 | ;
|
|---|
| 4 | ADMTIME(ORARRAY) ;
|
|---|
| 5 | N ERR,I
|
|---|
| 6 | D GETWP^XPAR(.X,"SYS","OR ADMIN TIME HELP TEXT",,.ERR)
|
|---|
| 7 | S I=0 F S I=$O(X(I)) Q:I'>0 S ORARRAY(I)=$G(X(I,0))
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | LRD1() ;
|
|---|
| 11 | N IEN
|
|---|
| 12 | K ^TMP($J,"ORDDPAPI LRD1")
|
|---|
| 13 | D ZERO^PSS51P1("","ONE TIME","LR",,"ORDDPAPI LRD1")
|
|---|
| 14 | I $G(^TMP($J,"ORDDPAPI LRD1",0))'>0 Q ""
|
|---|
| 15 | S IEN=$O(^TMP($J,"ORDDPAPI LRD1","B","ONE TIME",""))
|
|---|
| 16 | K ^TMP($J,"ORDDPAPI LRD1")
|
|---|
| 17 | Q IEN
|
|---|
| 18 | ;
|
|---|
| 19 | LRD2(IEN) ;
|
|---|
| 20 | N RESULT
|
|---|
| 21 | K ^TMP($J,"ORDDPAPI LRD2")
|
|---|
| 22 | D ZERO^PSS51P1(IEN,,,,"ORDDPAPI LRD2")
|
|---|
| 23 | S RESULT=$P($G(^TMP($J,"ORDDPAPI LRD2",IEN,5)),U)
|
|---|
| 24 | K ^TMP($J,"ORDDPAPI LRD2")
|
|---|
| 25 | Q RESULT
|
|---|
| 26 | ;
|
|---|
| 27 | CLOZMSG(ORARRAY) ;
|
|---|
| 28 | N ERR,I
|
|---|
| 29 | D GETWP^XPAR(.X,"SYS","OR CLOZ INPT MSG",,.ERR)
|
|---|
| 30 | S I=0 F S I=$O(X(I)) Q:I'>0 S ORARRAY(I)=$G(X(I,0))
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
