QAQSITE ;HISC/DAD-COMBINED QA SITE PARAMETERS EDIT ;12/7/94  08:13
 ;;1.7;QM Integration Module;;07/25/1995
 K QAQUNDL S $P(QAQUNDL,"-",81)=""
QAQ ; *** SHARED PARAMETERS
 S QAQTEMPL="QAQA QAQA SITE PARAMETERS",QAQMSG="Shared Site Parameters (Used by several QA packages)"
 D EDIT G:($D(Y))!('$D(DA)) EXIT
QA0 ; *** OCCURRENCE SCREEN PARAMETERS
 S QAQTEMPL="QAQA QAOS SITE PARAMETERS",QAQMSG="Occurrence Screen Site Parameters"
 D EDIT G:($D(Y))!('$D(DA)) EXIT
QAN ; *** INCIDENT REPORTING PARAMETERS
 S QAQTEMPL="QAQA QAN SITE PARAMETERS",QAQMSG="Incident Reporting Site Parameters"
 D EDIT G:($D(Y))!('$D(DA)) EXIT
QAR ; *** CREDENTIALS TRACKING PARAMETERS
 S QAQTEMPL="QAQA QARC SITE PARAMETERS",QAQMSG="Credentials Tracking Site Parameters"
 D EDIT G:($D(Y))!('$D(DA)) EXIT
QAM ; *** MONITORING SYSTEM PARAMETERS
 S QAQTEMPL="QAQA QAM SITE PARAMETERS",QAQMSG="Clinical Monitoring System Site Parameters"
 D EDIT G:($D(Y))!('$D(DA)) EXIT
QAC ; *** PATIENT REPRESENTATIVE SITE PARAMETERS
 S QAQTEMPL="QAQA QAC SITE PARAMETERS",QAQMSG="Patient Representative Site Parameters"
 D EDIT G:($D(Y))!('$D(DA)) EXIT
EXIT ;
 K DA,DIE,DR,QAQMSG,QAQTEMPL,QAQUNDL,X,Y
 Q
EDIT ;
 K Y S DIE="^QA(740,",DA=1,DR="["_QAQTEMPL_"]"
 S QAQTEMPL(0)=+$O(^DIE("B",QAQTEMPL,0)) Q:$D(^DIE(QAQTEMPL(0),0))[0
 D BOX,^DIE
 Q
BOX ;
 W !!,$E(QAQUNDL,1,$L(QAQMSG)+4),!,"| ",QAQMSG," |",!,$E(QAQUNDL,1,$L(QAQMSG)+4),!
 Q