QAOSPSM4.m

QAOSPSM4 ;HISC/DAD-SUMMARY OF OCCURRENCE SCREENING - PART II ;5/6/93  09:43

 ;;3.0;Occurrence Screen;;09/14/1993

 W !!,"Reference: RCS 10-0004 (BPA1) Outpatient Health Service Workload"

 W !,"   Section 8.  ""Purpose of Visit""; Line B ""10-10 Visits"" and"

 W !,"   Line D ""Unscheduled Visits"""

 D PAUSE G:QAOSQUIT EXIT

 W !!,"   c.  Number of Surgical Procedures Performed",?71,"________"

 W !!,"Reference: VA Form 10-7396d Annual Report of Surgical Procedures"

 W !,"   Sum the Total Reported at the Bottom of each Part that is compiled"

 W !,"   for each Surgical Section."

 W !!,"NOTE: The reports cited for the first two items are cumulative.  March's"

 W !,"cumulative totals are the data to be reported for the first semi-annual"

 W !,"report of the fiscal year.  Data for the second semi-annual report are"

 W !,"derived by subtracting March's figures from September's totals."

 D PAUSE

EXIT K DASH,UNDL

 Q

PAUSE Q:$E(IOST)'="C"

 K DIR S DIR(0)="E" D ^DIR K DIR S QAOSQUIT=$S(Y'>0:1,1:0)

 Q

FF W @IOF

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---QAOSPSM4   1037     printed  Apr 09, 2024@21:23:31                                                                                                                                                                                                    Page 2

QAOSPSM4  ;HISC/DAD-SUMMARY OF OCCURRENCE SCREENING - PART II ;5/6/93  09:43

 +1       ;;3.0;Occurrence Screen;;09/14/1993

 +2        WRITE !!,"Reference: RCS 10-0004 (BPA1) Outpatient Health Service Workload"

 +3        WRITE !,"   Section 8.  ""Purpose of Visit""; Line B ""10-10 Visits"" and"

 +4        WRITE !,"   Line D ""Unscheduled Visits"""

 +5        DO PAUSE

           if QAOSQUIT

               GOTO EXIT

 +6        WRITE !!,"   c.  Number of Surgical Procedures Performed",?71,"________"

 +7        WRITE !!,"Reference: VA Form 10-7396d Annual Report of Surgical Procedures"

 +8        WRITE !,"   Sum the Total Reported at the Bottom of each Part that is compiled"

 +9        WRITE !,"   for each Surgical Section."

 +10       WRITE !!,"NOTE: The reports cited for the first two items are cumulative.  March's"

 +11       WRITE !,"cumulative totals are the data to be reported for the first semi-annual"

 +12       WRITE !,"report of the fiscal year.  Data for the second semi-annual report are"

 +13       WRITE !,"derived by subtracting March's figures from September's totals."

 +14       DO PAUSE

EXIT       KILL DASH,UNDL

 +1        QUIT 

PAUSE      if $EXTRACT(IOST)'="C"

               QUIT 

 +1        KILL DIR

           SET DIR(0)="E"

           DO ^DIR

           KILL DIR

           SET QAOSQUIT=$SELECT(Y'>0:1,1:0)

 +2        QUIT 

FF         WRITE @IOF

 +1        QUIT