| [613] | 1 | GECSRSTA ;WISC/RFJ-stack reports ;22 Dec 93
|
|---|
| 2 | ;;2.0;GCS;;MAR 14, 1995
|
|---|
| 3 | N %DT,%I,DIR,DIRUT,GECSCODE,GECSDATE,GECSDESC,GECSEND,GECSFALL,GECSFLAG,GECSSSET,GECSSTAT,GECSSTRT,X,Y
|
|---|
| 4 | ; ask starting and ending transaction code
|
|---|
| 5 | F D Q:$G(GECSFLAG)
|
|---|
| 6 | . W !,"START with TRANSACTION CODE: FIRST// " R X:DTIME I '$T!(X["^") S GECSFLAG=1 Q
|
|---|
| 7 | . I X["?" W !?2,"Select the starting TRANSACTION CODE. The TRANSACTION CODE is the two",!?2,"character code which identifies the document type." Q
|
|---|
| 8 | . S GECSSTRT=X,GECSFLAG=1
|
|---|
| 9 | I '$D(GECSSTRT) Q
|
|---|
| 10 | K GECSFLAG
|
|---|
| 11 | F D Q:$G(GECSFLAG)
|
|---|
| 12 | . W !," END with TRANSACTION CODE: LAST// " R X:DTIME I '$T!(X["^") S GECSFLAG=1 Q
|
|---|
| 13 | . I X["?" W !?2,"Select the ending TRANSACTION CODE." Q
|
|---|
| 14 | . I X="" S X="z"
|
|---|
| 15 | . I GECSSTRT]X W !?4,"Ending TRANSACTION CODE must follow starting TRANSACTION CODE." Q
|
|---|
| 16 | . S GECSEND=X,GECSFLAG=1
|
|---|
| 17 | I '$D(GECSEND) Q
|
|---|
| 18 | ;
|
|---|
| 19 | ; ask starting created date
|
|---|
| 20 | S %DT="AEP",%DT("A")="Print documents created after DATE: ",%DT("B")="JAN 1,1993",%DT(0)=-DT W ! D ^%DT Q:Y<1 S GECSDATE=Y
|
|---|
| 21 | ;
|
|---|
| 22 | ; ask for status to print
|
|---|
| 23 | S GECSSSET=$P(^DD(2100.1,3,0),"^",3)_"N:TRANSMITTED WITH NO CONFIRMATION MESSAGE RETURNED"
|
|---|
| 24 | S DIR(0)="SO^"_GECSSSET,DIR("A")="Select STATUS(ES) to display"
|
|---|
| 25 | K GECSSTAT
|
|---|
| 26 | F W ! D ^DIR Q:Y="" D
|
|---|
| 27 | . I $D(GECSSTAT(Y)) W !?5,"-- previously selected --" Q
|
|---|
| 28 | . S GECSSTAT(Y)=""
|
|---|
| 29 | I '$D(GECSSTAT) W !,"A STATUS was not selected !" D Q:'$G(GECSFALL)
|
|---|
| 30 | . S XP=" Do you want to print ALL stack documents",XH=" Enter YES to print all documents, NO or '^' to exit."
|
|---|
| 31 | . I $$YN^GECSUTIL(1)=1 S GECSFALL=1
|
|---|
| 32 | W !!,"SELECTED STATUS(ES) to display:"
|
|---|
| 33 | I $G(GECSFALL) W " ALL STATUS(ES)"
|
|---|
| 34 | I '$G(GECSFALL) S Y="" F S Y=$O(GECSSTAT(Y)) Q:Y="" W !?10,$P($P(GECSSSET,Y_":",2),";")
|
|---|
| 35 | ;
|
|---|
| 36 | W !!
|
|---|
| 37 | S XP="Print DESCRIPTION of event" S GECSDESC=$$YN^GECSUTIL(2) Q:'GECSDESC
|
|---|
| 38 | S XP="Print DOCUMENT code sheets" S GECSCODE=$$YN^GECSUTIL(2) Q:'GECSCODE
|
|---|
| 39 | W !
|
|---|
| 40 | S %ZIS="Q" D ^%ZIS Q:POP I $D(IO("Q")) D D ^%ZTLOAD K IO("Q"),ZTSK Q
|
|---|
| 41 | . S ZTDESC="GCS Stack File Report",ZTRTN="DQ^GECSRST1"
|
|---|
| 42 | . S ZTSAVE("GECS*")="",ZTSAVE("ZTREQ")="@"
|
|---|
| 43 | W !!,"<*> please wait <*>"
|
|---|
| 44 | D DQ^GECSRST1
|
|---|
| 45 | Q
|
|---|
