source: WorldVistAEHR/trunk/r/CLINICAL_MONITORING_SYSTEM-QAM/QAMPBMW1.m@ 1710

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

initial load of WorldVistAEHR

File size: 3.7 KB
RevLine 
[613]1QAMPBMW1 ;HISC/DAD-BUILD A MONITOR WORKSHEET ;4/9/93 09:01
2 ;;1.0;Clinical Monitoring System;;09/13/1993
3 K UNDL S $P(UNDL,"_",81)="",QAOSQUIT=0
4 I QAOSCPY=1,$E(IOST)="C" D FF
5 W !?27,"Build a Monitor Worksheet"
6 S X="1. Shortened code name or number: ",X=X_$E(UNDL,1,80-$L(X)) W !!,X
7 S X="2. Title: ",X=X_$E(UNDL,1,80-$L(X)) W !!,X
8 S X="3. Service: ",X=X_$E(UNDL,1,80-$L(X)) W !!,X
9 S X="4. Standard of Care: ",X=X_$E(UNDL,1,80-$L(X)) W !!,X
10 F QA=1:1:6 W !!,UNDL
11 D PAUSE Q:QAOSQUIT
12 S X="5. Clinical Indicator: ",X=X_$E(UNDL,1,80-$L(X)) W !!,X
13 F QA=1:1:6 W !!,UNDL
14 W !!,"6. Rationale(s):"
15 W ! D EN^QAMPBMW0("^QA(743.91,")
16 D PAUSE Q:QAOSQUIT
17 S X="Rationale Explanation: ",X=X_$E(UNDL,1,80-$L(X)) W !!,X
18 F QA=1:1:6 W !!,UNDL
19 W !!,"7. Auto Enroll Monitor: Yes / No"
20 D PAUSE Q:QAOSQUIT
21 D FF
22 W !,"8. Conditions that apply: (Number each to aid you in answering questions"
23 W !,"related to conditions.)"
24 W ! D EN^QAMPBMW0("^QA(743.3,")
25 D PAUSE Q:QAOSQUIT
26 W !!,"Do any of the conditions require the development of a group? If so, use the"
27 W !,"Group Edit option to build the needed group(s). See the condition description"
28 W !,"for what groups are needed and their parent files."
29 F QA=1:1:3 D
30 . S X="Group Name: ",X=X_$E(UNDL,1,38-$L(X)) W !!,X
31 . S X="Parent File: ",X=X_$E(UNDL,1,40-$L(X)) W ?40,X
32 . S X="Group Members: ",X=X_$E(UNDL,1,80-$L(X)) W !!,X
33 . Q
34 D PAUSE Q:QAOSQUIT
35 S X="What other information is required by each condition?"
36 S X=X_$E(UNDL,1,80-$L(X)) W !!,X
37 F QA=1:1:4 W !!,UNDL
38 W !!,"Which conditions define the denominator (sample)?"
39 F QA=1:1:2 W !!,$E(UNDL,1,24),?28,$E(UNDL,1,24),?56,$E(UNDL,1,24)
40 W !!,"9. Choose which conditions define the fall outs and what is their relationship"
41 W !,"to each other? Use & (and), ! (or), ' (not), and parentheses () to specify the"
42 W !,"relationship between two or more conditions. Example: (C1&C2)!(C3&C4)"
43 W !!,UNDL
44 D PAUSE Q:QAOSQUIT
45 D FF
46 W !,"10. What is the relationship between the conditions that define the denominator"
47 W !,"(sample)? Use & (and), ! (or), ' (not), and parentheses () to specify the"
48 W !,"relationship between two or more conditions. Example: (C1&C2)!(C3!C4)"
49 W !!,UNDL
50 S X="11. What condition defines the date of the event: "
51 S X=X_$E(UNDL,1,80-$L(X)) W !!,X
52 W !!,"12. Time Frame: (Choose only one.)"
53 W ! D EN^QAMPBMW0("^QA(743.92,")
54 S X="13. Threshold: ",X=X_$E(UNDL,1,80-$L(X)) W !!,X
55 W !,"If this is a percent threshold, should the threshold be met when the calculated"
56 W !,"percentage is (high) >= or (low) <= the threshold."
57 D PAUSE Q:QAOSQUIT
58 S X="14. For percent thresholds, the Minimum Sample Size: "
59 S X=X_$E(UNDL,1,80-$L(X)) W !!,X
60 S X=" For numeric thresholds, the Pre-Threshold Alert Level: "
61 S X=X_$E(UNDL,1,80-$L(X)) W !!,X
62 W !!,"15. Do you want to allow 'duplicate' fall outs during the time frame: Yes / No"
63 W !!,"16. Other Data to Capture: Review the list of data elements for each condition"
64 W !,"you are using to select a list for capture with each fall out."
65 F QA=1:1:4 W !!,$E(UNDL,1,39),?40,$E(UNDL,1,40)
66 D PAUSE Q:QAOSQUIT
67 W !!,"17. Do you want to print: 1) Daily fall out list: Yes / No"
68 W !," 2) Daily worksheets: Yes / No"
69 W !!,"18. Do you want a bulletin: 1) When threshold met: Yes / No"
70 W !," 2) At end of time frame: Yes / No"
71 W !," 3) When alert level met: Yes / No"
72 S X="19. What mail group will receive the bulletins: "
73 S X=X_$E(UNDL,1,80-$L(X)) W !!,X
74 S X="20. Start Date: ",X=X_$E(UNDL,1,80-$L(X)) W !!,X
75 S X=" End Date: ",X=X_$E(UNDL,1,80-$L(X)) W !!,X
76 W !!,"21. Remember to turn it ON and mark it as FINISHED."
77 D PAUSE Q:QAOSQUIT
78 Q
79FF ;
80 W @IOF
81 Q
82PAUSE ;
83 Q:$E(IOST)'="C" K DIR S DIR(0)="E" D ^DIR S QAOSQUIT=$S(Y'>0:1,1:0)
84 Q
Note: See TracBrowser for help on using the repository browser.