- AMEROUT3 ; IHS/ANMC/GIS - GETS OVERFLOW FROM AMEROUT2 ;
- ;;3.0;ER VISIT SYSTEM;;FEB 23, 2009
- MC ; ENTRY POINT FROM AMEROUT2
- S DIR(0)="SO^1:Sort by all communities;2:Limit output to one particular community",DIR("A")="Your choice",DIR("B")="1" D ^DIR K DIR
- D OUT^AMER I $D(AMERQUIT) Q
- I Y=1 S AMERBY=AMERBY_";""COMMUNITY: """,(AMERFR,AMERTO)="",AMERNXT="Within "_AMERATNM_" sort by" S:$D(AMERSTAT) AMERBY="+"_AMERBY,FLDS="!.02:CURR" Q
- S DIC("A")="Select "_AMERATNM_": "
- S DIC=U_AMERGBL,DIC(0)="AEQ" I $D(AMERSCR) S DIC("S")=AMERSCR
- D ^DIC K DIC
- D OUT^AMER I $D(AMERQUIT) Q
- S AMERNXT="Then sort by",(AMERFR,AMERTO)="",AMERBY=AMERBY_"="""_$P(^AUTTCOM(+Y,0),U)_""";""C0MMUNITY: """
- I $D(AMERSTAT) S FLDS="+.02:CURR",AMERBY="+"_AMERBY
- S ^TMP("AMER",$J,8,AMERATNM)=$P(Y,U,2)
- Q
- ;
- MA ; ENTRY POINT FROM AMEROUT2
- N AMERA1,AMERA2
- I '$D(AMERSTAT) G MA1
- S DIR(0)="SO^1:Do statistatical analysis of patient ages now;2:Limit analysis to patients in a certain age range",DIR("A")="Your choice",DIR("B")="1",DIR("?")="" D ^DIR K DIR
- D OUT^AMEROUT I $D(AMERQUIT) Q
- I Y=1 D STAT Q
- MA1 S DIR(0)="NO^0:199:0",DIR("A")="Start with what age" D ^DIR K DIR
- D OUT^AMEROUT I $D(AMERQUIT) Q
- S AMERA1=Y I 'AMERA1 S AMERA1=0 W " (0)"
- S DIR(0)="NO^0:199:0",DIR("A")="Go to what age" D ^DIR K DIR
- D OUT^AMEROUT I $D(AMERQUIT) Q
- S AMERA2=Y I 'AMERA2 S AMERA2=199 W " (199)"
- I AMERA2<AMERA1 W " ??",*7,! G MA1
- S AMERFR=AMERA1,AMERTO=AMERA2
- S AMERBY="'.17" I $D(AMERSTAT) S FLDS="#AGE"
- S AMERNEXT="Then sort by",^TMP("AMER",$J,8,"AGE")=AMERA1_"-"_AMERA2
- Q
- ;
- STAT S AMERSTAT=1,FLDS="#AGE"
- S (AMERFR,AMERTO)="",AMERBY=""
- Q
- ;
- MU ; ENTRY POINT FROM AMEROUT2
- N AMERU1,AMERU2
- I '$D(AMERSTAT) G MU1
- S DIR(0)="SO^1:Do statistatical analysis of patient acuities now;2:Limit analysis to patients in a certain acuity range",DIR("A")="Your choice",DIR("B")="1",DIR("?")="" D ^DIR K DIR
- D OUT^AMEROUT I $D(AMERQUIT) Q
- I Y=1 S AMERSTAT=1,FLDS="!FINAL ACUITY",(AMERFR,AMERTO)="",AMERBY="+FINAL ACUITY" Q
- MU1 S DIR(0)="NO^1:5:0",DIR("A")="Start with what acuity" D ^DIR K DIR
- D OUT^AMEROUT I $D(AMERQUIT) Q
- S AMERU1=Y I 'AMERU1 S AMERU1=1 W " (1)"
- S DIR(0)="NO^1:5:0",DIR("A")="Go to what acuity" D ^DIR K DIR
- D OUT^AMEROUT I $D(AMERQUIT) Q
- S AMERU2=Y I 'AMERU2 S AMERU2=5 W " (5)"
- I AMERU2<AMERU1 W " ??",*7,! G MU1
- S AMERFR=AMERU1,AMERTO=AMERU2
- S AMERBY="'5.4" I $D(AMERSTAT) S FLDS="#FINAL ACUITY"
- S AMERNEXT="Within ACUITY sort by",^TMP("AMER",$J,8,"FINAL ACUITY")=AMERU1_"-"_AMERU2
- Q
- AMEROUT3 ; IHS/ANMC/GIS - GETS OVERFLOW FROM AMEROUT2 ;
- +1 ;;3.0;ER VISIT SYSTEM;;FEB 23, 2009
- MC ; ENTRY POINT FROM AMEROUT2
- +1 SET DIR(0)="SO^1:Sort by all communities;2:Limit output to one particular community"
- SET DIR("A")="Your choice"
- SET DIR("B")="1"
- DO ^DIR
- KILL DIR
- +2 DO OUT^AMER
- IF $DATA(AMERQUIT)
- QUIT
- +3 IF Y=1
- SET AMERBY=AMERBY_";""COMMUNITY: """
- SET (AMERFR,AMERTO)=""
- SET AMERNXT="Within "_AMERATNM_" sort by"
- IF $DATA(AMERSTAT)
- SET AMERBY="+"_AMERBY
- SET FLDS="!.02:CURR"
- QUIT
- +4 SET DIC("A")="Select "_AMERATNM_": "
- +5 SET DIC=U_AMERGBL
- SET DIC(0)="AEQ"
- IF $DATA(AMERSCR)
- SET DIC("S")=AMERSCR
- +6 DO ^DIC
- KILL DIC
- +7 DO OUT^AMER
- IF $DATA(AMERQUIT)
- QUIT
- +8 SET AMERNXT="Then sort by"
- SET (AMERFR,AMERTO)=""
- SET AMERBY=AMERBY_"="""_$PIECE(^AUTTCOM(+Y,0),U)_""";""C0MMUNITY: """
- +9 IF $DATA(AMERSTAT)
- SET FLDS="+.02:CURR"
- SET AMERBY="+"_AMERBY
- +10 SET ^TMP("AMER",$JOB,8,AMERATNM)=$PIECE(Y,U,2)
- +11 QUIT
- +12 ;
- MA ; ENTRY POINT FROM AMEROUT2
- +1 NEW AMERA1,AMERA2
- +2 IF '$DATA(AMERSTAT)
- GOTO MA1
- +3 SET DIR(0)="SO^1:Do statistatical analysis of patient ages now;2:Limit analysis to patients in a certain age range"
- SET DIR("A")="Your choice"
- SET DIR("B")="1"
- SET DIR("?")=""
- DO ^DIR
- KILL DIR
- +4 DO OUT^AMEROUT
- IF $DATA(AMERQUIT)
- QUIT
- +5 IF Y=1
- DO STAT
- QUIT
- MA1 SET DIR(0)="NO^0:199:0"
- SET DIR("A")="Start with what age"
- DO ^DIR
- KILL DIR
- +1 DO OUT^AMEROUT
- IF $DATA(AMERQUIT)
- QUIT
- +2 SET AMERA1=Y
- IF 'AMERA1
- SET AMERA1=0
- WRITE " (0)"
- +3 SET DIR(0)="NO^0:199:0"
- SET DIR("A")="Go to what age"
- DO ^DIR
- KILL DIR
- +4 DO OUT^AMEROUT
- IF $DATA(AMERQUIT)
- QUIT
- +5 SET AMERA2=Y
- IF 'AMERA2
- SET AMERA2=199
- WRITE " (199)"
- +6 IF AMERA2<AMERA1
- WRITE " ??",*7,!
- GOTO MA1
- +7 SET AMERFR=AMERA1
- SET AMERTO=AMERA2
- +8 SET AMERBY="'.17"
- IF $DATA(AMERSTAT)
- SET FLDS="#AGE"
- +9 SET AMERNEXT="Then sort by"
- SET ^TMP("AMER",$JOB,8,"AGE")=AMERA1_"-"_AMERA2
- +10 QUIT
- +11 ;
- STAT SET AMERSTAT=1
- SET FLDS="#AGE"
- +1 SET (AMERFR,AMERTO)=""
- SET AMERBY=""
- +2 QUIT
- +3 ;
- MU ; ENTRY POINT FROM AMEROUT2
- +1 NEW AMERU1,AMERU2
- +2 IF '$DATA(AMERSTAT)
- GOTO MU1
- +3 SET DIR(0)="SO^1:Do statistatical analysis of patient acuities now;2:Limit analysis to patients in a certain acuity range"
- SET DIR("A")="Your choice"
- SET DIR("B")="1"
- SET DIR("?")=""
- DO ^DIR
- KILL DIR
- +4 DO OUT^AMEROUT
- IF $DATA(AMERQUIT)
- QUIT
- +5 IF Y=1
- SET AMERSTAT=1
- SET FLDS="!FINAL ACUITY"
- SET (AMERFR,AMERTO)=""
- SET AMERBY="+FINAL ACUITY"
- QUIT
- MU1 SET DIR(0)="NO^1:5:0"
- SET DIR("A")="Start with what acuity"
- DO ^DIR
- KILL DIR
- +1 DO OUT^AMEROUT
- IF $DATA(AMERQUIT)
- QUIT
- +2 SET AMERU1=Y
- IF 'AMERU1
- SET AMERU1=1
- WRITE " (1)"
- +3 SET DIR(0)="NO^1:5:0"
- SET DIR("A")="Go to what acuity"
- DO ^DIR
- KILL DIR
- +4 DO OUT^AMEROUT
- IF $DATA(AMERQUIT)
- QUIT
- +5 SET AMERU2=Y
- IF 'AMERU2
- SET AMERU2=5
- WRITE " (5)"
- +6 IF AMERU2<AMERU1
- WRITE " ??",*7,!
- GOTO MU1
- +7 SET AMERFR=AMERU1
- SET AMERTO=AMERU2
- +8 SET AMERBY="'5.4"
- IF $DATA(AMERSTAT)
- SET FLDS="#FINAL ACUITY"
- +9 SET AMERNEXT="Within ACUITY sort by"
- SET ^TMP("AMER",$JOB,8,"FINAL ACUITY")=AMERU1_"-"_AMERU2
- +10 QUIT
