source: FOIAVistA/trunk/r/ENGINEERING-EN/ENAR2.m@ 1540

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

initial load of FOIAVistA 6/30/08 version

File size: 852 bytes
Line 
1ENAR2 ;(WASH ISC)/JED/DH-Archive Module ;3-9-89
2 ;;7.0;ENGINEERING;;Aug 17, 1993
3 ;EXPANSION OF ENAR1, CALLED BY ENAR1
4ID ;DISPLAY ID INFO
5 I '$D(ENDA),'($D(^ENAR(ENGBL,-1))#10) D ID1 Q
6 I '$D(ENDA) S ENID=^ENAR(ENGBL,-1) S:$D(@ENID)=1 ENDA=+$P(ENID,",",4) I $D(@ENID)'=1 D ID1 Q
7 I $E(IOST)'="P" S (DA,DJDN,W(1))=ENDA,(DJNM,DJSC)="ENAR",DJDIS=1 D ^ENJPARAM Q:'$D(DJRJ) D ^ENJDPL,^ENJC2
8 I $E(IOST)="P" S DIC="^ENG(6919,",DA=ENDA D EN^DIQ K DIC,DA Q
9 K DA,DJCL,DJCP,DJDD,DJDIS,DJDN,DJDPL,DJEOP,DJF,DJFF,DJHIN,DJJ,DJK,DJKEY,DJRJ,DJSC,DJST,DJT,W,V Q
10ID1 W !,"Insufficient data to display the ID information." Q
11C ;CONFIRM ID DISPLAY
12 D ID W !!!!,"Please confirm, is this the expected archive record" S %=1 D YN^DICN Q:%=1
13 I %=0 W !,"The existing system archive global has the following ID information",!! G C
14 S ENERR="ARCHIVE RECORD NOT CONFIRMED"
15 Q
Note: See TracBrowser for help on using the repository browser.