source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORDDPAPI.m@ 1150

Last change on this file since 1150 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 831 bytes
Line 
1ORDDPAPI ; SLC/AGP - Misc. Order Dialog functions; 04/11/2006
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17, 1997;Build 242
3 ;
4ADMTIME(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 ;
10LRD1() ;
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 ;
19LRD2(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 ;
27CLOZMSG(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 ;
Note: See TracBrowser for help on using the repository browser.