DGPTXX10 ; COMPILED XREF FOR FILE #45.01 ; 10/30/24
;
S DA(1)=DA S DA=0
A1 ;
I $D(DISET) K DIKLM S:DIKM1=1 DIKLM=1 G @DIKM1
0 ;
A S DA=$O(^DGPT(DA(1),"S",DA)) I DA'>0 S DA=0 G END
1 ;
CR1 S DIXR=1205
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,8)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",1)
CR2 S DIXR=1206
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,9)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",2)
CR3 S DIXR=1207
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,10)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",3)
CR4 S DIXR=1208
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,11)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",4)
CR5 S DIXR=1209
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,12)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",5)
CR6 S DIXR=1270
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,17)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",10)
CR7 S DIXR=1271
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,18)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",11)
CR8 S DIXR=1272
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,19)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",12)
CR9 S DIXR=1273
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,20)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",13)
CR10 S DIXR=1274
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,21)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",14)
CR11 S DIXR=1275
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,22)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",15)
CR12 S DIXR=1276
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,23)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",16)
CR13 S DIXR=1277
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,24)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",17)
CR14 S DIXR=1278
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,25)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",18)
CR15 S DIXR=1279
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,26)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",19)
CR16 S DIXR=1280
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,27)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",20)
CR17 S DIXR=1281
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S DIKZ(1)=$G(^DGPT(DA(1),"S",DA,1))
S X(2)=$P(DIKZ(1),U,1)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",21)
CR18 S DIXR=1282
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S DIKZ(1)=$G(^DGPT(DA(1),"S",DA,1))
S X(2)=$P(DIKZ(1),U,2)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",22)
CR19 S DIXR=1283
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S DIKZ(1)=$G(^DGPT(DA(1),"S",DA,1))
S X(2)=$P(DIKZ(1),U,3)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",23)
CR20 S DIXR=1284
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S DIKZ(1)=$G(^DGPT(DA(1),"S",DA,1))
S X(2)=$P(DIKZ(1),U,4)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",24)
CR21 S DIXR=1285
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S DIKZ(1)=$G(^DGPT(DA(1),"S",DA,1))
S X(2)=$P(DIKZ(1),U,5)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",25)
CR22 S DIXR=1286
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,13)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",6)
CR23 S DIXR=1287
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,14)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",7)
CR24 S DIXR=1288
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,15)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",8)
CR25 S DIXR=1289
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,16)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. D SPTFP^DGPTDDCR(.X,.DA,"S",9)
CR26 S DIXR=1290
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,8)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR27 S DIXR=1291
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,17)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR28 S DIXR=1292
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,18)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR29 S DIXR=1293
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,19)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR30 S DIXR=1294
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,20)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR31 S DIXR=1295
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,21)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR32 S DIXR=1296
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,22)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR33 S DIXR=1297
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,23)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR34 S DIXR=1298
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,24)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR35 S DIXR=1299
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,25)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR36 S DIXR=1300
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,26)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR37 S DIXR=1301
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,9)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR38 S DIXR=1302
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,27)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR39 S DIXR=1303
K X
S DIKZ(1)=$G(^DGPT(DA(1),"S",DA,1))
S X(1)=$P(DIKZ(1),U,1)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR40 S DIXR=1304
K X
S DIKZ(1)=$G(^DGPT(DA(1),"S",DA,1))
S X(1)=$P(DIKZ(1),U,2)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR41 S DIXR=1305
K X
S DIKZ(1)=$G(^DGPT(DA(1),"S",DA,1))
S X(1)=$P(DIKZ(1),U,3)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR42 S DIXR=1306
K X
S DIKZ(1)=$G(^DGPT(DA(1),"S",DA,1))
S X(1)=$P(DIKZ(1),U,4)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR43 S DIXR=1307
K X
S DIKZ(1)=$G(^DGPT(DA(1),"S",DA,1))
S X(1)=$P(DIKZ(1),U,5)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR44 S DIXR=1308
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,10)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR45 S DIXR=1309
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,11)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR46 S DIXR=1310
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,12)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR47 S DIXR=1311
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,13)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR48 S DIXR=1312
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,14)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR49 S DIXR=1313
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,15)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR50 S DIXR=1314
K X
S DIKZ(0)=$G(^DGPT(DA(1),"S",DA,0))
S X(1)=$P(DIKZ(0),U,16)
S X=$G(X(1))
I $G(X(1))]"" D
. K X1,X2 M X1=X,X2=X
. S ^DGPT(DA(1),"S","AO",X,DA)=""
CR51 K X
G:'$D(DIKLM) A Q:$D(DISET)
END G ^DGPTXX11
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPTXX10 10385 printed Dec 13, 2024@02:54:19 Page 2
DGPTXX10 ; COMPILED XREF FOR FILE #45.01 ; 10/30/24
+1 ;
+2 SET DA(1)=DA
SET DA=0
A1 ;
+1 IF $DATA(DISET)
KILL DIKLM
if DIKM1=1
SET DIKLM=1
GOTO @DIKM1
0 ;
A SET DA=$ORDER(^DGPT(DA(1),"S",DA))
IF DA'>0
SET DA=0
GOTO END
1 ;
CR1 SET DIXR=1205
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,8)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",1)
End DoDot:1
CR2 SET DIXR=1206
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,9)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",2)
End DoDot:1
CR3 SET DIXR=1207
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,10)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",3)
End DoDot:1
CR4 SET DIXR=1208
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,11)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",4)
End DoDot:1
CR5 SET DIXR=1209
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,12)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",5)
End DoDot:1
CR6 SET DIXR=1270
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,17)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",10)
End DoDot:1
CR7 SET DIXR=1271
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,18)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",11)
End DoDot:1
CR8 SET DIXR=1272
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,19)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",12)
End DoDot:1
CR9 SET DIXR=1273
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,20)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",13)
End DoDot:1
CR10 SET DIXR=1274
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,21)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",14)
End DoDot:1
CR11 SET DIXR=1275
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,22)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",15)
End DoDot:1
CR12 SET DIXR=1276
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,23)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",16)
End DoDot:1
CR13 SET DIXR=1277
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,24)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",17)
End DoDot:1
CR14 SET DIXR=1278
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,25)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",18)
End DoDot:1
CR15 SET DIXR=1279
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,26)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",19)
End DoDot:1
CR16 SET DIXR=1280
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,27)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",20)
End DoDot:1
CR17 SET DIXR=1281
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET DIKZ(1)=$GET(^DGPT(DA(1),"S",DA,1))
+5 SET X(2)=$PIECE(DIKZ(1),U,1)
+6 SET X=$GET(X(1))
+7 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+8 KILL X1,X2
MERGE X1=X,X2=X
+9 DO SPTFP^DGPTDDCR(.X,.DA,"S",21)
End DoDot:1
CR18 SET DIXR=1282
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET DIKZ(1)=$GET(^DGPT(DA(1),"S",DA,1))
+5 SET X(2)=$PIECE(DIKZ(1),U,2)
+6 SET X=$GET(X(1))
+7 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+8 KILL X1,X2
MERGE X1=X,X2=X
+9 DO SPTFP^DGPTDDCR(.X,.DA,"S",22)
End DoDot:1
CR19 SET DIXR=1283
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET DIKZ(1)=$GET(^DGPT(DA(1),"S",DA,1))
+5 SET X(2)=$PIECE(DIKZ(1),U,3)
+6 SET X=$GET(X(1))
+7 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+8 KILL X1,X2
MERGE X1=X,X2=X
+9 DO SPTFP^DGPTDDCR(.X,.DA,"S",23)
End DoDot:1
CR20 SET DIXR=1284
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET DIKZ(1)=$GET(^DGPT(DA(1),"S",DA,1))
+5 SET X(2)=$PIECE(DIKZ(1),U,4)
+6 SET X=$GET(X(1))
+7 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+8 KILL X1,X2
MERGE X1=X,X2=X
+9 DO SPTFP^DGPTDDCR(.X,.DA,"S",24)
End DoDot:1
CR21 SET DIXR=1285
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET DIKZ(1)=$GET(^DGPT(DA(1),"S",DA,1))
+5 SET X(2)=$PIECE(DIKZ(1),U,5)
+6 SET X=$GET(X(1))
+7 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+8 KILL X1,X2
MERGE X1=X,X2=X
+9 DO SPTFP^DGPTDDCR(.X,.DA,"S",25)
End DoDot:1
CR22 SET DIXR=1286
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,13)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",6)
End DoDot:1
CR23 SET DIXR=1287
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,14)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",7)
End DoDot:1
CR24 SET DIXR=1288
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,15)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",8)
End DoDot:1
CR25 SET DIXR=1289
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,16)
+5 SET X=$GET(X(1))
+6 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+7 KILL X1,X2
MERGE X1=X,X2=X
+8 DO SPTFP^DGPTDDCR(.X,.DA,"S",9)
End DoDot:1
CR26 SET DIXR=1290
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,8)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR27 SET DIXR=1291
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,17)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR28 SET DIXR=1292
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,18)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR29 SET DIXR=1293
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,19)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR30 SET DIXR=1294
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,20)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR31 SET DIXR=1295
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,21)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR32 SET DIXR=1296
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,22)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR33 SET DIXR=1297
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,23)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR34 SET DIXR=1298
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,24)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR35 SET DIXR=1299
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,25)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR36 SET DIXR=1300
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,26)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR37 SET DIXR=1301
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,9)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR38 SET DIXR=1302
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,27)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR39 SET DIXR=1303
+1 KILL X
+2 SET DIKZ(1)=$GET(^DGPT(DA(1),"S",DA,1))
+3 SET X(1)=$PIECE(DIKZ(1),U,1)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR40 SET DIXR=1304
+1 KILL X
+2 SET DIKZ(1)=$GET(^DGPT(DA(1),"S",DA,1))
+3 SET X(1)=$PIECE(DIKZ(1),U,2)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR41 SET DIXR=1305
+1 KILL X
+2 SET DIKZ(1)=$GET(^DGPT(DA(1),"S",DA,1))
+3 SET X(1)=$PIECE(DIKZ(1),U,3)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR42 SET DIXR=1306
+1 KILL X
+2 SET DIKZ(1)=$GET(^DGPT(DA(1),"S",DA,1))
+3 SET X(1)=$PIECE(DIKZ(1),U,4)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR43 SET DIXR=1307
+1 KILL X
+2 SET DIKZ(1)=$GET(^DGPT(DA(1),"S",DA,1))
+3 SET X(1)=$PIECE(DIKZ(1),U,5)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR44 SET DIXR=1308
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,10)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR45 SET DIXR=1309
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,11)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR46 SET DIXR=1310
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,12)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR47 SET DIXR=1311
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,13)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR48 SET DIXR=1312
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,14)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR49 SET DIXR=1313
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,15)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR50 SET DIXR=1314
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA(1),"S",DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,16)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 SET ^DGPT(DA(1),"S","AO",X,DA)=""
End DoDot:1
CR51 KILL X
+1 if '$DATA(DIKLM)
GOTO A
if $DATA(DISET)
QUIT
END GOTO ^DGPTXX11
