QAOSUPL1.m

QAOSUPL1 ;HISC/DAD-GENERATE SUMMARY OF OS UPLOAD BULLETIN ;5/11/93  08:15

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

EN ;

 W @IOF

 W !!,"5.  Facility Workload Data (Should be readily available from Medical"

 W !,"Administration Service)"

 W !!,"   a.  Number of Admissions to Acute Care during Reporting Period:"

 K DIR S DIR(0)="NOA^0:99999:0"

 ;

 S DIR("?",1)="Reference : RCS 10-0021 (8ZD1) VA Inpatient Care"

 S DIR("?",2)="  Under the ""Gains"" Section; Line ""Total - Adm & Trans"""

 S DIR("?",3)="  List for each Bed Section:"

 S DIR("?")="Enter a number from 0 to 99999"

 S DIR("A")="      Medicine (Include Neurology, exclude Intermediate Med.): "

 D HELP(4) W ! D REF(3)

 W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSWORK(1)=Y

 S DIR("A")="      Surgery: "

 W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSWORK(2)=Y

 S DIR("A")="      Psychiatry: "

 W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSWORK(3)=Y

 ;

 W @IOF

 S DIR("?",1)="Reference: RCS 10-0004 (BPA1) Outpatient Health Service Workload"

 S DIR("?",2)="  Section 8.  ""Purpose of Visit""; Line B ""10-10 Visits"" and Line D"

 S DIR("?",3)="  ""Unscheduled Visits"""

 S DIR("?")="Enter a number from 0 to 99999"

 S DIR("A",1)="   b.  Number of ""Unscheduled"" and ""10-10"" Ambulatory Care"

 S DIR("A")="Visits During Reporting Period: "

 D HELP(4) W ! D REF(3)

 W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSWORK(4)=Y

 ;

 S (QAOSWORK(5),QAOSWORK(6))=""

 ;

 W @IOF

 S DIR("?",1)="Reference: VA Form 10-7396d Annual Report of Surgical Procedures"

 S DIR("?",2)="  Sum the Total Reported at the Bottom of each Part that is compiled"

 S DIR("?",3)="  for each Surgical Section.",DIR("?")="Enter a number from 0 to 99999"

 K DIR("A") S DIR("A")="   c.  Number of Surgical Procedures Performed: "

 W ! D REF(3)

 W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAOSWORK(7)=Y

 ;

 G EN^QAOSUPL2

EXIT ;

 G EXIT^QAOSUPL2

HELP(Y) ;

 S DIR("?",Y)=""

 S DIR("?",Y+1)="NOTE: The reports cited for Medicine, Surgery, Psychiatry, and Ambulatory Care"

 S DIR("?",Y+2)="are cumulative.  March's cumulative totals are the data to be reported for the"

 S DIR("?",Y+3)="first semi-annual report of the fiscal year.  Data for the second semi-annual"

 S DIR("?",Y+4)="report are derived by subtracting March's figures from September's totals."

 Q

REF(Y) ;

 N QA F QA=1:1:Y W !,DIR("?",QA)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---QAOSUPL1   2424     printed  Apr 09, 2024@21:23                                                                                                                                                                                                       Page 2

QAOSUPL1  ;HISC/DAD-GENERATE SUMMARY OF OS UPLOAD BULLETIN ;5/11/93  08:15

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

EN        ;

 +1        WRITE @IOF

 +2        WRITE !!,"5.  Facility Workload Data (Should be readily available from Medical"

 +3        WRITE !,"Administration Service)"

 +4        WRITE !!,"   a.  Number of Admissions to Acute Care during Reporting Period:"

 +5        KILL DIR

           SET DIR(0)="NOA^0:99999:0"

 +6       ;

 +7        SET DIR("?",1)="Reference : RCS 10-0021 (8ZD1) VA Inpatient Care"

 +8        SET DIR("?",2)="  Under the ""Gains"" Section; Line ""Total - Adm & Trans"""

 +9        SET DIR("?",3)="  List for each Bed Section:"

 +10       SET DIR("?")="Enter a number from 0 to 99999"

 +11       SET DIR("A")="      Medicine (Include Neurology, exclude Intermediate Med.): "

 +12       DO HELP(4)

           WRITE !

           DO REF(3)

 +13       WRITE !

           DO ^DIR

           if $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)

               GOTO EXIT

           SET QAOSWORK(1)=Y

 +14       SET DIR("A")="      Surgery: "

 +15       WRITE !

           DO ^DIR

           if $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)

               GOTO EXIT

           SET QAOSWORK(2)=Y

 +16       SET DIR("A")="      Psychiatry: "

 +17       WRITE !

           DO ^DIR

           if $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)

               GOTO EXIT

           SET QAOSWORK(3)=Y

 +18      ;

 +19       WRITE @IOF

 +20       SET DIR("?",1)="Reference: RCS 10-0004 (BPA1) Outpatient Health Service Workload"

 +21       SET DIR("?",2)="  Section 8.  ""Purpose of Visit""; Line B ""10-10 Visits"" and Line D"

 +22       SET DIR("?",3)="  ""Unscheduled Visits"""

 +23       SET DIR("?")="Enter a number from 0 to 99999"

 +24       SET DIR("A",1)="   b.  Number of ""Unscheduled"" and ""10-10"" Ambulatory Care"

 +25       SET DIR("A")="Visits During Reporting Period: "

 +26       DO HELP(4)

           WRITE !

           DO REF(3)

 +27       WRITE !

           DO ^DIR

           if $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)

               GOTO EXIT

           SET QAOSWORK(4)=Y

 +28      ;

 +29       SET (QAOSWORK(5),QAOSWORK(6))=""

 +30      ;

 +31       WRITE @IOF

 +32       SET DIR("?",1)="Reference: VA Form 10-7396d Annual Report of Surgical Procedures"

 +33       SET DIR("?",2)="  Sum the Total Reported at the Bottom of each Part that is compiled"

 +34       SET DIR("?",3)="  for each Surgical Section."

           SET DIR("?")="Enter a number from 0 to 99999"

 +35       KILL DIR("A")

           SET DIR("A")="   c.  Number of Surgical Procedures Performed: "

 +36       WRITE !

           DO REF(3)

 +37       WRITE !

           DO ^DIR

           if $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)

               GOTO EXIT

           SET QAOSWORK(7)=Y

 +38      ;

 +39       GOTO EN^QAOSUPL2

EXIT      ;

 +1        GOTO EXIT^QAOSUPL2

HELP(Y)   ;

 +1        SET DIR("?",Y)=""

 +2        SET DIR("?",Y+1)="NOTE: The reports cited for Medicine, Surgery, Psychiatry, and Ambulatory Care"

 +3        SET DIR("?",Y+2)="are cumulative.  March's cumulative totals are the data to be reported for the"

 +4        SET DIR("?",Y+3)="first semi-annual report of the fiscal year.  Data for the second semi-annual"

 +5        SET DIR("?",Y+4)="report are derived by subtracting March's figures from September's totals."

 +6        QUIT 

REF(Y)    ;

 +1        NEW QA

           FOR QA=1:1:Y

               WRITE !,DIR("?",QA)

 +2        QUIT