|
Last change
on this file since 1336 was 613, checked in by George Lilly, 16 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
651 bytes
|
| Line | |
|---|
| 1 | QACDAILY ;HISC/CEW - Daily Contact Tracking Report ;1/31/95 09:44
|
|---|
| 2 | ;;2.0;Patient Representative;**3,9,17**;07/25/1995
|
|---|
| 3 | DATE ;
|
|---|
| 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
|
|---|
| 22 | EXIT ;
|
|---|
| 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.
