source: FOIAVistA/trunk/r/QUALITY_ASSURANCE_INTEGRATION-QAQ/QAQSITE.m@ 1755

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

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1QAQSITE ;HISC/DAD-COMBINED QA SITE PARAMETERS EDIT ;12/7/94 08:13
2 ;;1.7;QM Integration Module;;07/25/1995
3 K QAQUNDL S $P(QAQUNDL,"-",81)=""
4QAQ ; *** SHARED PARAMETERS
5 S QAQTEMPL="QAQA QAQA SITE PARAMETERS",QAQMSG="Shared Site Parameters (Used by several QA packages)"
6 D EDIT G:($D(Y))!('$D(DA)) EXIT
7QA0 ; *** OCCURRENCE SCREEN PARAMETERS
8 S QAQTEMPL="QAQA QAOS SITE PARAMETERS",QAQMSG="Occurrence Screen Site Parameters"
9 D EDIT G:($D(Y))!('$D(DA)) EXIT
10QAN ; *** INCIDENT REPORTING PARAMETERS
11 S QAQTEMPL="QAQA QAN SITE PARAMETERS",QAQMSG="Incident Reporting Site Parameters"
12 D EDIT G:($D(Y))!('$D(DA)) EXIT
13QAR ; *** CREDENTIALS TRACKING PARAMETERS
14 S QAQTEMPL="QAQA QARC SITE PARAMETERS",QAQMSG="Credentials Tracking Site Parameters"
15 D EDIT G:($D(Y))!('$D(DA)) EXIT
16QAM ; *** MONITORING SYSTEM PARAMETERS
17 S QAQTEMPL="QAQA QAM SITE PARAMETERS",QAQMSG="Clinical Monitoring System Site Parameters"
18 D EDIT G:($D(Y))!('$D(DA)) EXIT
19QAC ; *** PATIENT REPRESENTATIVE SITE PARAMETERS
20 S QAQTEMPL="QAQA QAC SITE PARAMETERS",QAQMSG="Patient Representative Site Parameters"
21 D EDIT G:($D(Y))!('$D(DA)) EXIT
22EXIT ;
23 K DA,DIE,DR,QAQMSG,QAQTEMPL,QAQUNDL,X,Y
24 Q
25EDIT ;
26 K Y S DIE="^QA(740,",DA=1,DR="["_QAQTEMPL_"]"
27 S QAQTEMPL(0)=+$O(^DIE("B",QAQTEMPL,0)) Q:$D(^DIE(QAQTEMPL(0),0))[0
28 D BOX,^DIE
29 Q
30BOX ;
31 W !!,$E(QAQUNDL,1,$L(QAQMSG)+4),!,"| ",QAQMSG," |",!,$E(QAQUNDL,1,$L(QAQMSG)+4),!
32 Q
Note: See TracBrowser for help on using the repository browser.