Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORDDPAPI

ORDDPAPI.m

Go to the documentation of this file. 
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

 ;