source: WorldVistAEHR/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNAGGA.m@ 1801

Last change on this file since 1801 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1SPNAGGA ;SD/WDE- AGGREGATE OUTCOME REPORTS STARTING POINT; 12/13/2002
2 ;;2.0;Spinal Cord Dysfunction;**20**;01/02/1997
3 ;
4 ;Can be used to prompt for Care Type, Record Type, or Date Range
5CARE ;Care type
6 W !!,"This option prints an aggregate Outcomes report, based on"
7 W !,"your selection of Care Type and range of Care End Dates."
8 W !
9 S SPNLEXIT=0
10 K DIR S DIR(0)="SOAM^1:INPATIENT;2:OUTPATIENT;3:ANNUAL EVALUATION;4:CONTINUUM OF CARE"
11 S DIR("A")="Care Type: "
12 S DIR("?")="Enter the desired Care Type 1-4"
13 D ^DIR S CARETYP=$P(Y,U,1)
14 S SPNLEXIT=$S($D(DTOUT):1,$D(DUOUT):1,Y="":1,1:0)
15 G:SPNLEXIT=1 EXIT
16 K DIR
17 S SPNAGROU=$S(CARETYP=1:"^SPNAGGI",CARETYP=2:"^SPNAGGO",CARETYP=3:"^SPNAGGE",CARETYP=4:"^SPNAGGC",1:"^SPNAGGI")
18 D @SPNAGROU
19 Q
20 ;
21RCDTYPE ;record type FIM/FAM/ASIA etc.
22 S DIR(0)="SOAM^0:ALL;1:Self Report of Function;2:FIM;3:ASIA;4:CHART;5:FAM;6:DIENER;7:DUSOI;8:Multiple Sclerosis"
23 S DIR("A")="Record Type: "
24 S DIR("?")="Enter the desired Record Type 0-8"
25 D ^DIR S RCORDTYP=Y_U_$G(Y(0))
26 S SPNLEXIT=$S($D(DTOUT):1,$D(DUOUT):1,1:0)
27 K DIR
28 Q
29 ;
30SCORE ;Score type
31 ;obsolete subroutine (score type is now a file)
32 S DIR(0)="SOAM^0:ALL;1:INPT START;2:INPT GOAL;3:INPT INTERIM;4:INPT REHAB FINISH;5:INPT FOLLOW-UP (END);6:OUTPT START;7:OUTPT GOAL;8:OUTPT INTERIM;9:OUTPT REHAB FINISH;10:OUTPT FOLLOW-UP (END);11:UNKNOWN"
33 S DIR("A")="Score Type: "
34 S DIR("?")="Enter the desired Score Type 0-11"
35 D ^DIR S SCORETYP=Y_U_$G(Y(0))
36 S SPNLEXIT=$S($D(DTOUT):1,$D(DUOUT):1,1:0)
37 K DIR
38 Q
39 ;
40DATE ;date range
41 W !
42 K DIR S DIR(0)="DOA^::EX"
43 I $G(DIR("A"))="" S DIR("A")="Beginning date: "
44 D ^DIR S DATE("BEGINNING DATE")=Y_U_$G(Y(0))
45 S SPNLEXIT=$S($D(DTOUT):1,$D(DUOUT):1,Y="":1,1:0)
46 G:SPNLEXIT=1 EXIT
47 I 'SPNLEXIT,Y'="" D
48 . K DIR S DIR(0)="DOA^"_$P(DATE("BEGINNING DATE"),U)_"::EX"
49 . S DIR("A")="Ending date: "
50 . D ^DIR S DATE("ENDING DATE")=Y_U_$G(Y(0))
51 . Q
52 S SPNLEXIT=$S($D(DTOUT):1,$D(DUOUT):1,Y="":1,1:0)
53 G:SPNLEXIT=1 EXIT
54 I 'SPNLEXIT,Y'="" D
55 . S BDATE=$P(DATE("BEGINNING DATE"),U)
56 . S EDATE=$P(DATE("ENDING DATE"),U)
57 . Q
58 K DIR
59 Q
60EXIT ;
61 K CARETYP,DIR
62 Q
Note: See TracBrowser for help on using the repository browser.