ORDDPAPI.m

ORDDPAPI ; SLC/AGP - Misc. Order Dialog functions; 04/11/2006

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17, 1997;Build 242

 ;

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

 ;

ORDDPAPI  ; SLC/AGP - Misc. Order Dialog functions; 04/11/2006

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17, 1997;Build 242

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