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

DGPTXX4.m

Go to the documentation of this file.
  1. DGPTXX4 ; COMPILED XREF FOR FILE #45.02 ; 10/30/24
  1. ;
  1. S DA=0
  1. A1 ;
  1. I $D(DIKILL) K DIKLM S:DIKM1=1 DIKLM=1 G @DIKM1
  1. 0 ;
  1. A S DA=$O(^DGPT(DA(1),"M",DA)) I DA'>0 S DA=0 G END
  1. 1 ;
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X=$P($G(DIKZ(0)),U,2)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=45.02,DIG=16 D ^DICR
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X=$P($G(DIKZ(0)),U,5)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(0)),U,5)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,1)=DIV,DIH=45.02,DIG=82.01 D ^DICR
  1. S X=$P($G(DIKZ(0)),U,5)
  1. I X'="" X ^DD(45.02,5,1,992,2)
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X=$P($G(DIKZ(0)),U,6)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(0)),U,6)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,2)=DIV,DIH=45.02,DIG=82.02 D ^DICR
  1. S X=$P($G(DIKZ(0)),U,6)
  1. I X'="" X ^DD(45.02,6,1,992,2)
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X=$P($G(DIKZ(0)),U,7)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(0)),U,7)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,3)=DIV,DIH=45.02,DIG=82.03 D ^DICR
  1. S X=$P($G(DIKZ(0)),U,7)
  1. I X'="" X ^DD(45.02,7,1,992,2)
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X=$P($G(DIKZ(0)),U,8)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(0)),U,8)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,4)=DIV,DIH=45.02,DIG=82.04 D ^DICR
  1. S X=$P($G(DIKZ(0)),U,8)
  1. I X'="" X ^DD(45.02,8,1,992,2)
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X=$P($G(DIKZ(0)),U,9)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(0)),U,9)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,5)=DIV,DIH=45.02,DIG=82.05 D ^DICR
  1. S X=$P($G(DIKZ(0)),U,9)
  1. I X'="" X ^DD(45.02,9,1,992,2)
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X=$P($G(DIKZ(0)),U,10)
  1. I X'="" K ^DGPT(DA(1),"M","AM",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(0)),U,11)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(0)),U,11)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,6)=DIV,DIH=45.02,DIG=82.06 D ^DICR
  1. S X=$P($G(DIKZ(0)),U,11)
  1. I X'="" X ^DD(45.02,11,1,992,2)
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X=$P($G(DIKZ(0)),U,12)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(0)),U,12)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,7)=DIV,DIH=45.02,DIG=82.07 D ^DICR
  1. S X=$P($G(DIKZ(0)),U,12)
  1. I X'="" X ^DD(45.02,12,1,992,2)
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X=$P($G(DIKZ(0)),U,13)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(0)),U,13)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,8)=DIV,DIH=45.02,DIG=82.08 D ^DICR
  1. S X=$P($G(DIKZ(0)),U,13)
  1. I X'="" X ^DD(45.02,13,1,992,2)
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X=$P($G(DIKZ(0)),U,14)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(0)),U,14)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,9)=DIV,DIH=45.02,DIG=82.09 D ^DICR
  1. S X=$P($G(DIKZ(0)),U,14)
  1. I X'="" X ^DD(45.02,14,1,992,2)
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X=$P($G(DIKZ(0)),U,15)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(0)),U,15)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" X ^DD(45.02,15,1,2,2.4)
  1. S X=$P($G(DIKZ(0)),U,15)
  1. I X'="" X ^DD(45.02,15,1,992,2)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X=$P($G(DIKZ(81)),U,1)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(81)),U,1)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="" X ^DD(45.02,81.01,1,2,2.4)
  1. S X=$P($G(DIKZ(81)),U,1)
  1. I X'="" X ^DD(45.02,81.01,1,992,2)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X=$P($G(DIKZ(81)),U,2)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(81)),U,2)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" X ^DD(45.02,81.02,1,2,2.4)
  1. S X=$P($G(DIKZ(81)),U,2)
  1. I X'="" X ^DD(45.02,81.02,1,992,2)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X=$P($G(DIKZ(81)),U,3)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(81)),U,3)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" X ^DD(45.02,81.03,1,2,2.4)
  1. S X=$P($G(DIKZ(81)),U,3)
  1. I X'="" X ^DD(45.02,81.03,1,992,2)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X=$P($G(DIKZ(81)),U,4)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(81)),U,4)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="" X ^DD(45.02,81.04,1,2,2.4)
  1. S X=$P($G(DIKZ(81)),U,4)
  1. I X'="" X ^DD(45.02,81.04,1,992,2)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X=$P($G(DIKZ(81)),U,5)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(81)),U,5)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" X ^DD(45.02,81.05,1,2,2.4)
  1. S X=$P($G(DIKZ(81)),U,5)
  1. I X'="" X ^DD(45.02,81.05,1,992,2)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X=$P($G(DIKZ(81)),U,6)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(81)),U,6)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" X ^DD(45.02,81.06,1,2,2.4)
  1. S X=$P($G(DIKZ(81)),U,6)
  1. I X'="" X ^DD(45.02,81.06,1,992,2)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X=$P($G(DIKZ(81)),U,7)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(81)),U,7)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" X ^DD(45.02,81.07,1,2,2.4)
  1. S X=$P($G(DIKZ(81)),U,7)
  1. I X'="" X ^DD(45.02,81.07,1,992,2)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X=$P($G(DIKZ(81)),U,8)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(81)),U,8)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X="" X ^DD(45.02,81.08,1,2,2.4)
  1. S X=$P($G(DIKZ(81)),U,8)
  1. I X'="" X ^DD(45.02,81.08,1,992,2)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X=$P($G(DIKZ(81)),U,9)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(81)),U,9)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X="" X ^DD(45.02,81.09,1,2,2.4)
  1. S X=$P($G(DIKZ(81)),U,9)
  1. I X'="" X ^DD(45.02,81.09,1,992,2)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X=$P($G(DIKZ(81)),U,10)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(81)),U,10)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(45.02,81.1,1,2,2.4)
  1. S X=$P($G(DIKZ(81)),U,10)
  1. I X'="" X ^DD(45.02,81.1,1,992,2)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X=$P($G(DIKZ(81)),U,11)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(81)),U,11)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X="" X ^DD(45.02,81.11,1,2,2.4)
  1. S X=$P($G(DIKZ(81)),U,11)
  1. I X'="" X ^DD(45.02,81.11,1,992,2)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X=$P($G(DIKZ(81)),U,12)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(81)),U,12)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y S X="" X ^DD(45.02,81.12,1,2,2.4)
  1. S X=$P($G(DIKZ(81)),U,12)
  1. I X'="" X ^DD(45.02,81.12,1,992,2)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X=$P($G(DIKZ(81)),U,13)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(81)),U,13)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,23),X=X S DIU=X K Y S X="" X ^DD(45.02,81.13,1,2,2.4)
  1. S X=$P($G(DIKZ(81)),U,13)
  1. I X'="" X ^DD(45.02,81.13,1,992,2)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X=$P($G(DIKZ(81)),U,14)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(81)),U,14)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X="" X ^DD(45.02,81.14,1,2,2.4)
  1. S X=$P($G(DIKZ(81)),U,14)
  1. I X'="" X ^DD(45.02,81.14,1,992,2)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X=$P($G(DIKZ(81)),U,15)
  1. I X'="" K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  1. S X=$P($G(DIKZ(81)),U,15)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"M",D1,82)):^(82),1:"") S X=$P(Y(1),U,25),X=X S DIU=X K Y S X="" X ^DD(45.02,81.15,1,2,2.4)
  1. S X=$P($G(DIKZ(81)),U,15)
  1. I X'="" X ^DD(45.02,81.15,1,992,2)
  1. CR1 S DIXR=835
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,5)
  1. S X(3)=$P(DIKZ(0),U,6)
  1. S X(4)=$P(DIKZ(0),U,7)
  1. S X(5)=$P(DIKZ(0),U,8)
  1. S X(6)=$P(DIKZ(0),U,9)
  1. S X(7)=$P(DIKZ(0),U,11)
  1. S X(8)=$P(DIKZ(0),U,12)
  1. S X(9)=$P(DIKZ(0),U,13)
  1. S X(10)=$P(DIKZ(0),U,14)
  1. S X(11)=$P(DIKZ(0),U,15)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X(12)=$P(DIKZ(81),U,1)
  1. S X(13)=$P(DIKZ(81),U,2)
  1. S X(14)=$P(DIKZ(81),U,3)
  1. S X(15)=$P(DIKZ(81),U,4)
  1. S X(16)=$P(DIKZ(81),U,5)
  1. S X(17)=$P(DIKZ(81),U,6)
  1. S X(18)=$P(DIKZ(81),U,7)
  1. S X(19)=$P(DIKZ(81),U,8)
  1. S X(20)=$P(DIKZ(81),U,9)
  1. S X(21)=$P(DIKZ(81),U,10)
  1. S X(22)=$P(DIKZ(81),U,11)
  1. S X(23)=$P(DIKZ(81),U,12)
  1. S X(24)=$P(DIKZ(81),U,13)
  1. S X(25)=$P(DIKZ(81),U,14)
  1. S X(26)=$P(DIKZ(81),U,15)
  1. S X=$G(X(1))
  1. D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5),X2(6),X2(7),X2(8),X2(9),X2(10),X2(11),X2(12),X2(13),X2(14),X2(15),X2(16),X2(17),X2(18),X2(19),X2(20),X2(21),X2(22),X2(23),X2(24),X2(25),X2(26))=""
  1. . D NOTIFY^DGPTDD(.X1,.X2,.DA,45,"MOVEMENT","KILL")
  1. CR2 S DIXR=1177
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S X(2)=$P(DIKZ(0),U,5)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD1")
  1. CR3 S DIXR=1178
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S X(2)=$P(DIKZ(0),U,15)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD10")
  1. CR4 S DIXR=1179
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S X(2)=$P(DIKZ(0),U,6)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD2")
  1. CR5 S DIXR=1180
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S X(2)=$P(DIKZ(0),U,7)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD3")
  1. CR6 S DIXR=1181
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S X(2)=$P(DIKZ(0),U,8)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD4")
  1. CR7 S DIXR=1182
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S X(2)=$P(DIKZ(0),U,9)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD5")
  1. CR8 S DIXR=1183
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S X(2)=$P(DIKZ(0),U,11)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD6")
  1. CR9 S DIXR=1184
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S X(2)=$P(DIKZ(0),U,12)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD7")
  1. CR10 S DIXR=1185
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S X(2)=$P(DIKZ(0),U,13)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD8")
  1. CR11 S DIXR=1186
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S X(2)=$P(DIKZ(0),U,14)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD9")
  1. CR12 S DIXR=1224
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X(2)=$P(DIKZ(81),U,1)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD11")
  1. CR13 S DIXR=1225
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X(2)=$P(DIKZ(81),U,2)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD12")
  1. CR14 S DIXR=1226
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X(2)=$P(DIKZ(81),U,3)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD13")
  1. CR15 S DIXR=1227
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X(2)=$P(DIKZ(81),U,4)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD14")
  1. CR16 S DIXR=1228
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X(2)=$P(DIKZ(81),U,5)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD15")
  1. CR17 S DIXR=1229
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X(2)=$P(DIKZ(81),U,6)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD16")
  1. CR18 S DIXR=1230
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X(2)=$P(DIKZ(81),U,7)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD17")
  1. CR19 S DIXR=1231
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X(2)=$P(DIKZ(81),U,8)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD18")
  1. CR20 S DIXR=1232
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X(2)=$P(DIKZ(81),U,9)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD19")
  1. CR21 S DIXR=1233
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X(2)=$P(DIKZ(81),U,10)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD20")
  1. CR22 S DIXR=1234
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X(2)=$P(DIKZ(81),U,11)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD21")
  1. CR23 S DIXR=1235
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X(2)=$P(DIKZ(81),U,12)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD22")
  1. CR24 S DIXR=1236
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X(2)=$P(DIKZ(81),U,13)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD23")
  1. CR25 S DIXR=1237
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X(2)=$P(DIKZ(81),U,14)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD24")
  1. CR26 S DIXR=1238
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
  1. S X(1)=$P(DIKZ(0),U,10)
  1. S DIKZ(81)=$G(^DGPT(DA(1),"M",DA,81))
  1. S X(2)=$P(DIKZ(81),U,15)
  1. S X=$G(X(1))
  1. I $G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  1. . D KPTFMD^DGPTDDCR(.X,.DA,"M ICD25")
  1. CR27 K X
  1. G:'$D(DIKLM) A Q:$D(DIKILL)
  1. END G ^DGPTXX5