1 | ORWGAPIF ; SLC/STAFF - Graph Fast Data Retrieval ;11/1/06 12:49
|
---|
2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17, 1997;Build 242
|
---|
3 | ;
|
---|
4 | FASTDATA(DATA,DFN) ; from ORWGAPI
|
---|
5 | I '$G(DFN) Q
|
---|
6 | D FAST(.DATA,DFN,"ALL DATA")
|
---|
7 | Q
|
---|
8 | ;
|
---|
9 | FASTITEM(DATA,DFN) ; from ORWGAPI
|
---|
10 | I '$G(DFN) Q
|
---|
11 | D FAST(.DATA,DFN,"ALL ITEMS")
|
---|
12 | Q
|
---|
13 | ;
|
---|
14 | FASTLABS(DATA,DFN) ; from ORWGAPI
|
---|
15 | I '$G(DFN) Q
|
---|
16 | D FAST(.DATA,DFN,"ALL LABS")
|
---|
17 | Q
|
---|
18 | ;
|
---|
19 | FAST(DATA,DFN,SOURCE) ;
|
---|
20 | I '$L($G(^XTMP("ORGRAPH",0))) Q
|
---|
21 | I '$G(DFN) Q
|
---|
22 | I '$G(DUZ) Q
|
---|
23 | N OK,PATUSER
|
---|
24 | S PATUSER=DFN_U_DUZ
|
---|
25 | S OK=0
|
---|
26 | I $L($O(^XTMP("ORGRAPH",SOURCE,PATUSER,""))) S OK=1
|
---|
27 | D LOG(DFN,DUZ,SOURCE)
|
---|
28 | I 'OK Q
|
---|
29 | L +^XTMP("ORGRAPH",SOURCE,PATUSER):3 I '$T Q ; wait 3 sec for merge
|
---|
30 | S DATA=$NA(^XTMP("ORGRAPH",SOURCE,PATUSER))
|
---|
31 | L -^XTMP("ORGRAPH",SOURCE,PATUSER)
|
---|
32 | Q
|
---|
33 | ;
|
---|
34 | LOG(DFN,USER,SOURCE) ;
|
---|
35 | N GOLD,GNOW,GSTAMP,PATUSER,LINE,SIZE
|
---|
36 | S GOLD=$G(^XTMP("ORGDATA","QT",USER_U_DFN))
|
---|
37 | I 'GOLD Q
|
---|
38 | S GSTAMP=GOLD_U_USER_U_DFN
|
---|
39 | S PATUSER=DFN_U_USER
|
---|
40 | I '$D(^XTMP("ORGDATA","Q",GSTAMP)) Q
|
---|
41 | S GNOW=$$MNOW^ORWGTASK
|
---|
42 | S SIZE=0
|
---|
43 | S LINE=""
|
---|
44 | F S LINE=$O(^XTMP("ORGRAPH",SOURCE,PATUSER,LINE)) Q:LINE="" D
|
---|
45 | . S SIZE=$L(^XTMP("ORGRAPH",SOURCE,PATUSER,LINE))+SIZE
|
---|
46 | I SOURCE="ALL ITEMS" D Q
|
---|
47 | . S $P(^XTMP("ORGDATA","Q",GSTAMP),U,13)=SIZE
|
---|
48 | . I $P($G(^XTMP("ORGDATA","Q",GSTAMP)),U,10)<1 D
|
---|
49 | .. D GSTAMP^ORWGTASK(GSTAMP,GOLD,GNOW,9)
|
---|
50 | . S $P(^XTMP("ORGDATA","Q",GSTAMP),U,10)=(1+$P($G(^XTMP("ORGDATA","Q",GSTAMP)),U,10))
|
---|
51 | I SOURCE="ALL LABS" D Q
|
---|
52 | . S $P(^XTMP("ORGDATA","Q",GSTAMP),U,14)=SIZE
|
---|
53 | . D GSTAMP^ORWGTASK(GSTAMP,GOLD,GNOW,11)
|
---|
54 | I SOURCE="ALL DATA" D Q
|
---|
55 | . S $P(^XTMP("ORGDATA","Q",GSTAMP),U,15)=SIZE
|
---|
56 | . D GSTAMP^ORWGTASK(GSTAMP,GOLD,GNOW,12)
|
---|
57 | Q
|
---|
58 | ;
|
---|