QAMAPGRP.m

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 ---QAMAPGRP   592     printed  Oct 16, 2024@17:42:32                                                                                                                                                                                                     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