source: WorldVistAEHR/trunk/r/PATIENT_REPRESENTATIVE-QAC/QACNOPTS.m@ 619

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

initial load of WorldVistAEHR

File size: 675 bytes
Line 
1QACNOPTS ;HISC/VAD -Contact records without patients ;12/29/98 09:41
2 ;;2.0;Patient Representative;**9,17**;11/17/1998
3MAIN ;
4 S QAQPOP=0
5 D DATDIV^QACUTL0 G:QAQPOP EXIT
6 K DIC,FLDS,L,BY,FR,TO,DHD
7 S L=0,DIC="^QA(745.1,"
8 S FLDS=".01,1",DHD="[QAC NOPAT HEADER]"
9 ;
10 K DIC,FLDS,L,BY,FR,TO,DHD
11 S L=0,DIC="^QA(745.1,"
12 S FLDS=".01,1",DHD="[QAC NOPAT HEADER]"
13 S BY="37;S3;C25,'2,1"
14 S FR(1)="@",TO(1)=""
15 I +$G(QAC1DIV) D
16 . S QACDVNAM="" D INST^QACUTL0(QAC1DIV,.QACDVNAM)
17 . S (FR(1),TO(1))=QACDVNAM
18 S FR(2)="@",TO(2)="@"
19 S FR(3)=QAQNBEG,TO(3)=QAQNEND
20 D EN1^DIP
21EXIT ;
22 K DIC,FLDS,L,BY,FR,TO,DHD,DIP,QACPOP,QACDV,QAC1DIV,QACDVNAM
23 K QAQNBEG,QAQNEND,QAQPOP
24 D K^QAQDATE
25 Q
Note: See TracBrowser for help on using the repository browser.