| [613] | 1 | DVBCENQ ;ALB/GTS-557/THM-2507 INQUIRY ; 10/22/90 7:20 AM
|
|---|
| 2 | ;;2.7;AMIE;;Apr 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | G EN
|
|---|
| 5 | PRINT D VARS^DVBCUTIL,^DVBCENQ1
|
|---|
| 6 | I $D(ZTQUEUED) G EXIT ;entry point for TaskMan
|
|---|
| 7 | S (NAME,SSN,CNUM,ADR1,ADR2,ADR3,CITY,STATE,ZIP,HOMPHON,BUSPHON,OTHDIS)=""
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | EN K ^TMP($J) S Y=DT X ^DD("DD") S FDT(0)=Y D HOME^%ZIS S FF=IOF
|
|---|
| 11 | W @FF,"2507 Request Inquiry",!!!
|
|---|
| 12 | S DIC="^DVB(396.3,",DIC(0)="AEQM",DIC("W")="W "" Date of request: "" S DVBCDT=$P(^(0),U,2) W $E(DVBCDT,4,5)_""/""_$E(DVBCDT,6,7)_""/""_$E(DVBCDT,2,3)",DIC("A")="Enter VETERAN NAME: " D ^DIC G:X=""!(X=U) EXIT
|
|---|
| 13 | I +Y<0 W " ???",*7 G EN
|
|---|
| 14 | S JI=$P(Y,U,2),(DA,DA(1),REQDA)=+Y
|
|---|
| 15 | ;
|
|---|
| 16 | DEVICE W ! S %ZIS="AEQ",%ZIS("B")="HOME",%ZIS("A")="Output device: " D ^%ZIS G:POP EXIT
|
|---|
| 17 | I $D(IO("Q")) S ZTRTN="PRINT^DVBCENQ",ZTIO=ION,ZTDESC="C&P Request Inquiry" F I="FDT(0)","DA*","REQDA","DVBC*","Y","JI","DUZ","FDT(0)" S ZTSAVE(I)=""
|
|---|
| 18 | I D ^%ZTLOAD G:'$D(ZTSK) EXIT W !!,"Request queued",!! G EXIT
|
|---|
| 19 | U IO D PRINT D ^%ZISC G EN
|
|---|
| 20 | ;
|
|---|
| 21 | EXIT K ^TMP($J),TSTA1,TSTAT,XCNP
|
|---|
| 22 | D:$D(ZTQUEUED) KILL^%ZTLOAD G KILL^DVBCUTIL
|
|---|
