QAQSITE.m

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 ---QAQSITE   1423     printed  Apr 09, 2024@21:34                                                                                                                                                                                                        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