| 1 | DVBCAMI3 ;ALB/GTS-557/THM-HOSPITAL AMIS 290 PRINTING, BULLETIN SEND ; 7/16/91 8:55 AM
|
|---|
| 2 | ;;2.7;AMIE;;Apr 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ;** NOTICE: This routine is part of an implementation of a Nationally
|
|---|
| 5 | ;** Controlled Procedure. Local modifications to this routine
|
|---|
| 6 | ;** are prohibited per VHA Directive 10-93-142
|
|---|
| 7 | ;
|
|---|
| 8 | EN U IO D HDR F JI=0:0 S JI=$O(^TMP($J,JI)) Q:JI="" W ^(JI,0),! I IOST?1"C-".E,$Y>19 D PAUSE G:$D(OUT) EXIT D HDR
|
|---|
| 9 | I IOST?1"P-".E D ^%ZISC
|
|---|
| 10 | D PAUSE I $D(OUT)!(ANS=U) W:SBULL="Y" !!,*7,"Bulletin will NOT be sent!!",*7,! H 2 G EXIT
|
|---|
| 11 | D ^%ZISC
|
|---|
| 12 | S:'$D(XMY) SBULL="N" I SBULL="Y" D SEND
|
|---|
| 13 | ;
|
|---|
| 14 | EXIT K TFIND,PG,OUT,PREVMO,UPDATE,DTTRET,DTTRIN,DTTROUT,TROUT,XI
|
|---|
| 15 | D:$D(ZTQUEUED) KILL^%ZTLOAD G KILL^DVBCUTIL
|
|---|
| 16 | ;
|
|---|
| 17 | BULL W ! S XMDUZ=DUZ,XMMG=$S($D(^VA(200,DUZ,0)):$P(^(0),U,1),1:"") D DES^XMA21
|
|---|
| 18 | S XMSUB="AMIS 290 report for " S Y=BDATE1 X ^DD("DD") S XMSUB=XMSUB_Y S Y=EDATE1 X ^DD("DD") S XMSUB=XMSUB_" to "_Y,XMTEXT="^TMP($J,"
|
|---|
| 19 | Q
|
|---|
| 20 | ;
|
|---|
| 21 | SEND I IOST'?1"P-",'$D(ZTQUEUED) W !!,"Loading AMIS 290 bulletin ..." H 1
|
|---|
| 22 | D ^XMD K XMY,XMTEXT,XMSUB K ^TMP($J),^TMP("DVBC",$J)
|
|---|
| 23 | I '$D(ZTQUEUED) W !!,*7,">> Mail message transmitted <<",!! H 2
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | HDR S PG=PG+1 W:(IOST?1"C-".E) @IOF
|
|---|
| 27 | W "AMIS 290 Report for "_$$SITE^DVBCUTL4,?(IOM-9),"Page: ",PG,!
|
|---|
| 28 | W "For date range: " S Y=BDATE1 X ^DD("DD") W Y W " to " S Y=EDATE1 X ^DD("DD") W Y,!
|
|---|
| 29 | F LINE=1:1:80 W "-"
|
|---|
| 30 | W !!
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | PAUSE K OUT S ANS="" I IOST?1"C-".E W *7,!!,"Press RETURN to continue or ""^"" to exit " R ANS:DTIME I '$T!(ANS[U) S OUT=1
|
|---|
| 34 | Q
|
|---|
