| 1 | ORWGTEST ; SLC/STAFF - Graph Test Cache ;5/2/07 09:22
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17, 1997;Build 242
|
|---|
| 3 | ;
|
|---|
| 4 | TEST ;
|
|---|
| 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 | ;
|
|---|
| 13 | TESTING(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
|
|---|
