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 Dec 13, 2024@01:42:31 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
