DGPTXX9 ; COMPILED XREF FOR FILE #45 ; 10/15/12
;
I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
. K X1,X2 M X1=X,X2=X
. D SDGPT9D^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
. D SDGPT9D^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
. D SDGPT9D^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
. D SDGPT9D^DGPTDDCR(.X,.DA,"PDX")
CR16 K X
END G ^DGPTXX10
DGPTXX9 ; COMPILED XREF FOR FILE #45 ; 10/15/12
+1 ;
+2 IF $GET(X(1))]""
IF $GET(X(2))]""
IF $GET(X(3))]""
IF $GET(X(4))]""
Begin DoDot:1
+3 KILL X1,X2
MERGE X1=X,X2=X
+4 DO SDGPT9D^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 DO SDGPT9D^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 DO SDGPT9D^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 DO SDGPT9D^DGPTDDCR(.X,.DA,"PDX")
End DoDot:1
CR16 KILL X
END GOTO ^DGPTXX10
