source: WorldVistAEHR/trunk/r/PATIENT_REPRESENTATIVE-QAC/QACPAT.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: 743 bytes
Line 
1QACPAT ;HISC/CEW - Patient name with Brief Data ;1/27/95 09:49
2 ;;2.0;Patient Representative;**3**;07/25/1995
3DATE ;
4 W !!,"Select the date range you want to print."
5 D ^QAQDATE G:QAQQUIT EXIT
6 I QAQNBEG>DT W !?5,"*** Beginning date must be today or earlier! ***",*7 G DATE
7PATIENT ;
8 W ! K DIC S DIC="^DPT(",DIC(0)="AEQZM"
9 S DIC("A")="Select PATIENT: "
10 D ^DIC K DIC G:Y'>0 EXIT
11 S QACSSN=$P($G(^DPT(+Y,0)),U,9) Q:QACSSN=""
12 I '$O(^QA(745.1,"E",+Y,0)) W !!?5,"*** No data found for this patient and time frame ***",! G DATE
13 S DIC="^QA(745.1,",L=0,BY="@1,3"
14 S FR=QAQNBEG_","_QACSSN,TO=QAQNEND_","_QACSSN
15 S FLDS="[QAC PAT BRIEF]"
16 S DHD="Patient Name with Brief Data"
17 D EN1^DIP
18EXIT ;
19 K Y,DIC,DIP,QACSSN,L,BY,FR,TO,FLDS,DHD
20 D K^QAQDATE
Note: See TracBrowser for help on using the repository browser.