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