source: FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTER1A1.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 835 bytes
Line 
1XTER1A1 ;ISC-SF.SEA/JLI - CONTINUTATION OF ERROR REPORTING ;12/7/93 14:16
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;
4 Q
5INTRACT ;
6 K XTPRNT
7 S %DT="AEQX",%DT("A")="Starting Date: " D ^%DT K %DT Q:Y'>0 S XTNDAT1=Y S XTNDAT2=Y I Y<DT S %DT="AEQX",%DT("A")="Ending Date: " D ^%DT K %DT Q:Y'>0 S XTNDAT2=Y I Y<XTNDAT1 W !!,$C(7),"ENDING DATE can not be BEFORE start date" G INTRACT
8 S DIR(0)="N^1:10",DIR("A")="List first N occurrences, where N = " D ^DIR K DIR S XTNUM=+Y Q:Y'>0
9INT S %ZIS="Q" D ^%ZIS Q:POP I $D(IO("Q")) K IO("Q") S ZTRTN="DQ^XTER1A1",ZTIO=ION,ZTDESC="XTERTRP PRINT ERRS",ZTSAVE("XTNDAT1")="",ZTSAVE("XTNDAT2")="",ZTSAVE("XTNUM")="" D ^%ZTLOAD K XTNDAT1,XTNDAT2,XTNUM,ZTSK Q
10DQ ;
11 K ^TMP($J,"XTER1A") S XTNDAT1=+$$FMTH^XLFDT(XTNDAT1),XTNDAT2=+$$FMTH^XLFDT(XTNDAT2) F XTNDATE=XTNDAT1:1:XTNDAT2 D LISTN^XTER1A
12 D LIST^XTER1A
13 Q
Note: See TracBrowser for help on using the repository browser.