source: WorldVistAEHR/trunk/r/CLINICAL_MONITORING_SYSTEM-QAM/QAMAPGRP.m@ 691

Last change on this file since 691 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 568 bytes
RevLine 
[613]1QAMAPGRP ;HISC/DAD-LOAD APPLICATION GROUPS ;9/3/93 13:16
2 ;;1.0;Clinical Monitoring System;;09/13/1993
3EN1 ; *** READ APPLICATION GROUP DEFAULT FILES
4 N QA,QAFILE
5 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 "."
6 Q
7EN2 ; *** APPLICATION GROUP DRIVER ENTRY POINT
8 S QAQANMSP="QAM",QAQAPROG="QAMAPGRP" D EN1^QAQAPGRP
9 Q
10FILE ;;*** APPLICATION GROUP DEFAULT FILES
11 ;;2
12 ;;42
13 ;;37
14 ;;44
15 ;;45.7
16 ;;49
17 ;;80
18 ;;80.1
19 ;;405.2
20 ;;405.3
21 ;;409.1
22 ;;615.5
23 ;;615.6
24 ;;743
Note: See TracBrowser for help on using the repository browser.