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

DGPTXX12.m

Go to the documentation of this file.
  1. DGPTXX12 ; COMPILED XREF FOR FILE #45.05 ; 10/30/24
  1. ;
  1. S DA=0
  1. A1 ;
  1. I $D(DISET) K DIKLM S:DIKM1=1 DIKLM=1 G @DIKM1
  1. 0 ;
  1. A S DA=$O(^DGPT(DA(1),"P",DA)) I DA'>0 S DA=0 G END
  1. 1 ;
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X=$P($G(DIKZ(0)),U,5)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,6)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,7)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,8)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,9)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,10)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,11)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,12)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,13)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,14)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,15)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,16)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,17)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,18)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,19)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,20)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,21)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,22)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,23)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(0)),U,24)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S DIKZ(1)=$G(^DGPT(DA(1),"P",DA,1))
  1. S X=$P($G(DIKZ(1)),U,1)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(1)),U,2)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(1)),U,3)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(1)),U,4)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. S X=$P($G(DIKZ(1)),U,5)
  1. I X'="" S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
  1. CR1 S DIXR=1200
  1. K X
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,5)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",1)
  1. CR2 S DIXR=1201
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,6)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",2)
  1. CR3 S DIXR=1202
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,7)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",3)
  1. CR4 S DIXR=1203
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,8)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",4)
  1. CR5 S DIXR=1204
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,9)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",5)
  1. CR6 S DIXR=1250
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,14)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",10)
  1. CR7 S DIXR=1251
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,15)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",11)
  1. CR8 S DIXR=1252
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,16)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",12)
  1. CR9 S DIXR=1253
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,17)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",13)
  1. CR10 S DIXR=1254
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,18)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",14)
  1. CR11 S DIXR=1255
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,19)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",15)
  1. CR12 S DIXR=1256
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,20)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",16)
  1. CR13 S DIXR=1257
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,21)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",17)
  1. CR14 S DIXR=1258
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,22)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",18)
  1. CR15 S DIXR=1259
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,23)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",19)
  1. CR16 S DIXR=1260
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,24)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",20)
  1. CR17 S DIXR=1261
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S DIKZ(1)=$G(^DGPT(DA(1),"P",DA,1))
  1. S X(2)=$P(DIKZ(1),U,1)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",21)
  1. CR18 S DIXR=1262
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S DIKZ(1)=$G(^DGPT(DA(1),"P",DA,1))
  1. S X(2)=$P(DIKZ(1),U,2)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",22)
  1. CR19 S DIXR=1263
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S DIKZ(1)=$G(^DGPT(DA(1),"P",DA,1))
  1. S X(2)=$P(DIKZ(1),U,3)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",23)
  1. CR20 S DIXR=1264
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S DIKZ(1)=$G(^DGPT(DA(1),"P",DA,1))
  1. S X(2)=$P(DIKZ(1),U,4)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",24)
  1. CR21 S DIXR=1265
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S DIKZ(1)=$G(^DGPT(DA(1),"P",DA,1))
  1. S X(2)=$P(DIKZ(1),U,5)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",25)
  1. CR22 S DIXR=1266
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,10)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",6)
  1. CR23 S DIXR=1267
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,11)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",7)
  1. CR24 S DIXR=1268
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,12)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",8)
  1. CR25 S DIXR=1269
  1. K X
  1. S DIKZ(0)=$G(^DGPT(DA(1),"P",DA,0))
  1. S X(1)=$P(DIKZ(0),U,1)
  1. S X(2)=$P(DIKZ(0),U,13)
  1. S X=$G(X(1))
  1. I $G(X(1))]"",$G(X(2))]"" D
  1. . K X1,X2 M X1=X,X2=X
  1. . D SPTFP^DGPTDDCR(.X,.DA,"P",9)
  1. CR26 K X
  1. G:'$D(DIKLM) A Q:$D(DISET)
  1. END G ^DGPTXX13