| 1 | QAQSITE ;HISC/DAD-COMBINED QA SITE PARAMETERS EDIT ;12/7/94 08:13
|
|---|
| 2 | ;;1.7;QM Integration Module;;07/25/1995
|
|---|
| 3 | K QAQUNDL S $P(QAQUNDL,"-",81)=""
|
|---|
| 4 | QAQ ; *** SHARED PARAMETERS
|
|---|
| 5 | S QAQTEMPL="QAQA QAQA SITE PARAMETERS",QAQMSG="Shared Site Parameters (Used by several QA packages)"
|
|---|
| 6 | D EDIT G:($D(Y))!('$D(DA)) EXIT
|
|---|
| 7 | QA0 ; *** OCCURRENCE SCREEN PARAMETERS
|
|---|
| 8 | S QAQTEMPL="QAQA QAOS SITE PARAMETERS",QAQMSG="Occurrence Screen Site Parameters"
|
|---|
| 9 | D EDIT G:($D(Y))!('$D(DA)) EXIT
|
|---|
| 10 | QAN ; *** INCIDENT REPORTING PARAMETERS
|
|---|
| 11 | S QAQTEMPL="QAQA QAN SITE PARAMETERS",QAQMSG="Incident Reporting Site Parameters"
|
|---|
| 12 | D EDIT G:($D(Y))!('$D(DA)) EXIT
|
|---|
| 13 | QAR ; *** CREDENTIALS TRACKING PARAMETERS
|
|---|
| 14 | S QAQTEMPL="QAQA QARC SITE PARAMETERS",QAQMSG="Credentials Tracking Site Parameters"
|
|---|
| 15 | D EDIT G:($D(Y))!('$D(DA)) EXIT
|
|---|
| 16 | QAM ; *** MONITORING SYSTEM PARAMETERS
|
|---|
| 17 | S QAQTEMPL="QAQA QAM SITE PARAMETERS",QAQMSG="Clinical Monitoring System Site Parameters"
|
|---|
| 18 | D EDIT G:($D(Y))!('$D(DA)) EXIT
|
|---|
| 19 | QAC ; *** PATIENT REPRESENTATIVE SITE PARAMETERS
|
|---|
| 20 | S QAQTEMPL="QAQA QAC SITE PARAMETERS",QAQMSG="Patient Representative Site Parameters"
|
|---|
| 21 | D EDIT G:($D(Y))!('$D(DA)) EXIT
|
|---|
| 22 | EXIT ;
|
|---|
| 23 | K DA,DIE,DR,QAQMSG,QAQTEMPL,QAQUNDL,X,Y
|
|---|
| 24 | Q
|
|---|
| 25 | EDIT ;
|
|---|
| 26 | K Y S DIE="^QA(740,",DA=1,DR="["_QAQTEMPL_"]"
|
|---|
| 27 | S QAQTEMPL(0)=+$O(^DIE("B",QAQTEMPL,0)) Q:$D(^DIE(QAQTEMPL(0),0))[0
|
|---|
| 28 | D BOX,^DIE
|
|---|
| 29 | Q
|
|---|
| 30 | BOX ;
|
|---|
| 31 | W !!,$E(QAQUNDL,1,$L(QAQMSG)+4),!,"| ",QAQMSG," |",!,$E(QAQUNDL,1,$L(QAQMSG)+4),!
|
|---|
| 32 | Q
|
|---|
