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 | ;
|
---|