source: WorldVistAEHR/trunk/r/DSS_EXTRACTS-ECX/ECXXREV.m@ 1261

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1ECXXREV ;ALB/JAP,BIR/DMA-Status Report from the Extract Log ; [ 05/29/96 5:38 PM ]
2 ;;3.0;DSS EXTRACTS;**8**;Dec 22, 1997
3EN ;entry point from option
4 N EC,EC0,ECM,ECXDIQ,X,Y,DIC,DIQ,DR,POP
5 S DIC=727,DIC(0)="AEQMZ" D ^DIC K DIC
6 Q:Y<0
7 S EC=+Y,EC0=Y(0)
8 D SHOW
9 K IO("Q") S %ZIS="Q" D ^%ZIS K %ZIS
10 Q:POP
11 I $D(IO("Q")) D Q
12 .S ZTSAVE("EC")="",ZTSAVE("EC0")="",ZTDESC="DSS Extract Status Report",ZTRTN="START^ECXXREV"
13 .D ^%ZTLOAD
14 D START W !!
15 G EN
16 Q
17 ;
18START ;queued entry
19 N ECXDIQ,ECXRUN,C,L,LN,PG,QFLG
20 U IO
21 S $P(LN,"-",80)="",PG=0,QFLG=0
22 D NOW^%DTC S Y=$E(%,1,12) D DD^%DT S ECXRUN=Y
23 D HDR
24 D SHOW
25 W !,"Purged: ",$S(ECXDIQ(727,EC,9,"E")]"":ECXDIQ(727,EC,9,"E"),1:"(Not purged)")
26 W !,"Transmitted: ",$S(ECXDIQ(727,EC,300,"E")]"":ECXDIQ(727,EC,300,"E"),1:"(Not transmitted)")
27 I ECXDIQ(727,EC,300,"E")]"" D
28 .I '$O(^ECX(727,EC,1,0)) W !,"All transmission messages confirmed." Q
29 .W !,"Unconfirmed transmission message numbers --"
30 .F ECM=0:0 S ECM=$O(^ECX(727,EC,1,ECM)) Q:'ECM D Q:QFLG
31 ..W !,ECM
32 ..S ECM=$O(^ECX(727,EC,1,ECM)) I 'ECM S QFLG=1 Q
33 ..W ?20,ECM
34 ..S ECM=$O(^ECX(727,EC,1,ECM)) I 'ECM S QFLG=1 Q
35 ..W ?40,ECM
36 ..I $Y+3>IOSL D HDR Q:QFLG
37 D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@" K IO("Q")
38 Q
39 ;
40HDR ;header
41 N JJ,SS
42 I $E(IOST)="C" D
43 .S SS=22-$Y F JJ=1:1:SS W !
44 .I PG>0 S DIR(0)="E" W ! D ^DIR K DIR S:'Y QFLG=1
45 Q:QFLG
46 W:$Y @IOF S PG=PG+1
47 W !,"Status Report for DSS Extract #",EC," ("_$P(EC0,U,3)_")"
48 I $E(IOST)'="C" W !,"Printed: ",ECXRUN,?68,"Page: ",PG
49 W !,LN
50 I PG>1 W !,"Unconfirmed transmission message numbers (con.t) --",!
51 Q
52 ;
53SHOW ;get data on extract
54 S DIC="^ECX(727,",DR="1;6;3;4;5;9;15;300",DA=+EC,DIQ(0)="E",DIQ="ECXDIQ" D EN^DIQ1
55 W !!,ECXDIQ(727,EC,6,"E")_" Extract (#"_EC_")",?42,"Records: ",ECXDIQ(727,EC,5,"E")
56 W !,"Generated: ",ECXDIQ(727,EC,1,"E"),?42,"Start date: ",ECXDIQ(727,EC,3,"E")
57 W !,"Division: ",$E(ECXDIQ(727,EC,15,"E"),1,26),?42,"End date: ",ECXDIQ(727,EC,4,"E")
58 Q
Note: See TracBrowser for help on using the repository browser.