AQAOX71.m

AQAOX71 ; COMPILED XREF FOR FILE #9002167 ; 02/13/06

 ; 

 S DIKZK=2

 S DIKZ(0)=$G(^AQAOC(DA,0))

 S X=$P(DIKZ(0),U,12)

 I X'="" K ^AQAOC("AF",$E(X,1,30),DA) S ^AQAOC("AFF",$P(^AQAOC(DA,0),U),DA)=""

 S X=$P(DIKZ(0),U,2)

 I X'="" S AQAO=$S($D(^AQAOC(DA,0)):^(0),1:""),AQAO("IND")=$P(AQAO,U,8),AQAO("DT")=$P(AQAO,U,4) K:(AQAO("IND")]"")&(AQAO("DT")]"") ^AQAOC("AA",AQAO("IND"),AQAO("DT"),X,DA) K AQAO

 S X=$P(DIKZ(0),U,2)

 I X'="" K ^AQAOC("C",$E(X,1,30),DA)

 S X=$P(DIKZ(0),U,2)

 I X'="" S AQAO("VST")=$P($G(^AQAOC(DA,0)),U,3) K:AQAO("VST")]"" ^AQAOC("AE",X,AQAO("VST"),DA) K AQAO

 S X=$P(DIKZ(0),U,3)

 I X'="" S AQAO("PAT")=$P($G(^AQAOC(DA,0)),U,2) K:AQAO("PAT")]"" ^AQAOC("AE",AQAO("PAT"),X,DA) K AQAO

 S X=$P(DIKZ(0),U,3)

 I X'="" S AQAO("IND")=$P($G(^AQAOC(DA,0)),U,8) K:AQAO("IND")]"" ^AQAOC("AV",AQAO("IND"),X,DA) K AQAO

 S X=$P(DIKZ(0),U,4)

 I X'="" S AQAO=$S($D(^AQAOC(DA,0)):^(0),1:""),AQAO("IND")=$P(AQAO,U,8),AQAO("PT")=$P(AQAO,U,2) K:(AQAO("IND")]"")&(AQAO("PT")]"") ^AQAOC("AA",AQAO("IND"),X,AQAO("PT"),DA) K AQAO

 S X=$P(DIKZ(0),U,4)

 I X'="" K ^AQAOC("ACL",X,DA)

 S X=$P(DIKZ(0),U,8)

 I X'="" S AQAO=$S($D(^AQAOC(DA,0)):^(0),1:""),AQAO("PT")=$P(AQAO,U,2),AQAO("DT")=$P(AQAO,U,4) K:(AQAO("PT")]"")&(AQAO("DT")]"") ^AQAOC("AA",X,AQAO("DT"),AQAO("PT"),DA) K AQAO

 S X=$P(DIKZ(0),U,8)

 I X'="" K ^AQAOC("D",$E(X,1,30),DA)

 S X=$P(DIKZ(0),U,8)

 I X'="" S AQAO("VST")=$P($G(^AQAOC(DA,0)),U,3) K:AQAO("VST")]"" ^AQAOC("AV",X,AQAO("VST"),DA) K AQAO

 S DIKZ(1)=$G(^AQAOC(DA,1))

 S X=$P(DIKZ(1),U,1)

 I X'="" K ^AQAOC("AD",$E(X,1,30),DA) S:X=2 ^AQAOC("AFF",$P(^AQAOC(DA,0),U),DA)=""

 S X=$P(DIKZ(1),U,1)

 I X'="" S AQAO=$G(^AQAOC(DA,0)),AQAO("DT")=$P(AQAO,U,4) K:AQAO("DT")]"" ^AQAOC("ACL",AQAO("DT"),DA) K AQAO

 S X=$P(DIKZ(0),U,1)

 I X'="" K ^AQAOC("B",$E(X,1,30),DA)

END G ^AQAOX72

