| 1 | QAMSANE ;HISC/DAD-MONITOR SANITY CHECK ;9/10/93 14:35
|
|---|
| 2 | ;;1.0;Clinical Monitoring System;;09/13/1993
|
|---|
| 3 | ;
|
|---|
| 4 | ;Checks monitor with internal entry number QAMD0 for correctness.
|
|---|
| 5 | ;If the monitor is ok Y is returned as 1. If The monitor is not
|
|---|
| 6 | ;ok Y will be returned as -1. Error messages will also be printed
|
|---|
| 7 | ;if QAMMSGS contains an 'E'. Warning messages will also be printed
|
|---|
| 8 | ;if QAMMSGS contains a 'W' (in addition to an 'E'). No messsages
|
|---|
| 9 | ;will be printed if QAMMSGS is undefined or null.
|
|---|
| 10 | ;
|
|---|
| 11 | ; Required variables
|
|---|
| 12 | ; QAMD0 = IEN of a monitor (file #743)
|
|---|
| 13 | ; QAMMSGS = <UNDEF> or Null - Do not display any messages
|
|---|
| 14 | ; E - Display error messages only
|
|---|
| 15 | ; EW - Display error and warning messages
|
|---|
| 16 | ;
|
|---|
| 17 | S Y=1 G EXIT:$D(QAMD0)[0,EXIT:QAMD0'?1N.N
|
|---|
| 18 | N QAMZERO,QAMONE,QAMTHRES,QAMERR,X
|
|---|
| 19 | S QAMZERO=$G(^QA(743,QAMD0,0)),QAMONE=$G(^QA(743,QAMD0,1))
|
|---|
| 20 | S QAMTHRES=$P(QAMONE,"^",3),QAMMSGS=$G(QAMMSGS)
|
|---|
| 21 | I QAMMSGS["E" W !!,"Checking monitor..."
|
|---|
| 22 | I QAMZERO="" S QAMERR=1 D ERROR G DONE ; Monitor exists
|
|---|
| 23 | I $P(QAMZERO,"^",4)="" S QAMERR=2 D ERROR ; Auto enroll monitor
|
|---|
| 24 | I $O(^QA(743,QAMD0,"COND",0))'>0 S QAMERR=3 D ERROR ; No conditions
|
|---|
| 25 | I $G(^QA(743,QAMD0,"REL"))="" S QAMERR=4 D ERROR ; Fall out relate
|
|---|
| 26 | I $G(^QA(743,QAMD0,"SMP"))="",$O(^QA(743,QAMD0,"COND","AS",0)) S QAMERR=5 D ERROR ; Sample size relate
|
|---|
| 27 | I $P(QAMONE,"^",15)'>0 S QAMERR=6 D ERROR ; Cond for date of event
|
|---|
| 28 | I $P(QAMONE,"^")'>0 S QAMERR=7 D ERROR ; Time frame
|
|---|
| 29 | I QAMTHRES="" S QAMERR=8 D ERROR ; Threshold
|
|---|
| 30 | I QAMTHRES["%",$P(QAMONE,"^",2)'>0 S QAMERR=9 D ERROR ; Minimum sample
|
|---|
| 31 | I QAMTHRES,QAMTHRES'["%",$P(QAMONE,"^",2)>QAMTHRES S QAMERR=10 D ERROR ; Pre-threshold alert level > threshold
|
|---|
| 32 | I QAMTHRES["%",$P(QAMONE,"^",4)="" S QAMERR=11 D ERROR ; Hi/Lo percent
|
|---|
| 33 | I $P(QAMONE,"^",9),$G(^QA(743,QAMD0,"WSR"))="" S QAMERR=12 D ERROR ; Print daily worksheets and no worksheet routine
|
|---|
| 34 | I $P(QAMONE,"^",10,12)["1",$P(QAMONE,"^",13)'>0 S QAMERR=13 D ERROR ; Bulletin mail group
|
|---|
| 35 | I $P(QAMONE,"^",6)'>0 S QAMERR=14 D ERROR ; Start date
|
|---|
| 36 | I $P(QAMONE,"^",6),$P(QAMONE,"^",7),$P(QAMONE,"^",7)<$P(QAMONE,"^",6) S QAMERR=15 D ERROR ; End date < Start date
|
|---|
| 37 | I $P(QAMONE,"^",5)'>0 S QAMERR=16 D ERROR ; On/Off switch
|
|---|
| 38 | DONE I QAMMSGS["E" W !,$S(Y=1:"No errors found.",Y=-1:"All errors must be corrected in order for this monitor to run !!",1:""),!
|
|---|
| 39 | EXIT K QAMMSGS
|
|---|
| 40 | Q
|
|---|
| 41 | ERROR ; *** Set error flag (Y=-1) optionally write error message
|
|---|
| 42 | S X=$P($T(ERRMSG+QAMERR),";;",2)
|
|---|
| 43 | S:X Y=-1 Q:QAMMSGS="" Q:(X'>0)&(QAMMSGS'["W")
|
|---|
| 44 | W !?2,$S(X:"*ERROR*",1:"Warning"),": ",$P(X,"^",2)
|
|---|
| 45 | Q
|
|---|
| 46 | ERRMSG ;;$S(1:"*ERROR*",0:"Warning") ^ Monitor error and warning messages
|
|---|
| 47 | ;;1^Monitor not found
|
|---|
| 48 | ;;1^AUTO ENROLL MONITOR not specified
|
|---|
| 49 | ;;1^No CONDITIONS specified
|
|---|
| 50 | ;;1^FALL OUT RELATIONSHIP not specified
|
|---|
| 51 | ;;0^SAMPLE RELATIONSHIP not specified
|
|---|
| 52 | ;;1^CONDITION FOR DATE OF EVENT not specified
|
|---|
| 53 | ;;0^TIME FRAME not specified
|
|---|
| 54 | ;;0^THRESHOLD not specified
|
|---|
| 55 | ;;0^MINIMUM SAMPLE not specified
|
|---|
| 56 | ;;0^PRE-THRESHOLD ALERT LEVEL greater than THRESHOLD
|
|---|
| 57 | ;;0^HI/LO PERCENT not specified
|
|---|
| 58 | ;;0^PRINT DAILY WORKSHEETS selected, WORKSHEET ROUTINE not specified
|
|---|
| 59 | ;;0^BULLETIN MAIL GROUP not specified
|
|---|
| 60 | ;;1^START DATE not specified
|
|---|
| 61 | ;;1^END DATE is less than the START DATE
|
|---|
| 62 | ;;0^ON/OFF SWITCH is turned off
|
|---|
