ORDDPAPI ; SLC/AGP - Misc. Order Dialog functions;02/26/16 09:42
;;3.0;ORDER ENTRY/RESULTS REPORTING;**243,377**;Dec 17, 1997;Build 582
;
ADMTIME(ORARRAY) ;
N ERR,I
D GETWP^XPAR(.X,"SYS","OR ADMIN TIME HELP TEXT",,.ERR)
S I=0 F S I=$O(X(I)) Q:I'>0 S ORARRAY(I)=$G(X(I,0))
Q
;
LRD1() ;
N IEN
K ^TMP($J,"ORDDPAPI LRD1")
D ZERO^PSS51P1("","ONE TIME","LR",,"ORDDPAPI LRD1")
I $G(^TMP($J,"ORDDPAPI LRD1",0))'>0 Q ""
S IEN=$O(^TMP($J,"ORDDPAPI LRD1","B","ONE TIME",""))
K ^TMP($J,"ORDDPAPI LRD1")
Q IEN
;
LRD2(IEN) ;
N RESULT
K ^TMP($J,"ORDDPAPI LRD2")
D ZERO^PSS51P1(IEN,,,,"ORDDPAPI LRD2")
S RESULT=$P($G(^TMP($J,"ORDDPAPI LRD2",IEN,5)),U)
K ^TMP($J,"ORDDPAPI LRD2")
Q RESULT
;
CLOZMSG(ORARRAY) ;
N ERR,I
D GETWP^XPAR(.X,"SYS","OR CLOZ INPT MSG",,.ERR)
S I=0 F S I=$O(X(I)) Q:I'>0 S ORARRAY(I)=$G(X(I,0))
Q
;
RLSMSG(ORARRAY) ;
N ERR,I
D GETWP^XPAR(.X,"SYS^PKG","OR RELEASE FORM TEXT",,.ERR)
S I=0 F S I=$O(X(I)) Q:I'>0 S ORARRAY(I)=$G(X(I,0))
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORDDPAPI 1023 printed Nov 22, 2024@17:39:50 Page 2
ORDDPAPI ; SLC/AGP - Misc. Order Dialog functions;02/26/16 09:42
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243,377**;Dec 17, 1997;Build 582
+2 ;
ADMTIME(ORARRAY) ;
+1 NEW ERR,I
+2 DO GETWP^XPAR(.X,"SYS","OR ADMIN TIME HELP TEXT",,.ERR)
+3 SET I=0
FOR
SET I=$ORDER(X(I))
if I'>0
QUIT
SET ORARRAY(I)=$GET(X(I,0))
+4 QUIT
+5 ;
LRD1() ;
+1 NEW IEN
+2 KILL ^TMP($JOB,"ORDDPAPI LRD1")
+3 DO ZERO^PSS51P1("","ONE TIME","LR",,"ORDDPAPI LRD1")
+4 IF $GET(^TMP($JOB,"ORDDPAPI LRD1",0))'>0
QUIT ""
+5 SET IEN=$ORDER(^TMP($JOB,"ORDDPAPI LRD1","B","ONE TIME",""))
+6 KILL ^TMP($JOB,"ORDDPAPI LRD1")
+7 QUIT IEN
+8 ;
LRD2(IEN) ;
+1 NEW RESULT
+2 KILL ^TMP($JOB,"ORDDPAPI LRD2")
+3 DO ZERO^PSS51P1(IEN,,,,"ORDDPAPI LRD2")
+4 SET RESULT=$PIECE($GET(^TMP($JOB,"ORDDPAPI LRD2",IEN,5)),U)
+5 KILL ^TMP($JOB,"ORDDPAPI LRD2")
+6 QUIT RESULT
+7 ;
CLOZMSG(ORARRAY) ;
+1 NEW ERR,I
+2 DO GETWP^XPAR(.X,"SYS","OR CLOZ INPT MSG",,.ERR)
+3 SET I=0
FOR
SET I=$ORDER(X(I))
if I'>0
QUIT
SET ORARRAY(I)=$GET(X(I,0))
+4 QUIT
+5 ;
RLSMSG(ORARRAY) ;
+1 NEW ERR,I
+2 DO GETWP^XPAR(.X,"SYS^PKG","OR RELEASE FORM TEXT",,.ERR)
+3 SET I=0
FOR
SET I=$ORDER(X(I))
if I'>0
QUIT
SET ORARRAY(I)=$GET(X(I,0))
+4 QUIT
+5 ;
