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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQAQSITE 1423 printed Nov 22, 2024@17:41:28 Page 2
QAQSITE ;HISC/DAD-COMBINED QA SITE PARAMETERS EDIT ;12/7/94 08:13
+1 ;;1.7;QM Integration Module;;07/25/1995
+2 KILL QAQUNDL
SET $PIECE(QAQUNDL,"-",81)=""
QAQ ; *** SHARED PARAMETERS
+1 SET QAQTEMPL="QAQA QAQA SITE PARAMETERS"
SET QAQMSG="Shared Site Parameters (Used by several QA packages)"
+2 DO EDIT
if ($DATA(Y))!('$DATA(DA))
GOTO EXIT
QA0 ; *** OCCURRENCE SCREEN PARAMETERS
+1 SET QAQTEMPL="QAQA QAOS SITE PARAMETERS"
SET QAQMSG="Occurrence Screen Site Parameters"
+2 DO EDIT
if ($DATA(Y))!('$DATA(DA))
GOTO EXIT
QAN ; *** INCIDENT REPORTING PARAMETERS
+1 SET QAQTEMPL="QAQA QAN SITE PARAMETERS"
SET QAQMSG="Incident Reporting Site Parameters"
+2 DO EDIT
if ($DATA(Y))!('$DATA(DA))
GOTO EXIT
QAR ; *** CREDENTIALS TRACKING PARAMETERS
+1 SET QAQTEMPL="QAQA QARC SITE PARAMETERS"
SET QAQMSG="Credentials Tracking Site Parameters"
+2 DO EDIT
if ($DATA(Y))!('$DATA(DA))
GOTO EXIT
QAM ; *** MONITORING SYSTEM PARAMETERS
+1 SET QAQTEMPL="QAQA QAM SITE PARAMETERS"
SET QAQMSG="Clinical Monitoring System Site Parameters"
+2 DO EDIT
if ($DATA(Y))!('$DATA(DA))
GOTO EXIT
QAC ; *** PATIENT REPRESENTATIVE SITE PARAMETERS
+1 SET QAQTEMPL="QAQA QAC SITE PARAMETERS"
SET QAQMSG="Patient Representative Site Parameters"
+2 DO EDIT
if ($DATA(Y))!('$DATA(DA))
GOTO EXIT
EXIT ;
+1 KILL DA,DIE,DR,QAQMSG,QAQTEMPL,QAQUNDL,X,Y
+2 QUIT
EDIT ;
+1 KILL Y
SET DIE="^QA(740,"
SET DA=1
SET DR="["_QAQTEMPL_"]"
+2 SET QAQTEMPL(0)=+$ORDER(^DIE("B",QAQTEMPL,0))
if $DATA(^DIE(QAQTEMPL(0),0))[0
QUIT
+3 DO BOX
DO ^DIE
+4 QUIT
BOX ;
+1 WRITE !!,$EXTRACT(QAQUNDL,1,$LENGTH(QAQMSG)+4),!,"| ",QAQMSG," |",!,$EXTRACT(QAQUNDL,1,$LENGTH(QAQMSG)+4),!
+2 QUIT
