DGPTXX2 ; COMPILED XREF FOR FILE #45 ; 10/15/12
;
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,2)
S X(3)=$P(DIKZ(0),U,11)
S DIKZ(70)=$G(^DGPT(DA,70))
S X(4)=$P(DIKZ(70),U,22)
S X(5)=$P(DIKZ(70),U,1)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
. K X1,X2 M X1=X,X2=X
. S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
. D KDGPT9D^DGPTDDCR(.X,.DA,"D SD7")
CR12 S DIXR=377
K X
S DIKZ(0)=$G(^DGPT(DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,2)
S X(3)=$P(DIKZ(0),U,11)
S DIKZ(70)=$G(^DGPT(DA,70))
S X(4)=$P(DIKZ(70),U,23)
S X(5)=$P(DIKZ(70),U,1)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
. K X1,X2 M X1=X,X2=X
. S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
. D KDGPT9D^DGPTDDCR(.X,.DA,"D SD8")
CR13 S DIXR=378
K X
S DIKZ(0)=$G(^DGPT(DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,2)
S X(3)=$P(DIKZ(0),U,11)
S DIKZ(70)=$G(^DGPT(DA,70))
S X(4)=$P(DIKZ(70),U,24)
S X(5)=$P(DIKZ(70),U,1)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
. K X1,X2 M X1=X,X2=X
. S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
. D KDGPT9D^DGPTDDCR(.X,.DA,"D SD9")
CR14 S DIXR=379
K X
S DIKZ(0)=$G(^DGPT(DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,2)
S X(3)=$P(DIKZ(0),U,11)
S DIKZ(70)=$G(^DGPT(DA,70))
S X(4)=$P(DIKZ(70),U,10)
S X(5)=$P(DIKZ(70),U,1)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
. K X1,X2 M X1=X,X2=X
. S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
. D KDGPT9D^DGPTDDCR(.X,.DA,"DXLS")
CR15 S DIXR=390
K X
S DIKZ(0)=$G(^DGPT(DA,0))
S X(1)=$P(DIKZ(0),U,1)
S X(2)=$P(DIKZ(0),U,2)
S X(3)=$P(DIKZ(0),U,11)
S DIKZ(70)=$G(^DGPT(DA,70))
S X(4)=$P(DIKZ(70),U,11)
S X(5)=$P(DIKZ(70),U,1)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
. K X1,X2 M X1=X,X2=X
. S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
. D KDGPT9D^DGPTDDCR(.X,.DA,"PDX")
CR16 K X
END G ^DGPTXX3
DGPTXX2 ; COMPILED XREF FOR FILE #45 ; 10/15/12
+1 ;
+2 SET X(1)=$PIECE(DIKZ(0),U,1)
+3 SET X(2)=$PIECE(DIKZ(0),U,2)
+4 SET X(3)=$PIECE(DIKZ(0),U,11)
+5 SET DIKZ(70)=$GET(^DGPT(DA,70))
+6 SET X(4)=$PIECE(DIKZ(70),U,22)
+7 SET X(5)=$PIECE(DIKZ(70),U,1)
+8 SET X=$GET(X(1))
+9 IF $GET(X(1))]""
IF $GET(X(2))]""
IF $GET(X(3))]""
IF $GET(X(4))]""
Begin DoDot:1
+10 KILL X1,X2
MERGE X1=X,X2=X
+11 IF $DATA(DIKIL)
SET (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
+12 DO KDGPT9D^DGPTDDCR(.X,.DA,"D SD7")
End DoDot:1
CR12 SET DIXR=377
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,2)
+5 SET X(3)=$PIECE(DIKZ(0),U,11)
+6 SET DIKZ(70)=$GET(^DGPT(DA,70))
+7 SET X(4)=$PIECE(DIKZ(70),U,23)
+8 SET X(5)=$PIECE(DIKZ(70),U,1)
+9 SET X=$GET(X(1))
+10 IF $GET(X(1))]""
IF $GET(X(2))]""
IF $GET(X(3))]""
IF $GET(X(4))]""
Begin DoDot:1
+11 KILL X1,X2
MERGE X1=X,X2=X
+12 IF $DATA(DIKIL)
SET (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
+13 DO KDGPT9D^DGPTDDCR(.X,.DA,"D SD8")
End DoDot:1
CR13 SET DIXR=378
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,2)
+5 SET X(3)=$PIECE(DIKZ(0),U,11)
+6 SET DIKZ(70)=$GET(^DGPT(DA,70))
+7 SET X(4)=$PIECE(DIKZ(70),U,24)
+8 SET X(5)=$PIECE(DIKZ(70),U,1)
+9 SET X=$GET(X(1))
+10 IF $GET(X(1))]""
IF $GET(X(2))]""
IF $GET(X(3))]""
IF $GET(X(4))]""
Begin DoDot:1
+11 KILL X1,X2
MERGE X1=X,X2=X
+12 IF $DATA(DIKIL)
SET (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
+13 DO KDGPT9D^DGPTDDCR(.X,.DA,"D SD9")
End DoDot:1
CR14 SET DIXR=379
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,2)
+5 SET X(3)=$PIECE(DIKZ(0),U,11)
+6 SET DIKZ(70)=$GET(^DGPT(DA,70))
+7 SET X(4)=$PIECE(DIKZ(70),U,10)
+8 SET X(5)=$PIECE(DIKZ(70),U,1)
+9 SET X=$GET(X(1))
+10 IF $GET(X(1))]""
IF $GET(X(2))]""
IF $GET(X(3))]""
IF $GET(X(4))]""
Begin DoDot:1
+11 KILL X1,X2
MERGE X1=X,X2=X
+12 IF $DATA(DIKIL)
SET (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
+13 DO KDGPT9D^DGPTDDCR(.X,.DA,"DXLS")
End DoDot:1
CR15 SET DIXR=390
+1 KILL X
+2 SET DIKZ(0)=$GET(^DGPT(DA,0))
+3 SET X(1)=$PIECE(DIKZ(0),U,1)
+4 SET X(2)=$PIECE(DIKZ(0),U,2)
+5 SET X(3)=$PIECE(DIKZ(0),U,11)
+6 SET DIKZ(70)=$GET(^DGPT(DA,70))
+7 SET X(4)=$PIECE(DIKZ(70),U,11)
+8 SET X(5)=$PIECE(DIKZ(70),U,1)
+9 SET X=$GET(X(1))
+10 IF $GET(X(1))]""
IF $GET(X(2))]""
IF $GET(X(3))]""
IF $GET(X(4))]""
Begin DoDot:1
+11 KILL X1,X2
MERGE X1=X,X2=X
+12 IF $DATA(DIKIL)
SET (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
+13 DO KDGPT9D^DGPTDDCR(.X,.DA,"PDX")
End DoDot:1
CR16 KILL X
END GOTO ^DGPTXX3
