PSSJXR4 ; COMPILED XREF FOR FILE #55.0108 ; 10/05/22
;
S DA=0
A1 ;
I $D(DIKILL) K DIKLM S:DIKM1=1 DIKLM=1 G @DIKM1
0 ;
A S DA=$O(^PS(55,DA(1),"SCTALK",DA)) I DA'>0 S DA=0 G END
1 ;
G:'$D(DIKLM) A Q:$D(DIKILL)
END G ^PSSJXR5
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSJXR4 239 printed Oct 16, 2024@18:33:28 Page 2
PSSJXR4 ; COMPILED XREF FOR FILE #55.0108 ; 10/05/22
+1 ;
+2 SET DA=0
A1 ;
+1 IF $DATA(DIKILL)
KILL DIKLM
if DIKM1=1
SET DIKLM=1
GOTO @DIKM1
0 ;
A SET DA=$ORDER(^PS(55,DA(1),"SCTALK",DA))
IF DA'>0
SET DA=0
GOTO END
1 ;
+1 if '$DATA(DIKLM)
GOTO A
if $DATA(DIKILL)
QUIT
END GOTO ^PSSJXR5
