37 lines
1.5 KiB
Mathematica
37 lines
1.5 KiB
Mathematica
ECDSS3 ;BIR/RHK,JPW-Active/Inactive Category Report ; 5/22/01 11:14am
|
|
;;2.0; EVENT CAPTURE ;**25**;8 May 96
|
|
; Routine to report active and inactive procedures
|
|
START ; Routine execution
|
|
N ECRAS S ECRAS=1 ;roll and scroll flag
|
|
S DIR(0)="SO^A:Active Categories;I:Inactive Categories;B:Both"
|
|
S DIR("A")="Select Report"
|
|
S DIR("?",1)="Enter an A for Active Categories, I for Inactive Categories,"
|
|
S DIR("?")="B for a consolidated report of all categories, or ^ to quit."
|
|
S DIR("??")="ECDSS3^"
|
|
D ^DIR K DIR I $D(DIRUT) G END
|
|
S ECRTN=Y
|
|
ACT ;list active cats (LISTA)
|
|
INACT ;list inactive cats (LISTI)
|
|
ALL ;list all cats (LISTB)
|
|
W ! D PRINT W @IOF
|
|
Q
|
|
PRINT ;starts print for RPC
|
|
I ECRTN="A" D LISTA
|
|
I ECRTN="I" D LISTI
|
|
I ECRTN="B" D LISTB
|
|
END ; Kill variables and exit
|
|
D ^ECKILL
|
|
Q
|
|
LISTA ;list active categories
|
|
K DIC S DIC="^EC(726,",FLDS=".01",BY=".01",(FR,TO)="",L=0,DHD="LIST OF ACTIVE LOCAL CATEGORIES",DIS(0)="I '$P(^EC(726,D0,0),""^"",3)" D EN1^DIP
|
|
I $D(ECRAS) W !!,"Press <RET> to continue " R X:DTIME
|
|
Q
|
|
LISTI ;list inactive categories
|
|
K DIC S DIC="^EC(726,",FLDS=".01,2;""INACTIVE DATE""",BY=".01",(FR,TO)="",L=0,DHD="LIST OF INACTIVE LOCAL CATEGORIES",DIS(0)="I +$P(^EC(726,D0,0),""^"",3)" D EN1^DIP
|
|
I $D(ECRAS) W !!,"Press <RET> to continue " R X:DTIME
|
|
Q
|
|
LISTB ;list all cats
|
|
K DIC S DIC="^EC(726,",FLDS=".01,2;""INACTIVE DATE""",BY=".01",(FR,TO)="",L=0,DHD="LIST OF ALL LOCAL CATEGORIRES" D EN1^DIP
|
|
I $D(ECRAS) W !!,"Press <RET> to continue " R X:DTIME
|
|
Q
|