| [613] | 1 | DGDDC ;ALB/MRL - X-ECUTE KILL X-REFERENCES [PATIENT] ;25 JUL 88@1337
|
|---|
| 2 | ;;5.3;Registration;**489,244,527,700,673**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | Q:$D(DGNOFDEL) ;Flag variable to prevent deletion cascade
|
|---|
| 5 | ;
|
|---|
| 6 | Q:'$D(DGXRF) N DGXRFX,DGXRF1,DGXRF2,DGXRF3,DGXRF3,DGXRF4,DGXRF5,DGXRF6,DGXRF7,DGXRF8,DGXRFP,DGXRFX
|
|---|
| 7 | S DGXRFX=X,DGXRF1=+$P(DGXRF,".",2),DGXRF2=$P($T(@DGXRF1),";;",2) G Q:DGXRF2=""
|
|---|
| 8 | I $D(^DD(2,DGXRF,0)) S DGXRFP=$P(^(0),"^",4),DGXRF6=$P(DGXRFP,";",2),DGXRF5=$P(DGXRFP,";",1) I $D(^DPT(DA,DGXRF5)),($P(^(DGXRF5),"^",DGXRF6)=DGXRFX) G Q
|
|---|
| 9 | I DGXRF=".1212",($D(^DPT(DA,DGXRF5))),($P(^(DGXRF5),"^",DGXRF6)="") S DGFDA(2,DA_",",.1213)="" D FILE^DIE("","DGFDA","DGERR") K DGFDA,DGERR G Q
|
|---|
| 10 | N DGFDA,DGERR
|
|---|
| 11 | ;F DGXRF3=1:1 S DGXRF4=$P(DGXRF2,"^",DGXRF3) Q:DGXRF4="" I $D(^DD(2,DGXRF4,0)) S DGXRF5=$P(^(0),"^",4),DGXRF6=$P(DGXRF5,";",2),DGXRF5=$P(DGXRF5,";",1) I $D(^DPT(DA,DGXRF5)),$P(^(DGXRF5),"^",DGXRF6)'="" D KILL
|
|---|
| 12 | F DGXRF3=1:1 S DGXRF4=$P(DGXRF2,"^",DGXRF3) Q:DGXRF4="" I $D(^DD(2,DGXRF4,0)) S DGXRF5=$P(^(0),"^",4),DGXRF6=$P(DGXRF5,";",2),DGXRF5=$P(DGXRF5,";",1) I $D(^DPT(DA,DGXRF5)),$P(^(DGXRF5),"^",DGXRF6)'="",DGXRF4'=".1212" D
|
|---|
| 13 | .I DGXRF4'=".1213" S DGFDA(2,DA_",",DGXRF4)=""
|
|---|
| 14 | I $D(DGFDA) D FILE^DIE("","DGFDA","DGERR")
|
|---|
| 15 | Q S X=DGXRFX K DGXRF Q ;,DGXRFX,DGXRF1,DGXRF2,DGXRF3,DGXRF3,DGXRF4,DGXRF5,DGXRF6,DGXRF7,DGXRF8,DGXRFP,DGXRFX Q
|
|---|
| 16 | KILL S DGXRF7=$P(^DPT(DA,DGXRF5),"^",DGXRF6),$P(^DPT(DA,DGXRF5),"^",DGXRF6)=""
|
|---|
| 17 | F DGXRF8=0:0 S DGXRF8=$O(^DD(2,DGXRF4,1,DGXRF8)) Q:'DGXRF8 I $D(^DD(2,DGXRF4,1,DGXRF8,2)) S X=DGXRF7 X:^(2)'["DGXRF" ^(2) D SET I $D(^DD(2,DGXRF4,1,DGXRF8,1)) D SET
|
|---|
| 18 | Q
|
|---|
| 19 | SET Q:^DD(2,DGXRF4,1,DGXRF8,1)'["DGXRF" S X="" X ^(1) Q
|
|---|
| 20 | ;
|
|---|
| 21 | 152 ;;.1651^.1653^.1654^.1656^.307^
|
|---|
| 22 | 153 ;;.1657^.1658^.1659^
|
|---|
| 23 | 211 ;;.212^.2125^.213^.214^.215^.216^.217^.218^.219^.21011^.2207^
|
|---|
| 24 | 2191 ;;.2192^.21925^.2193^.2194^.2195^.2196^.2197^.2198^.2199^.211011^.2203^
|
|---|
| 25 | 251 ;;.252^.253^.254^.255^.256^.257^.258^.2206^
|
|---|
| 26 | 3111 ;;.3113^.3114^.3115^.3116^.3117^.3118^.3119^.2205^
|
|---|
| 27 | 331 ;;.332^.3305^.333^.334^.335^.336^.337^.338^.339^.33011^.2201^
|
|---|
| 28 | 3311 ;;.3312^.3313^.3314^.3315^.3316^.3317^.3318^.3319^.331011^.2204^
|
|---|
| 29 | 341 ;;.342^.3405^.343^.344^.345^.346^.347^.348^.349^.34011^.2202^
|
|---|
| 30 | 3285 ;;.329^.3291^.3292^.3293^.3294^.32912^
|
|---|
| 31 | 32945 ;;.3295^.3296^.3297^.3298^.3299^.32913^
|
|---|
| 32 | 3291 ;;.32912
|
|---|
| 33 | 3296 ;;.32913
|
|---|
| 34 | 325 ;;.32911
|
|---|
| 35 | 111 ;;.112^.113
|
|---|
| 36 | 112 ;;.113
|
|---|
| 37 | 12105 ;;.1217^.1218
|
|---|
| 38 | 1211 ;;.1212^.1213
|
|---|
| 39 | 1212 ;;.1213
|
|---|
| 40 | 14105 ;;.1417^.1418
|
|---|
| 41 | 1411 ;;.1412^.1413
|
|---|
| 42 | 1412 ;;.1413
|
|---|
| 43 | 213 ;;.214^.215
|
|---|
| 44 | 214 ;;.215
|
|---|
| 45 | 2193 ;;.2194^.2195
|
|---|
| 46 | 2194 ;;.2195
|
|---|
| 47 | 252 ;;.253^.254
|
|---|
| 48 | 253 ;;.254
|
|---|
| 49 | 3113 ;;.3114^.3115
|
|---|
| 50 | 3114 ;;.3115
|
|---|
| 51 | 3313 ;;.3314^.3315
|
|---|
| 52 | 3314 ;;.3315
|
|---|
| 53 | 333 ;;.334^.335
|
|---|
| 54 | 334 ;;.335
|
|---|
| 55 | 343 ;;.344^.345
|
|---|
| 56 | 344 ;;.345
|
|---|
| 57 | 361 ;;.3611
|
|---|
