source: WorldVistAEHR/trunk/r/GENERIC_CODE_SHEET-GEC/GECSRSTA.m@ 1604

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1GECSRSTA ;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
Note: See TracBrowser for help on using the repository browser.