PSGEUDD ;BIR/MV-EXTRA UNITS DISPENSED REPORT ;14 JAN 97 / 9:22 AM
Source file <PSGEUDD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NEW | ;***New needed variables.
|
|
| ASK | ;***Ask for date range and output device
|
|
| EXIT | ;***Exit report here.
|
|
| START | ;***Start queuing here.
|
|
| P | ;***Select by Patient
|
|
| C | ;***Select by CLINIC
|
|
| G | ;***Select by WARD GROUP
|
|
| W | ;***Select by Ward
|
|
| WARDGP | ;*** Find wards within a ward group
|
|
| WARD | ;*** Go through each patient within a given WARD
|
|
| TEAM | ;*** Look up selected team. PSGTMALL= All teams were selected.
|
|
| ALLTM | ;*** Get UNIT DOSE information from ^PS(55
|
|
| LOOP | ;***Loop thru ^PS(55 on the Dispense log multiple.
|
|
| TMPWG | ;***Set ^TMP global for selected by Ward/Ward Group.
|
|
| TMPPT | ;***Set ^TMP global for selected by patient.
|
