- 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 Apr 23, 2025@18:44:27 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 ;
