source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGNTDD.m@ 1651

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1DGNTDD ;ALB/RPM - Cross reference for field #.09 ; 9/13/01 14:02
2 ;;5.3;Registration;**397,423**;Aug 13, 1993
3 Q
4 ;
5SET(DGDA) ;
6 N DGDFN,DGIEN
7 S DGDFN=$P($G(^DGNT(28.11,DGDA,0)),"^")
8 Q:'DGDFN
9 I $D(^DGNT(28.11,"APR",DGDFN,1)) D
10 . S DGIEN=$O(^DGNT(28.11,"APR",DGDFN,1,0))
11 . Q:'DGIEN
12 . S $P(^DGNT(28.11,DGIEN,0),"^",9)=""
13 . S $P(^DGNT(28.11,DGIEN,0),"^",10)=$$NOW^XLFDT
14 . K ^DGNT(28.11,"APR",DGDFN,1,DGIEN)
15 S ^DGNT(28.11,"APR",DGDFN,1,DGDA)=""
16 Q
17 ;
18KILL(DGDA) ;
19 N DGDFN
20 S DGDFN=$P($G(^DGNT(28.11,DGDA,0)),"^")
21 Q:'DGDFN
22 K ^DGNT(28.11,"APR",DGDFN,1,DGDA)
23 Q
24 ;
25SETAST(DGDA) ;
26 N DGDFN,DGSTAT,DGIEN
27 S DGDFN=$G(^DGNT(28.11,DGDA,0))
28 Q:'+DGDFN
29 S DGIEN=$O(^DGNT(28.11,"B",+DGDFN,DGDA),-1) D
30 . Q:DGIEN=""
31 . I $P($G(^DGNT(28.11,DGIEN,0)),U,9)'=1 D
32 . . S DGSTAT=$P($G(^DGNT(28.11,DGIEN,0)),U,3)
33 . . Q:'+DGSTAT
34 . . K ^DGNT(28.11,"AST",DGSTAT,1,DGIEN)
35 S ^DGNT(28.11,"AST",$P(DGDFN,U,3),1,DGDA)=""
36 Q
37 ;
38KILAST(DGDA) ;
39 N DGSTAT
40 S DGSTAT=$P($G(^DGNT(28.11,DGDA,0)),U,3)
41 Q:'DGSTAT
42 K ^DGNT(28.11,"AST",DGSTAT,1,DGDA)
43 Q
Note: See TracBrowser for help on using the repository browser.