| [613] | 1 | LR140P ;DAL/HOAK - TEST REVIEWER;060697 0800 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;**140,171**;Sep 27, 1994
|
|---|
| 3 | ;Environment check is done only during the install.
|
|---|
| 4 | ;
|
|---|
| 5 | INIT ;
|
|---|
| 6 | K ^TMP("LRBIGD")
|
|---|
| 7 | K DIR
|
|---|
| 8 | ;
|
|---|
| 9 | CONTROL ;
|
|---|
| 10 | W !!,"I'M EXAMINING YOUR DATA NAMES"
|
|---|
| 11 | D LOOK
|
|---|
| 12 | W @IOF
|
|---|
| 13 | W !!,"Now, lets print a list of the BIG'ns.",!!
|
|---|
| 14 | D DEVICE
|
|---|
| 15 | DONE ;
|
|---|
| 16 | ;K ^TMP("LRBIGD")
|
|---|
| 17 | K LRQ,LRIEN,LRCNT,OK,LRNODE
|
|---|
| 18 | Q
|
|---|
| 19 | LOOK ;
|
|---|
| 20 | ;
|
|---|
| 21 | S LRCNT=0
|
|---|
| 22 | S LRQ="^DD(63.04,0)"
|
|---|
| 23 | F S LRQ=$Q(@LRQ) Q:LRQ'["DD(63.04" I @LRQ["K:$L(X)>" D
|
|---|
| 24 | . I +$P(@LRQ,"K:$L(X)>",2)>50 S ^TMP("LRBIGD",LRQ)=@LRQ D
|
|---|
| 25 | .. S LRCNT=LRCNT+1
|
|---|
| 26 | . I IOST["C-" W "::"
|
|---|
| 27 | ;
|
|---|
| 28 | Q
|
|---|
| 29 | ADVICE ;
|
|---|
| 30 | ;
|
|---|
| 31 | ;
|
|---|
| 32 | D LRGLIN^LRX
|
|---|
| 33 | W ?8,"Review the test set-up of the OFFENDING test(s) and consider"
|
|---|
| 34 | W !,?8,"one or more of the following recommendations:"
|
|---|
| 35 | W !,?5,"1. Reduce the length of the test name."
|
|---|
| 36 | W !,?5,"2. Reduce the length of the test result through the"
|
|---|
| 37 | W !,?5," [Modify an existing data name] option."
|
|---|
| 38 | W !,?5,"3. If the result is lengthy free text consider replacing the"
|
|---|
| 39 | W !,?5," old CH subscript test with a new test in a different"
|
|---|
| 40 | W !,?5," subscript area,...to SP for example.",!
|
|---|
| 41 | D LRGLIN^LRX
|
|---|
| 42 | Q
|
|---|
| 43 | DEVICE ;
|
|---|
| 44 | S OK=1
|
|---|
| 45 | S %ZIS="Q"
|
|---|
| 46 | QUE ;
|
|---|
| 47 | S ZTSAVE("LR*")=""
|
|---|
| 48 | S ZTRTN="DQ1^LR140P"
|
|---|
| 49 | S ZTDESC="Lab Patch 140 ^LR report"
|
|---|
| 50 | S ZTSAVE("^TMP(""LRBIGD""")=""
|
|---|
| 51 | D IO^LRWU
|
|---|
| 52 | QUIT
|
|---|
| 53 | DQ1 ;
|
|---|
| 54 | PRINT ;
|
|---|
| 55 | S LRPAGE=1
|
|---|
| 56 | S OK=1
|
|---|
| 57 | U IO
|
|---|
| 58 | D HEAD
|
|---|
| 59 | S LRIEN=""
|
|---|
| 60 | U IO
|
|---|
| 61 | F S LRIEN=$O(^TMP("LRBIGD",LRIEN)) Q:LRIEN="" S LRNODE=^(LRIEN) D
|
|---|
| 62 | . D CHKPG
|
|---|
| 63 | . W !,LRIEN,"=",LRNODE,!
|
|---|
| 64 | QUIT
|
|---|
| 65 | HEAD ;
|
|---|
| 66 | W @IOF
|
|---|
| 67 | W $$RJ^XLFSTR("Page "_LRPAGE,IOM),!
|
|---|
| 68 | W $$CJ^XLFSTR("List of Data Names greater than 50 characters.",IOM),!
|
|---|
| 69 | D ADVICE
|
|---|
| 70 | QUIT
|
|---|
| 71 | CHKPG ;
|
|---|
| 72 | Q:'OK
|
|---|
| 73 | I IOSL-$Y'>3&($E(IOST,1,2)="C-") S DIR(0)="E" D ^DIR K DIR D
|
|---|
| 74 | . W @IOF
|
|---|
| 75 | . I $D(DTOUT)!($D(DUOUT)) S OK=0
|
|---|
| 76 | Q:'OK
|
|---|
| 77 | I IOSL-$Y'>3&($E(IOST,1,2)="P-") S LRPAGE=LRPAGE+1 D HEAD
|
|---|
| 78 | ;
|
|---|
| 79 | QUIT
|
|---|
| 80 | Q
|
|---|
