source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWGTEST.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.3 KB
Line 
1ORWGTEST ; SLC/STAFF - Graph Test Cache ;5/2/07 09:22
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17, 1997;Build 242
3 ;
4TEST ;
5 N DFN,TASKED
6 ;D CLEAN^ORWGTASK
7 ;D INIT^ORWGTASK(1)
8 S ^XTMP("ORGDATA","TU",DUZ)=$$NOW^ORWGAPIX
9 S DFN=40
10 D UPDATE^ORWGTASK(.TASKED,DFN,DUZ,0)
11 Q
12 ;
13TESTING(DATA) ; from ORWGAPI
14 N CNT,DFN,LINE,SUB,TMP,USER
15 K ^TMP("ORWGRPC",$J)
16 D RETURN^ORWGAPIW(.TMP,.DATA)
17 S CNT=0
18 S SUB=""
19 F S SUB=$O(^XTMP("ORGDATA","Q",SUB)) Q:SUB="" D
20 . S LINE=^XTMP("ORGDATA","Q",SUB)
21 . D SETUP^ORWGAPIW(.DATA,LINE,TMP,.CNT)
22 S USER=""
23 F S USER=$O(^XTMP("ORGDATA","U",USER)) Q:USER="" D
24 . S LINE="u^"_USER
25 . S LINE=LINE_U_+$G(^XTMP("ORGDATA","U",USER,"C"))
26 . S LINE=LINE_U_+$G(^XTMP("ORGDATA","U",USER,"CG"))
27 . D SETUP^ORWGAPIW(.DATA,LINE,TMP,.CNT)
28 . S DFN=""
29 . F S DFN=$O(^XTMP("ORGDATA","U",USER,"C-P",DFN)) Q:DFN="" D
30 .. S LINE="u^"_USER_"^p^"_DFN
31 .. S LINE=LINE_U_+$G(^XTMP("ORGDATA","U",USER,"C-P",DFN))
32 .. S LINE=LINE_U_+$G(^XTMP("ORGDATA","U",USER,"CG-P",DFN))
33 .. D SETUP^ORWGAPIW(.DATA,LINE,TMP,.CNT)
34 S DFN=""
35 F S DFN=$O(^XTMP("ORGDATA","P",DFN)) Q:DFN="" D
36 . S LINE="p^"_DFN
37 . S LINE=LINE_U_+$G(^XTMP("ORGDATA","P",DFN,"C"))
38 . S LINE=LINE_U_+$G(^XTMP("ORGDATA","P",DFN,"CG"))
39 . D SETUP^ORWGAPIW(.DATA,LINE,TMP,.CNT)
40 . S USER=""
41 . F S USER=$O(^XTMP("ORGDATA","P",DFN,"C-P",USER)) Q:USER="" D
42 .. S LINE="p^"_DFN_"^u^"_USER
43 .. S LINE=LINE_U_+$G(^XTMP("ORGDATA","P",DFN,"C-P",USER))
44 .. S LINE=LINE_U_+$G(^XTMP("ORGDATA","P",DFN,"CG-P",USER))
45 .. D SETUP^ORWGAPIW(.DATA,LINE,TMP,.CNT)
46 S DFN=""
47 F S DFN=$O(^XTMP("ORGRAPH","LAST BUILD",DFN)) Q:DFN="" D
48 . S LINE="b^"_DFN_U_+$G(^XTMP("ORGRAPH","LAST BUILD",DFN))
49 . D SETUP^ORWGAPIW(.DATA,LINE,TMP,.CNT)
50 S DFN=""
51 F S DFN=$O(^XTMP("ORGRAPH","OLD DATA",DFN)) Q:DFN="" D
52 . S SUB=""
53 . F S SUB=$O(^XTMP("ORGRAPH","OLD DATA",DFN,SUB)) Q:SUB="" D
54 .. S LINE="d^"_DFN_U_SUB
55 .. ;S LINE=LINE_U_$G(^XTMP("ORGRAPH","OLD DATA",DFN,SUB))
56 .. S LINE=LINE_U_($L(LINE)+$L($G(^XTMP("ORGRAPH","OLD DATA",DFN,SUB))))
57 .. D SETUP^ORWGAPIW(.DATA,LINE,TMP,.CNT)
58 S DFN=""
59 F S DFN=$O(^XTMP("ORGRAPH","OLD LABS",DFN)) Q:DFN="" D
60 . S SUB=""
61 . F S SUB=$O(^XTMP("ORGRAPH","OLD LABS",DFN,SUB)) Q:SUB="" D
62 .. S LINE="l^"_DFN_U_SUB
63 .. ;S LINE=LINE_U_$G(^XTMP("ORGRAPH","OLD LABS",DFN,SUB))
64 .. S LINE=LINE_U_($L(LINE)+$L($G(^XTMP("ORGRAPH","OLD LABS",DFN,SUB))))
65 .. D SETUP^ORWGAPIW(.DATA,LINE,TMP,.CNT)
66 Q
Note: See TracBrowser for help on using the repository browser.