| 1 | QACPAT ;HISC/CEW - Patient name with Brief Data ;1/27/95 09:49
|
|---|
| 2 | ;;2.0;Patient Representative;**3**;07/25/1995
|
|---|
| 3 | DATE ;
|
|---|
| 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
|
|---|
| 7 | PATIENT ;
|
|---|
| 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
|
|---|
| 18 | EXIT ;
|
|---|
| 19 | K Y,DIC,DIP,QACSSN,L,BY,FR,TO,FLDS,DHD
|
|---|
| 20 | D K^QAQDATE
|
|---|
