| [613] | 1 | DVBCAMIS ;ALB/GTS-557/THM-2507 AMIS REPORT ;21 MAY 89@0822 ; 5/23/91 1:30 PM
|
|---|
| 2 | ;;2.7;AMIE;**17**;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 | SETUP S UPDATE="N",PREVMO=$P(^DVB(396.1,1,0),U,11),HD="AMIS 290 REPORT" I '$D(DT) S X="T" D ^%DT S DT=Y
|
|---|
| 9 | S DVBCDT(0)=$$FMTE^XLFDT(DT,"5DZ")
|
|---|
| 10 | D HOME^%ZIS S FF=IOF
|
|---|
| 11 | F JI="3DAYSCH","30DAYEX","PENDADJ","TRANSIN","TRNRETTO","TRNPNDTO","TRANSOUT","TRNRETFR","TRNPNDFR","INSUFF" S TOT(JI)=0
|
|---|
| 12 | F JI="RECEIVED","INCOMPLETE","DAYS","COMPLETED" S TOT(JI)=0
|
|---|
| 13 | F JI="P90","P121","P151","P181","P365","P366" S TOT(JI)=0
|
|---|
| 14 | ;
|
|---|
| 15 | EN W @IOF,!?(IOM-$L(HD)\2),HD,!!!
|
|---|
| 16 | S %DT(0)=-DT,%DT="AE",%DT("A")="Enter STARTING DATE: " D ^%DT G:Y<0 EXIT S BDATE1=Y,BDATE=Y-.1
|
|---|
| 17 | S %DT="AE",%DT("A")=" and ENDING DATE: " D ^%DT G:Y<0 EN S EDATE1=Y,EDATE=Y+.5
|
|---|
| 18 | I EDATE1<BDATE1 W *7,!!,"Invalid date sequence - ending date is before starting date.",!! H 3 G EN
|
|---|
| 19 | ASK0 W !!,"Please enter the total pending from the previous month: " R PREVMO:DTIME G:'$T!(PREVMO[U) EXIT I PREVMO["?" W !!,"Enter the totals for the month previous to the one you are processing." G ASK0
|
|---|
| 20 | I PREVMO'?1.4N!(PREVMO<0) W *7,!!,"Must be a number from 0 to 9999." G ASK0
|
|---|
| 21 | ;
|
|---|
| 22 | ASK K %DT S SBULL="Y"
|
|---|
| 23 | W !!!,"Do you want to send a bulletin when processing is done"
|
|---|
| 24 | S %=1 D YN^DICN G:$D(DTOUT)!(%<0) EXIT
|
|---|
| 25 | I %=0 W !!,"Enter Y to send a bulletin to selected recipients or N not to send it at all.",!! G ASK
|
|---|
| 26 | I %'=1 S SBULL="N"
|
|---|
| 27 | I SBULL="Y" D BULL^DVBCAMI3
|
|---|
| 28 | W ! S %ZIS="AEQ",%ZIS("A")="Output device: " D ^%ZIS G:POP EXIT
|
|---|
| 29 | I $D(IO("Q")) S ZTRTN="GO^DVBCAMI2",ZTDESC="2507 Amis Report",ZTIO=ION F I="PREVMO","RO*","BDATE*","TOT*","EDATE*","SBULL","DUZ","DVBCDT(0)","XM*" S ZTSAVE(I)=""
|
|---|
| 30 | I $D(IO("Q")) D ^%ZTLOAD W:$D(ZTSK) !!,"Request queued",!! H 1 K ZTSK G EXIT
|
|---|
| 31 | G GO^DVBCAMI2
|
|---|
| 32 | ;
|
|---|
| 33 | EXIT K PREVMO,UPDATE G KILL^DVBCUTIL
|
|---|
