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

DGPTXX8.m

Go to the documentation of this file.
  1. DGPTXX8 ; COMPILED XREF FOR FILE #45 ; 10/30/24
  1. ;
  1. S DIKZK=1
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X=$P($G(DIKZ(0)),U,1)
  1. I X'="" S ^DGPT("B",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,2)
  1. I X'="" S L=+^DGPT(DA,0) I L>0 S ^DGPT("AAD",L,X,DA)=""
  1. S X=$P($G(DIKZ(0)),U,2)
  1. I X'="" S ^DGPT("AF",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,2)
  1. I X'="" S L=$S($D(^DGPT(DA,70)):+^(70),1:0) I L'?7N.E S ^DGPT("AADA",X,DA)=""
  1. S X=$P($G(DIKZ(0)),U,2)
  1. I X'="" I $P(^DGPT(DA,0),U,4),$P(^(0),U) S ^DGPT("AFEE",$P(^DGPT(DA,0),U),$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,4)
  1. I X'="" I $P(^DGPT(DA,0),U),$P(^(0),U,2) S ^DGPT("AFEE",$P(^DGPT(DA,0),U),$P(^DGPT(DA,0),U,2),DA)=""
  1. S X=$P($G(DIKZ(0)),U,6)
  1. I X'="" S ^DGPT("AS",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,10)
  1. I X'="" S ^DGPT("AMT",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,12)
  1. I X'="" S ^DGPT("ACENSUS",$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,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=2 S DIH=$S($D(^DGPT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=45,DIG=11 D ^DICR
  1. S DIKZ(101)=$G(^DGPT(DA,101))
  1. S X=$P($G(DIKZ(101)),U,4)
  1. I X'="" S %=+^DGPT(DA,0) I %>0 S %C=$S($D(^DPT(%,.3)):^(.3),1:"")_"^^^^^^^^^^",^(.3)=$P(%C,U,1,9)_U_X_U_$P(%C,U,11,99),^DPT("ACB",X,%)="" K ^DPT("ACB",+$P(%C,U,10),%),%,%C
  1. S DIKZ("401P")=$G(^DGPT(DA,"401P"))
  1. S X=$P($G(DIKZ("401P")),U,1)
  1. I X'="" S ^DGPT(DA,"AP",X)=""
  1. S X=$P($G(DIKZ("401P")),U,2)
  1. I X'="" S ^DGPT(DA,"AP",X)=""
  1. S X=$P($G(DIKZ("401P")),U,3)
  1. I X'="" S ^DGPT(DA,"AP",X)=""
  1. S X=$P($G(DIKZ("401P")),U,4)
  1. I X'="" S ^DGPT(DA,"AP",X)=""
  1. S X=$P($G(DIKZ("401P")),U,5)
  1. I X'="" S ^DGPT(DA,"AP",X)=""
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X=$P($G(DIKZ(70)),U,1)
  1. I X'="" S ^DGPT("ADS",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(70)),U,1)
  1. I X'="" N DGFDA,DGMSG S DGFDA(45.02,"1,"_$$IENS^DILF(DA),10)=X D FILE^DIE("","DGFDA","DGMSG") K DGFDA,DGMSG
  1. S X=$P($G(DIKZ(70)),U,1)
  1. I X'="" S L=$P(^DGPT(DA,0),"^",2) I L?7N.E K ^DGPT("AADA",L,DA)
  1. S X=$P($G(DIKZ(70)),U,2)
  1. I X'="" I $D(^DGPT(DA,"M",1,0)) N DGFDA,DGMSG S DGFDA(45.02,"1,"_$$IENS^DILF(DA),2)=X D FILE^DIE("","DGFDA","DGMSG") K DGFDA,DGMSG
  1. S X=$P($G(DIKZ(70)),U,10)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,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),82)),DIV=X S $P(^(82),U,1)=DIV,DIH=45,DIG=82.01 D ^DICR
  1. S X=$P($G(DIKZ(70)),U,10)
  1. I X'="" X ^DD(45,79,1,992,1)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X=$P($G(DIKZ(70)),U,16)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,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),82)),DIV=X S $P(^(82),U,2)=DIV,DIH=45,DIG=82.02 D ^DICR
  1. S X=$P($G(DIKZ(70)),U,16)
  1. I X'="" X ^DD(45,79.16,1,992,1)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X=$P($G(DIKZ(70)),U,17)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,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),82)),DIV=X S $P(^(82),U,3)=DIV,DIH=45,DIG=82.03 D ^DICR
  1. S X=$P($G(DIKZ(70)),U,17)
  1. I X'="" X ^DD(45,79.17,1,992,1)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X=$P($G(DIKZ(70)),U,18)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,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),82)),DIV=X S $P(^(82),U,4)=DIV,DIH=45,DIG=82.04 D ^DICR
  1. S X=$P($G(DIKZ(70)),U,18)
  1. I X'="" X ^DD(45,79.18,1,992,1)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X=$P($G(DIKZ(70)),U,19)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,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),82)),DIV=X S $P(^(82),U,5)=DIV,DIH=45,DIG=82.05 D ^DICR
  1. S X=$P($G(DIKZ(70)),U,19)
  1. I X'="" X ^DD(45,79.19,1,992,1)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X=$P($G(DIKZ(70)),U,20)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,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),82)),DIV=X S $P(^(82),U,6)=DIV,DIH=45,DIG=82.06 D ^DICR
  1. S X=$P($G(DIKZ(70)),U,20)
  1. I X'="" X ^DD(45,79.201,1,992,1)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X=$P($G(DIKZ(70)),U,21)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,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),82)),DIV=X S $P(^(82),U,7)=DIV,DIH=45,DIG=82.07 D ^DICR
  1. S X=$P($G(DIKZ(70)),U,21)
  1. I X'="" X ^DD(45,79.21,1,992,1)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X=$P($G(DIKZ(70)),U,22)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,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),82)),DIV=X S $P(^(82),U,8)=DIV,DIH=45,DIG=82.08 D ^DICR
  1. S X=$P($G(DIKZ(70)),U,22)
  1. I X'="" X ^DD(45,79.22,1,992,1)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X=$P($G(DIKZ(70)),U,23)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,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),82)),DIV=X S $P(^(82),U,9)=DIV,DIH=45,DIG=82.09 D ^DICR
  1. S X=$P($G(DIKZ(70)),U,23)
  1. I X'="" X ^DD(45,79.23,1,992,1)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X=$P($G(DIKZ(70)),U,24)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,10)=DIV,DIH=45,DIG=82.1 D ^DICR
  1. S X=$P($G(DIKZ(70)),U,24)
  1. I X'="" X ^DD(45,79.24,1,992,1)
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X=$P($G(DIKZ(71)),U,1)
  1. I X'="" X ^DD(45,79.241,1,1,1)
  1. S X=$P($G(DIKZ(71)),U,1)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,11)=DIV,DIH=45,DIG=82.11 D ^DICR
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X=$P($G(DIKZ(71)),U,2)
  1. I X'="" X ^DD(45,79.242,1,1,1)
  1. S X=$P($G(DIKZ(71)),U,2)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,12)=DIV,DIH=45,DIG=82.12 D ^DICR
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X=$P($G(DIKZ(71)),U,3)
  1. I X'="" X ^DD(45,79.243,1,1,1)
  1. S X=$P($G(DIKZ(71)),U,3)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,13)=DIV,DIH=45,DIG=82.13 D ^DICR
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X=$P($G(DIKZ(71)),U,4)
  1. I X'="" X ^DD(45,79.244,1,1,1)
  1. S X=$P($G(DIKZ(71)),U,4)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,14)=DIV,DIH=45,DIG=82.14 D ^DICR
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X=$P($G(DIKZ(71)),U,5)
  1. I X'="" X ^DD(45,79.245,1,1,1)
  1. S X=$P($G(DIKZ(71)),U,5)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,15)=DIV,DIH=45,DIG=82.15 D ^DICR
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X=$P($G(DIKZ(71)),U,6)
  1. I X'="" X ^DD(45,79.246,1,1,1)
  1. S X=$P($G(DIKZ(71)),U,6)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,16)=DIV,DIH=45,DIG=82.16 D ^DICR
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X=$P($G(DIKZ(71)),U,7)
  1. I X'="" X ^DD(45,79.247,1,1,1)
  1. S X=$P($G(DIKZ(71)),U,7)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,17)=DIV,DIH=45,DIG=82.17 D ^DICR
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X=$P($G(DIKZ(71)),U,8)
  1. I X'="" X ^DD(45,79.248,1,1,1)
  1. S X=$P($G(DIKZ(71)),U,8)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,18)=DIV,DIH=45,DIG=82.18 D ^DICR
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X=$P($G(DIKZ(71)),U,9)
  1. I X'="" X ^DD(45,79.249,1,1,1)
  1. S X=$P($G(DIKZ(71)),U,9)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,19)=DIV,DIH=45,DIG=82.19 D ^DICR
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X=$P($G(DIKZ(71)),U,10)
  1. I X'="" X ^DD(45,79.2491,1,1,1)
  1. S X=$P($G(DIKZ(71)),U,10)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,20)=DIV,DIH=45,DIG=82.2 D ^DICR
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X=$P($G(DIKZ(71)),U,11)
  1. I X'="" X ^DD(45,79.24911,1,1,1)
  1. S X=$P($G(DIKZ(71)),U,11)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,21)=DIV,DIH=45,DIG=82.21 D ^DICR
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X=$P($G(DIKZ(71)),U,12)
  1. I X'="" X ^DD(45,79.24912,1,1,1)
  1. S X=$P($G(DIKZ(71)),U,12)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,22)=DIV,DIH=45,DIG=82.22 D ^DICR
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X=$P($G(DIKZ(71)),U,13)
  1. I X'="" X ^DD(45,79.24913,1,1,1)
  1. S X=$P($G(DIKZ(71)),U,13)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,23),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,23)=DIV,DIH=45,DIG=82.23 D ^DICR
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X=$P($G(DIKZ(71)),U,14)
  1. I X'="" X ^DD(45,79.24914,1,1,1)
  1. S X=$P($G(DIKZ(71)),U,14)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,24)=DIV,DIH=45,DIG=82.24 D ^DICR
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X=$P($G(DIKZ(71)),U,15)
  1. I X'="" X ^DD(45,79.24915,1,1,1)
  1. S X=$P($G(DIKZ(71)),U,15)
  1. I X'="" D
  1. .N DIK,DIV,DIU,DIN
  1. .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,25),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,25)=DIV,DIH=45,DIG=82.25 D ^DICR
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X=$P($G(DIKZ(70)),U,11)
  1. I X'="" X ^DD(45,80,1,992,1)
  1. CR1 S DIXR=401
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(4)=$P(DIKZ(70),U,11)
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"PDX")
  1. CR2 S DIXR=833
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,11)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(3)=$P(DIKZ(70),U,10)
  1. S X(4)=$P(DIKZ(70),U,16)
  1. S X(5)=$P(DIKZ(70),U,17)
  1. S X(6)=$P(DIKZ(70),U,18)
  1. S X(7)=$P(DIKZ(70),U,19)
  1. S X(8)=$P(DIKZ(70),U,20)
  1. S X(9)=$P(DIKZ(70),U,21)
  1. S X(10)=$P(DIKZ(70),U,22)
  1. S X(11)=$P(DIKZ(70),U,23)
  1. S X(12)=$P(DIKZ(70),U,24)
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X(13)=$P(DIKZ(71),U,1)
  1. S X(14)=$P(DIKZ(71),U,2)
  1. S X(15)=$P(DIKZ(71),U,3)
  1. S X(16)=$P(DIKZ(71),U,4)
  1. S X(17)=$P(DIKZ(71),U,5)
  1. S X(18)=$P(DIKZ(71),U,6)
  1. S X(19)=$P(DIKZ(71),U,7)
  1. S X(20)=$P(DIKZ(71),U,8)
  1. S X(21)=$P(DIKZ(71),U,9)
  1. S X(22)=$P(DIKZ(71),U,10)
  1. S X(23)=$P(DIKZ(71),U,11)
  1. S X(24)=$P(DIKZ(71),U,12)
  1. S X(25)=$P(DIKZ(71),U,13)
  1. S X(26)=$P(DIKZ(71),U,14)
  1. S X(27)=$P(DIKZ(71),U,15)
  1. S X(28)=$P(DIKZ(70),U,11)
  1. S X=$G(X(1))
  1. D
  1. . K X1,X2 M X1=X,X2=X
  1. . D NOTIFY^DGPTDD(.X1,.X2,.DA,45,"DISCHARGE","SET")
  1. CR3 S DIXR=1176
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(4)=$P(DIKZ(70),U,10)
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"DXLS")
  1. CR4 S DIXR=1187
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(4)=$P(DIKZ(70),U,16)
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD1")
  1. CR5 S DIXR=1188
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X(4)=$P(DIKZ(71),U,1)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD10")
  1. CR6 S DIXR=1189
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X(4)=$P(DIKZ(71),U,2)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD11")
  1. CR7 S DIXR=1190
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X(4)=$P(DIKZ(71),U,3)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD12")
  1. CR8 S DIXR=1191
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X(4)=$P(DIKZ(71),U,4)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD13")
  1. CR9 S DIXR=1192
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(4)=$P(DIKZ(70),U,17)
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD2")
  1. CR10 S DIXR=1193
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(4)=$P(DIKZ(70),U,18)
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD3")
  1. CR11 S DIXR=1194
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(4)=$P(DIKZ(70),U,19)
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD4")
  1. CR12 S DIXR=1195
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(4)=$P(DIKZ(70),U,20)
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD5")
  1. CR13 S DIXR=1196
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(4)=$P(DIKZ(70),U,21)
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD6")
  1. CR14 S DIXR=1197
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(4)=$P(DIKZ(70),U,22)
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD7")
  1. CR15 S DIXR=1198
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(4)=$P(DIKZ(70),U,23)
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD8")
  1. CR16 S DIXR=1199
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(4)=$P(DIKZ(70),U,24)
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD9")
  1. CR17 S DIXR=1239
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X(4)=$P(DIKZ(71),U,5)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD14")
  1. CR18 S DIXR=1240
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X(4)=$P(DIKZ(71),U,6)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD15")
  1. CR19 S DIXR=1241
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X(4)=$P(DIKZ(71),U,7)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD16")
  1. CR20 S DIXR=1242
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X(4)=$P(DIKZ(71),U,8)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD17")
  1. CR21 S DIXR=1243
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X(4)=$P(DIKZ(71),U,9)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD18")
  1. CR22 S DIXR=1244
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X(4)=$P(DIKZ(71),U,10)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD19")
  1. CR23 S DIXR=1245
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X(4)=$P(DIKZ(71),U,11)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFDD^DGPTDDCR(.X,.DA,"D SD20")
  1. CR24 S DIXR=1246
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,2)
  1. S X(3)=$P(DIKZ(0),U,11)
  1. S DIKZ(71)=$G(^DGPT(DA,71))
  1. S X(4)=$P(DIKZ(71),U,12)
  1. S DIKZ(70)=$G(^DGPT(DA,70))
  1. S X(5)=$P(DIKZ(70),U,1)
  1. S X=$G(X(1))
  1. END G ^DGPTXX9