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

QAMAPGRP.m

Go to the documentation of this file.
  1. QAMAPGRP ;HISC/DAD-LOAD APPLICATION GROUPS ;9/3/93 13:16
  1. ;;1.0;Clinical Monitoring System;;09/13/1993
  1. EN1 ; *** READ APPLICATION GROUP DEFAULT FILES
  1. N QA,QAFILE
  1. 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 "."
  1. Q
  1. EN2 ; *** APPLICATION GROUP DRIVER ENTRY POINT
  1. S QAQANMSP="QAM",QAQAPROG="QAMAPGRP" D EN1^QAQAPGRP
  1. Q
  1. FILE ;;*** APPLICATION GROUP DEFAULT FILES
  1. ;;2
  1. ;;42
  1. ;;37
  1. ;;44
  1. ;;45.7
  1. ;;49
  1. ;;80
  1. ;;80.1
  1. ;;405.2
  1. ;;405.3
  1. ;;409.1
  1. ;;615.5
  1. ;;615.6
  1. ;;743