Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGPTX78

DGPTX78.m

Go to the documentation of this file.
  1. DGPTX78 ; ;10/15/12
  1. ;;
  1. 1 N X,X1,X2 S DIXR=366 D X1(U) K X2 M X2=X D X1("F") K X1 M X1=X
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD1")
  1. K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD1")
  1. Q
  1. X1(DION) K X
  1. S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
  1. S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
  1. S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
  1. S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.16,DION),$P($G(^DGPT(DA,70)),U,16))
  1. S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
  1. S X=$G(X(1))
  1. Q
  1. 2 N X,X1,X2 S DIXR=367 D X2(U) K X2 M X2=X D X2("F") K X1 M X1=X
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD10")
  1. K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD10")
  1. Q
  1. X2(DION) K X
  1. S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
  1. S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
  1. S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
  1. S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.241,DION),$P($G(^DGPT(DA,71)),U,1))
  1. S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
  1. S X=$G(X(1))
  1. Q
  1. 3 N X,X1,X2 S DIXR=368 D X3(U) K X2 M X2=X D X3("F") K X1 M X1=X
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD11")
  1. K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD11")
  1. Q
  1. X3(DION) K X
  1. S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
  1. S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
  1. S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
  1. S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.242,DION),$P($G(^DGPT(DA,71)),U,2))
  1. S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
  1. S X=$G(X(1))
  1. Q
  1. 4 N X,X1,X2 S DIXR=369 D X4(U) K X2 M X2=X D X4("F") K X1 M X1=X
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD12")
  1. K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD12")
  1. Q
  1. X4(DION) K X
  1. S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
  1. S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
  1. S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
  1. S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.243,DION),$P($G(^DGPT(DA,71)),U,3))
  1. S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
  1. S X=$G(X(1))
  1. Q
  1. 5 N X,X1,X2 S DIXR=371 D X5(U) K X2 M X2=X D X5("F") K X1 M X1=X
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD2")
  1. K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD2")
  1. Q
  1. X5(DION) K X
  1. S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
  1. S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
  1. S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
  1. S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.17,DION),$P($G(^DGPT(DA,70)),U,17))
  1. S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
  1. S X=$G(X(1))
  1. Q
  1. 6 N X,X1,X2 S DIXR=372 D X6(U) K X2 M X2=X D X6("F") K X1 M X1=X
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD3")
  1. K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD3")
  1. Q
  1. X6(DION) K X
  1. S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
  1. S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
  1. S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
  1. S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.18,DION),$P($G(^DGPT(DA,70)),U,18))
  1. S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
  1. S X=$G(X(1))
  1. Q
  1. 7 N X,X1,X2 S DIXR=373 D X7(U) K X2 M X2=X D X7("F") K X1 M X1=X
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD4")
  1. K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD4")
  1. Q
  1. X7(DION) K X
  1. S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
  1. S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
  1. S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
  1. S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.19,DION),$P($G(^DGPT(DA,70)),U,19))
  1. S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
  1. S X=$G(X(1))
  1. Q
  1. 8 N X,X1,X2 S DIXR=374 D X8(U) K X2 M X2=X D X8("F") K X1 M X1=X
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD5")
  1. K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD5")
  1. Q
  1. X8(DION) K X
  1. S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
  1. S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
  1. S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
  1. S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.201,DION),$P($G(^DGPT(DA,70)),U,20))
  1. S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
  1. S X=$G(X(1))
  1. Q
  1. 9 N X,X1,X2 S DIXR=375 D X9(U) K X2 M X2=X D X9("F") K X1 M X1=X
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD6")
  1. K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD6")
  1. Q
  1. X9(DION) K X
  1. S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
  1. S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
  1. S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
  1. S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.21,DION),$P($G(^DGPT(DA,70)),U,21))
  1. S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
  1. S X=$G(X(1))
  1. Q