- 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 Feb 18, 2025@23:57:58 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