QAMAPGRP ;HISC/DAD-LOAD APPLICATION GROUPS ;9/3/93  13:16
 ;;1.0;Clinical Monitoring System;;09/13/1993
EN1 ; *** READ APPLICATION GROUP DEFAULT FILES
 N QA,QAFILE
 F QA=1:1 S QAFILE=$P($T(FILE+QA),";;",2) Q:QAFILE'>0  S QAFILE(0)=$P($G(^DIC(QAFILE,0)),"^") S:QAFILE(0)]"" ^UTILITY($J,"QAQA",QAFILE)=QAFILE(0) W "."
 Q
EN2 ; *** APPLICATION GROUP DRIVER ENTRY POINT
 S QAQANMSP="QAM",QAQAPROG="QAMAPGRP" D EN1^QAQAPGRP
 Q
FILE ;;*** APPLICATION GROUP DEFAULT FILES
 ;;2
 ;;42
 ;;37
 ;;44
 ;;45.7
 ;;49
 ;;80
 ;;80.1
 ;;405.2
 ;;405.3
 ;;409.1
 ;;615.5
 ;;615.6
 ;;743