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"))
|