VistA Analysis » VistA Reference » RPCs » ORWCV START

ORWCV START

Checks the value of the ORWOR COVER RETRIEVAL parameter and queuesprocesses to build CPRS GUI cover sheet lists as specified in theparameter.

Properties

Property Value
Label START
MUMPS Implementation ORWCV
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method START^ORWCV
Method Comment start cover sheet build in background
Input Parameters DFN, IP, HWND, LOC, NODO, NEWREM
Code
 N ZTIO,ZTRTN,ZTDTH,ZTSAVE,ZTDESC,SECT,BACK,X,I,ORLIST,STR,FILE,NODE,ORHTIME,ORX
S ORHTIME=$H
S LOC=$G(LOC),NODO=";"_$G(NODO),NEWREM=+$G(NEWREM)
D GETLST^XPAR(.ORX,"SYS^PKG","ORWOR COVER RETRIEVAL NEW","Q")
S I=0 F S I=$O(ORX(I)) Q:'I I $D(^ORD(101.24,+ORX(I),0)) S SECT(+$P(^(0),"^",2))=$P(ORX(I),"^",2)
D GETLST^XPAR(.ORLIST,"ALL","ORWCV1 COVERSHEET LIST")
S (VAL,BACK,STR,FILE)=""
F S I=$O(ORLIST(I)) Q:'I I $D(^ORD(101.24,$P(ORLIST(I),"^",2),0)) S X0=^(0) D
. Q:$P(X0,"^",8)'="C"
. S X=$P(X0,"^",2)
. I NODO[(";"_X_";") Q ; if in NODO, dont do section
. S STR=STR_X_";"
. I '$G(SECT(X)) S VAL=VAL_X_";" ; load section in foreground
. E S BACK=BACK_X_";",FILE=FILE_$P(ORLIST(I),"^",2)_";" ; load section in background
Q:BACK=""
S ZTIO="ORW THREAD RESOURCE",ZTRTN="BUILD^ORWCV",ZTDTH=$H
S (ZTSAVE("DFN"),ZTSAVE("IP"),ZTSAVE("HWND"),ZTSAVE("NEWREM"),ZTSAVE("LOC"),ZTSAVE("BACK"),ZTSAVE("FILE"))=""
S ZTDESC="CPRS GUI Background Data Retrieval"
D ^%ZTLOAD I '$D(ZTSK) S VAL=STR Q
S NODE="ORWCV "_IP_"-"_HWND_"-"_DFN
K ^XTMP(NODE)
S ^XTMP(NODE,0)=$$FMADD^XLFDT(DT,1)_U_DT_U_"Background CPRS "_ZTSK
I +$G(^KMPTMP("KMPD-CPRS")) S ^KMPTMP("KMPDT","ORWCV",NODE)=$G(ORHTIME)_"^^"_$G(DUZ)_"^"_$G(IO("CLNM"))

CPRS

File Type Description
Pascal File rCover.pas


Document generated on August 31st 2022, 2:55:43 pm