AQAOX71   ; COMPILED XREF FOR FILE #9002167 ; 02/13/06

 +1       ; 

 +2        SET DIKZK=2

 +3        SET DIKZ(0)=$GET(^AQAOC(DA,0))

 +4        SET X=$PIECE(DIKZ(0),U,12)

 +5        IF X'=""

               KILL ^AQAOC("AF",$EXTRACT(X,1,30),DA)

               SET ^AQAOC("AFF",$PIECE(^AQAOC(DA,0),U),DA)=""

 +6        SET X=$PIECE(DIKZ(0),U,2)

 +7        IF X'=""

               SET AQAO=$SELECT($DATA(^AQAOC(DA,0)):^(0),1:"")

               SET AQAO("IND")=$PIECE(AQAO,U,8)

               SET AQAO("DT")=$PIECE(AQAO,U,4)

               IF (AQAO("IND")]"")&(AQAO("DT")]"")

                   KILL ^AQAOC("AA",AQAO("IND"),AQAO("DT"),X,DA)

               KILL AQAO

 +8        SET X=$PIECE(DIKZ(0),U,2)

 +9        IF X'=""

               KILL ^AQAOC("C",$EXTRACT(X,1,30),DA)

 +10       SET X=$PIECE(DIKZ(0),U,2)

 +11       IF X'=""

               SET AQAO("VST")=$PIECE($GET(^AQAOC(DA,0)),U,3)

               IF AQAO("VST")]""

                   KILL ^AQAOC("AE",X,AQAO("VST"),DA)

               KILL AQAO

 +12       SET X=$PIECE(DIKZ(0),U,3)

 +13       IF X'=""

               SET AQAO("PAT")=$PIECE($GET(^AQAOC(DA,0)),U,2)

               IF AQAO("PAT")]""

                   KILL ^AQAOC("AE",AQAO("PAT"),X,DA)

               KILL AQAO

 +14       SET X=$PIECE(DIKZ(0),U,3)

 +15       IF X'=""

               SET AQAO("IND")=$PIECE($GET(^AQAOC(DA,0)),U,8)

               IF AQAO("IND")]""

                   KILL ^AQAOC("AV",AQAO("IND"),X,DA)

               KILL AQAO

 +16       SET X=$PIECE(DIKZ(0),U,4)

 +17       IF X'=""

               SET AQAO=$SELECT($DATA(^AQAOC(DA,0)):^(0),1:"")

               SET AQAO("IND")=$PIECE(AQAO,U,8)

               SET AQAO("PT")=$PIECE(AQAO,U,2)

               IF (AQAO("IND")]"")&(AQAO("PT")]"")

                   KILL ^AQAOC("AA",AQAO("IND"),X,AQAO("PT"),DA)

               KILL AQAO

 +18       SET X=$PIECE(DIKZ(0),U,4)

 +19       IF X'=""

               KILL ^AQAOC("ACL",X,DA)

 +20       SET X=$PIECE(DIKZ(0),U,8)

 +21       IF X'=""

               SET AQAO=$SELECT($DATA(^AQAOC(DA,0)):^(0),1:"")

               SET AQAO("PT")=$PIECE(AQAO,U,2)

               SET AQAO("DT")=$PIECE(AQAO,U,4)

               IF (AQAO("PT")]"")&(AQAO("DT")]"")

                   KILL ^AQAOC("AA",X,AQAO("DT"),AQAO("PT"),DA)

               KILL AQAO

 +22       SET X=$PIECE(DIKZ(0),U,8)

 +23       IF X'=""

               KILL ^AQAOC("D",$EXTRACT(X,1,30),DA)

 +24       SET X=$PIECE(DIKZ(0),U,8)

 +25       IF X'=""

               SET AQAO("VST")=$PIECE($GET(^AQAOC(DA,0)),U,3)

               IF AQAO("VST")]""

                   KILL ^AQAOC("AV",X,AQAO("VST"),DA)

               KILL AQAO

 +26       SET DIKZ(1)=$GET(^AQAOC(DA,1))

 +27       SET X=$PIECE(DIKZ(1),U,1)

 +28       IF X'=""

               KILL ^AQAOC("AD",$EXTRACT(X,1,30),DA)

               IF X=2

                   SET ^AQAOC("AFF",$PIECE(^AQAOC(DA,0),U),DA)=""

 +29       SET X=$PIECE(DIKZ(1),U,1)

 +30       IF X'=""

               SET AQAO=$GET(^AQAOC(DA,0))

               SET AQAO("DT")=$PIECE(AQAO,U,4)

               IF AQAO("DT")]""

                   KILL ^AQAOC("ACL",AQAO("DT"),DA)

               KILL AQAO

 +31       SET X=$PIECE(DIKZ(0),U,1)

 +32       IF X'=""

               KILL ^AQAOC("B",$EXTRACT(X,1,30),DA)

END        GOTO ^AQAOX72