source: FOIAVistA/trunk/r/PATIENT_REPRESENTATIVE-QAC/QACDAILY.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 651 bytes
Line 
1QACDAILY ;HISC/CEW - Daily Contact Tracking Report ;1/31/95 09:44
2 ;;2.0;Patient Representative;**3,9,17**;07/25/1995
3DATE ;
4 S QAQPOP=0
5 D DATE^QACUTL0 Q:QAQPOP
6 K DIC,FLDS,L,BY,FR,TO
7 N QACDIV
8 ;S L=0,DIC="^QA(745.1,",DHD="[QAC DAILY HEADER]"
9 S FLDS="[QAC DAILY]"
10 D DIV^QACUTL0 Q:$G(QAQPOP)=1
11 S BY="37;S2;C1,1;C30;S;"""""
12 S FR(2)=QAQNBEG
13 S TO(2)=QAQNEND
14 I $G(QAC1DIV)]"" D
15 . S (FR(1),TO(1))=$P($G(^DIC(4,QAC1DIV,0)),U)
16 I $G(QAC1DIV)'>1 D
17 . S FR(1)="@"
18 . S TO(1)=""
19 Q:$G(QAQPOP)=1
20 S L=0,DIC="^QA(745.1,",DHD="[QAC DAILY HEADER]"
21 D EN1^DIP
22EXIT ;
23 K DHD,BY,FLDS,FR,TO,DIP,DIC,L
24 K QAC1DIV,QACDV
25 K QAQNBEG,QAQNEND,QAQPOP
26 D K^QAQDATE
27 Q
Note: See TracBrowser for help on using the repository browser.