Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: QAQSITE

QAQSITE.m

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