| 1 | QAOSUPL1 ;HISC/DAD-GENERATE SUMMARY OF OS UPLOAD BULLETIN ;5/11/93 08:15
|
|---|
| 2 | ;;3.0;Occurrence Screen;;09/14/1993
|
|---|
| 3 | EN ;
|
|---|
| 4 | W @IOF
|
|---|
| 5 | W !!,"5. Facility Workload Data (Should be readily available from Medical"
|
|---|
| 6 | W !,"Administration Service)"
|
|---|
| 7 | W !!," a. Number of Admissions to Acute Care during Reporting Period:"
|
|---|
| 8 | K DIR S DIR(0)="NOA^0:99999:0"
|
|---|
| 9 | ;
|
|---|
| 10 | S DIR("?",1)="Reference : RCS 10-0021 (8ZD1) VA Inpatient Care"
|
|---|
| 11 | S DIR("?",2)=" Under the ""Gains"" Section; Line ""Total - Adm & Trans"""
|
|---|
| 12 | S DIR("?",3)=" List for each Bed Section:"
|
|---|
| 13 | S DIR("?")="Enter a number from 0 to 99999"
|
|---|
| 14 | S DIR("A")=" Medicine (Include Neurology, exclude Intermediate Med.): "
|
|---|
| 15 | D HELP(4) W ! D REF(3)
|
|---|
| 16 | W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSWORK(1)=Y
|
|---|
| 17 | S DIR("A")=" Surgery: "
|
|---|
| 18 | W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSWORK(2)=Y
|
|---|
| 19 | S DIR("A")=" Psychiatry: "
|
|---|
| 20 | W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSWORK(3)=Y
|
|---|
| 21 | ;
|
|---|
| 22 | W @IOF
|
|---|
| 23 | S DIR("?",1)="Reference: RCS 10-0004 (BPA1) Outpatient Health Service Workload"
|
|---|
| 24 | S DIR("?",2)=" Section 8. ""Purpose of Visit""; Line B ""10-10 Visits"" and Line D"
|
|---|
| 25 | S DIR("?",3)=" ""Unscheduled Visits"""
|
|---|
| 26 | S DIR("?")="Enter a number from 0 to 99999"
|
|---|
| 27 | S DIR("A",1)=" b. Number of ""Unscheduled"" and ""10-10"" Ambulatory Care"
|
|---|
| 28 | S DIR("A")="Visits During Reporting Period: "
|
|---|
| 29 | D HELP(4) W ! D REF(3)
|
|---|
| 30 | W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSWORK(4)=Y
|
|---|
| 31 | ;
|
|---|
| 32 | S (QAOSWORK(5),QAOSWORK(6))=""
|
|---|
| 33 | ;
|
|---|
| 34 | W @IOF
|
|---|
| 35 | S DIR("?",1)="Reference: VA Form 10-7396d Annual Report of Surgical Procedures"
|
|---|
| 36 | S DIR("?",2)=" Sum the Total Reported at the Bottom of each Part that is compiled"
|
|---|
| 37 | S DIR("?",3)=" for each Surgical Section.",DIR("?")="Enter a number from 0 to 99999"
|
|---|
| 38 | K DIR("A") S DIR("A")=" c. Number of Surgical Procedures Performed: "
|
|---|
| 39 | W ! D REF(3)
|
|---|
| 40 | W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSWORK(7)=Y
|
|---|
| 41 | ;
|
|---|
| 42 | G EN^QAOSUPL2
|
|---|
| 43 | EXIT ;
|
|---|
| 44 | G EXIT^QAOSUPL2
|
|---|
| 45 | HELP(Y) ;
|
|---|
| 46 | S DIR("?",Y)=""
|
|---|
| 47 | S DIR("?",Y+1)="NOTE: The reports cited for Medicine, Surgery, Psychiatry, and Ambulatory Care"
|
|---|
| 48 | S DIR("?",Y+2)="are cumulative. March's cumulative totals are the data to be reported for the"
|
|---|
| 49 | S DIR("?",Y+3)="first semi-annual report of the fiscal year. Data for the second semi-annual"
|
|---|
| 50 | S DIR("?",Y+4)="report are derived by subtracting March's figures from September's totals."
|
|---|
| 51 | Q
|
|---|
| 52 | REF(Y) ;
|
|---|
| 53 | N QA F QA=1:1:Y W !,DIR("?",QA)
|
|---|
| 54 | Q
|
|---|
