- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQAMAPGRP 592 printed Feb 18, 2025@23:08:04 Page 2
- QAMAPGRP ;HISC/DAD-LOAD APPLICATION GROUPS ;9/3/93 13:16
- +1 ;;1.0;Clinical Monitoring System;;09/13/1993
- EN1 ; *** READ APPLICATION GROUP DEFAULT FILES
- +1 NEW QA,QAFILE
- +2 FOR QA=1:1
- SET QAFILE=$PIECE($TEXT(FILE+QA),";;",2)
- if QAFILE'>0
- QUIT
- SET QAFILE(0)=$PIECE($GET(^DIC(QAFILE,0)),"^")
- if QAFILE(0)]""
- SET ^UTILITY($JOB,"QAQA",QAFILE)=QAFILE(0)
- WRITE "."
- +3 QUIT
- EN2 ; *** APPLICATION GROUP DRIVER ENTRY POINT
- +1 SET QAQANMSP="QAM"
- SET QAQAPROG="QAMAPGRP"
- DO EN1^QAQAPGRP
- +2 QUIT
- FILE ;;*** APPLICATION GROUP DEFAULT FILES
- +1 ;;2
- +2 ;;42
- +3 ;;37
- +4 ;;44
- +5 ;;45.7
- +6 ;;49
- +7 ;;80
- +8 ;;80.1
- +9 ;;405.2
- +10 ;;405.3
- +11 ;;409.1
- +12 ;;615.5
- +13 ;;615.6
- +14 ;;743