source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBCENQ.m@ 724

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1DVBCENQ ;ALB/GTS-557/THM-2507 INQUIRY ; 10/22/90 7:20 AM
2 ;;2.7;AMIE;;Apr 10, 1995
3 ;
4 G EN
5PRINT 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 ;
10EN 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 ;
16DEVICE 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 ;
21EXIT K ^TMP($J),TSTA1,TSTAT,XCNP
22 D:$D(ZTQUEUED) KILL^%ZTLOAD G KILL^DVBCUTIL
Note: See TracBrowser for help on using the repository browser.