- DGPTXX2 ; COMPILED XREF FOR FILE #45 ; 10/15/12
- ;
- 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,22)
- 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
- . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
- . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD7")
- CR12 S DIXR=377
- 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,23)
- 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
- . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
- . D KDGPT9D^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
- . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
- . D KDGPT9D^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
- . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
- . D KDGPT9D^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
- . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
- . D KDGPT9D^DGPTDDCR(.X,.DA,"PDX")
- CR16 K X
- END G ^DGPTXX3
- DGPTXX2 ; COMPILED XREF FOR FILE #45 ; 10/15/12
- +1 ;
- +2 SET X(1)=$PIECE(DIKZ(0),U,1)
- +3 SET X(2)=$PIECE(DIKZ(0),U,2)
- +4 SET X(3)=$PIECE(DIKZ(0),U,11)
- +5 SET DIKZ(70)=$GET(^DGPT(DA,70))
- +6 SET X(4)=$PIECE(DIKZ(70),U,22)
- +7 SET X(5)=$PIECE(DIKZ(70),U,1)
- +8 SET X=$GET(X(1))
- +9 IF $GET(X(1))]""
- IF $GET(X(2))]""
- IF $GET(X(3))]""
- IF $GET(X(4))]""
- Begin DoDot:1
- +10 KILL X1,X2
- MERGE X1=X,X2=X
- +11 IF $DATA(DIKIL)
- SET (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
- +12 DO KDGPT9D^DGPTDDCR(.X,.DA,"D SD7")
- End DoDot:1
- CR12 SET DIXR=377
- +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,23)
- +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 IF $DATA(DIKIL)
- SET (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
- +13 DO KDGPT9D^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 IF $DATA(DIKIL)
- SET (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
- +13 DO KDGPT9D^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 IF $DATA(DIKIL)
- SET (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
- +13 DO KDGPT9D^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 IF $DATA(DIKIL)
- SET (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
- +13 DO KDGPT9D^DGPTDDCR(.X,.DA,"PDX")
- End DoDot:1
- CR16 KILL X
- END GOTO ^DGPTXX3
