DGNTDD ;ALB/RPM - Cross reference for field #.09 ; 9/13/01 14:02
;;5.3;Registration;**397,423**;Aug 13, 1993
Q
;
SET(DGDA) ;
N DGDFN,DGIEN
S DGDFN=$P($G(^DGNT(28.11,DGDA,0)),"^")
Q:'DGDFN
I $D(^DGNT(28.11,"APR",DGDFN,1)) D
. S DGIEN=$O(^DGNT(28.11,"APR",DGDFN,1,0))
. Q:'DGIEN
. S $P(^DGNT(28.11,DGIEN,0),"^",9)=""
. S $P(^DGNT(28.11,DGIEN,0),"^",10)=$$NOW^XLFDT
. K ^DGNT(28.11,"APR",DGDFN,1,DGIEN)
S ^DGNT(28.11,"APR",DGDFN,1,DGDA)=""
Q
;
KILL(DGDA) ;
N DGDFN
S DGDFN=$P($G(^DGNT(28.11,DGDA,0)),"^")
Q:'DGDFN
K ^DGNT(28.11,"APR",DGDFN,1,DGDA)
Q
;
SETAST(DGDA) ;
N DGDFN,DGSTAT,DGIEN
S DGDFN=$G(^DGNT(28.11,DGDA,0))
Q:'+DGDFN
S DGIEN=$O(^DGNT(28.11,"B",+DGDFN,DGDA),-1) D
. Q:DGIEN=""
. I $P($G(^DGNT(28.11,DGIEN,0)),U,9)'=1 D
. . S DGSTAT=$P($G(^DGNT(28.11,DGIEN,0)),U,3)
. . Q:'+DGSTAT
. . K ^DGNT(28.11,"AST",DGSTAT,1,DGIEN)
S ^DGNT(28.11,"AST",$P(DGDFN,U,3),1,DGDA)=""
Q
;
KILAST(DGDA) ;
N DGSTAT
S DGSTAT=$P($G(^DGNT(28.11,DGDA,0)),U,3)
Q:'DGSTAT
K ^DGNT(28.11,"AST",DGSTAT,1,DGDA)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGNTDD 1071 printed Dec 13, 2024@02:46:11 Page 2
DGNTDD ;ALB/RPM - Cross reference for field #.09 ; 9/13/01 14:02
+1 ;;5.3;Registration;**397,423**;Aug 13, 1993
+2 QUIT
+3 ;
SET(DGDA) ;
+1 NEW DGDFN,DGIEN
+2 SET DGDFN=$PIECE($GET(^DGNT(28.11,DGDA,0)),"^")
+3 if 'DGDFN
QUIT
+4 IF $DATA(^DGNT(28.11,"APR",DGDFN,1))
Begin DoDot:1
+5 SET DGIEN=$ORDER(^DGNT(28.11,"APR",DGDFN,1,0))
+6 if 'DGIEN
QUIT
+7 SET $PIECE(^DGNT(28.11,DGIEN,0),"^",9)=""
+8 SET $PIECE(^DGNT(28.11,DGIEN,0),"^",10)=$$NOW^XLFDT
+9 KILL ^DGNT(28.11,"APR",DGDFN,1,DGIEN)
End DoDot:1
+10 SET ^DGNT(28.11,"APR",DGDFN,1,DGDA)=""
+11 QUIT
+12 ;
KILL(DGDA) ;
+1 NEW DGDFN
+2 SET DGDFN=$PIECE($GET(^DGNT(28.11,DGDA,0)),"^")
+3 if 'DGDFN
QUIT
+4 KILL ^DGNT(28.11,"APR",DGDFN,1,DGDA)
+5 QUIT
+6 ;
SETAST(DGDA) ;
+1 NEW DGDFN,DGSTAT,DGIEN
+2 SET DGDFN=$GET(^DGNT(28.11,DGDA,0))
+3 if '+DGDFN
QUIT
+4 SET DGIEN=$ORDER(^DGNT(28.11,"B",+DGDFN,DGDA),-1)
Begin DoDot:1
+5 if DGIEN=""
QUIT
+6 IF $PIECE($GET(^DGNT(28.11,DGIEN,0)),U,9)'=1
Begin DoDot:2
+7 SET DGSTAT=$PIECE($GET(^DGNT(28.11,DGIEN,0)),U,3)
+8 if '+DGSTAT
QUIT
+9 KILL ^DGNT(28.11,"AST",DGSTAT,1,DGIEN)
End DoDot:2
End DoDot:1
+10 SET ^DGNT(28.11,"AST",$PIECE(DGDFN,U,3),1,DGDA)=""
+11 QUIT
+12 ;
KILAST(DGDA) ;
+1 NEW DGSTAT
+2 SET DGSTAT=$PIECE($GET(^DGNT(28.11,DGDA,0)),U,3)
+3 if 'DGSTAT
QUIT
+4 KILL ^DGNT(28.11,"AST",DGSTAT,1,DGDA)
+5 QUIT
