YSXRAW1.m

YSXRAW1 ; COMPILED XREF FOR FILE #627 ; 10/15/04

 ; 

 S DIKZK=2

 S DIKZ(0)=$G(^DIC(627,DA,0))

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

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

 S DIKZ(2)=$G(^DIC(627,DA,2))

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

 I X'="" X ^DD(627,3,1,1,2)

 S DIKZ(0)=$G(^DIC(627,DA,0))

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

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

END Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---YSXRAW1   342     printed  Oct 16, 2024@18:17:03                                                                                                                                                                                                      Page 2

YSXRAW1   ; COMPILED XREF FOR FILE #627 ; 10/15/04

 +1       ; 

 +2        SET DIKZK=2

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

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

 +5        IF X'=""

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

 +6        SET DIKZ(2)=$GET(^DIC(627,DA,2))

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

 +8        IF X'=""

               XECUTE ^DD(627,3,1,1,2)

 +9        SET DIKZ(0)=$GET(^DIC(627,DA,0))

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

 +11       IF X'=""

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

END        QUIT