| 1 | DGNTDD ;ALB/RPM - Cross reference for field #.09 ; 9/13/01 14:02
|
|---|
| 2 | ;;5.3;Registration;**397,423**;Aug 13, 1993
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | SET(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 | ;
|
|---|
| 18 | KILL(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 | ;
|
|---|
| 25 | SETAST(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 | ;
|
|---|
| 38 | KILAST(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
|
|---|
