- AZZLOGST ; DISPLAYS STATISTICS ON USER AND DEVICE LOGINS. [ 01/03/90 9:15 AM ]
- ; Mike Remillard, DDS, ISC/BAO
- ;
- D ^AUKVAR
- K AZZLO
- D ^AUCLS W ?22,"* * * LOGIN STATISTICS * * *"
- W !!,"This will take a minute, so enjoy the dots ..."
- DATES ;
- S X=$P($O(^XUSEC(0,0)),".")
- S AZZLO("DATE")=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)
- S N=0 F I=1:1 S N=$O(^XUSEC(0,N)) Q:'N W:'(I#100) "." S X=N
- S AZZLO("DATE1")=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)
- START ;
- S N=0 F I=1:1 S N=$O(^XUSEC(0,N)) Q:'N W:'(I#10) "." D
- .S AZZLO("DUZ")=$P(^XUSEC(0,N,0),U),AZZLO("DEV")=$P(^(0),U,2)
- .I '$D(AZZLO(AZZLO("DUZ"))) S AZZLO(AZZLO("DUZ"))=0
- .I '$D(AZZLO("DEV",AZZLO("DEV"))) S AZZLO("DEV",AZZLO("DEV"))=0
- .S $P(AZZLO(AZZLO("DUZ")),U)=$P(AZZLO(AZZLO("DUZ")),U)+1
- .S $P(AZZLO("DEV",AZZLO("DEV")),U)=$P(AZZLO("DEV",AZZLO("DEV")),U)+1
- .K X S D0=N D TIME
- .S:$D(X) $P(AZZLO(AZZLO("DUZ")),U,2)=$P(AZZLO(AZZLO("DUZ")),U,2)+X
- .S:$D(X) $P(AZZLO("DEV",AZZLO("DEV")),U,2)=$P(AZZLO("DEV",AZZLO("DEV")),U,2)+X
- NEXT ;
- ;-----> SET "B", "C", "E", AND "F" XREFS
- ;-----> "B" = NUMBER OF SIGNONS PER USER
- ;-----> "C" = TOTAL TIME PER USER
- ;-----> "E" = NUMBER OF SIGNONS PER DEVICE
- ;-----> "F" = TOTAL TIME PER DEVICE
- S N=0 F I=1:1 S N=$O(AZZLO(N)) Q:'N W:'(I#10) "." S AZZLO("B",-$P(AZZLO(N),U),N)=N
- S N=0 F I=1:1 S N=$O(AZZLO(N)) Q:'N W:'(I#10) "." S AZZLO("C",-$P(AZZLO(N),U,2),N)=N
- S N=0 F I=1:1 S N=$O(AZZLO("DEV",N)) Q:'N W:'(I#10) "." S AZZLO("E",-$P(AZZLO("DEV",N),U),N)=N
- S N=0 F I=1:1 S N=$O(AZZLO("DEV",N)) Q:'N W:'(I#10) "." S AZZLO("F",-$P(AZZLO("DEV",N),U,2),N)=N
- H 1
- ;
- D ^AZZLOGS1
- EXIT ;
- K AZZLO,I,N,X
- D ^%AUCLS
- Q
- TIME ;
- S X1=$P(^XUSEC(0,D0,0),U,4),X="" Q:X1<2000000 S X=D0,Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y
- Q
- AZZLOGST ; DISPLAYS STATISTICS ON USER AND DEVICE LOGINS. [ 01/03/90 9:15 AM ]
- +1 ; Mike Remillard, DDS, ISC/BAO
- +2 ;
- +3 DO ^AUKVAR
- +4 KILL AZZLO
- +5 DO ^AUCLS
- WRITE ?22,"* * * LOGIN STATISTICS * * *"
- +6 WRITE !!,"This will take a minute, so enjoy the dots ..."
- DATES ;
- +1 SET X=$PIECE($ORDER(^XUSEC(0,0)),".")
- +2 SET AZZLO("DATE")=$EXTRACT(X,4,5)_"/"_$EXTRACT(X,6,7)_"/"_$EXTRACT(X,2,3)
- +3 SET N=0
- FOR I=1:1
- SET N=$ORDER(^XUSEC(0,N))
- IF 'N
- QUIT
- IF '(I#100)
- WRITE "."
- SET X=N
- +4 SET AZZLO("DATE1")=$EXTRACT(X,4,5)_"/"_$EXTRACT(X,6,7)_"/"_$EXTRACT(X,2,3)
- START ;
- +1 SET N=0
- FOR I=1:1
- SET N=$ORDER(^XUSEC(0,N))
- IF 'N
- QUIT
- IF '(I#10)
- WRITE "."
- Begin DoDot:1
- +2 SET AZZLO("DUZ")=$PIECE(^XUSEC(0,N,0),U)
- SET AZZLO("DEV")=$PIECE(^(0),U,2)
- +3 IF '$DATA(AZZLO(AZZLO("DUZ")))
- SET AZZLO(AZZLO("DUZ"))=0
- +4 IF '$DATA(AZZLO("DEV",AZZLO("DEV")))
- SET AZZLO("DEV",AZZLO("DEV"))=0
- +5 SET $PIECE(AZZLO(AZZLO("DUZ")),U)=$PIECE(AZZLO(AZZLO("DUZ")),U)+1
- +6 SET $PIECE(AZZLO("DEV",AZZLO("DEV")),U)=$PIECE(AZZLO("DEV",AZZLO("DEV")),U)+1
- +7 KILL X
- SET D0=N
- DO TIME
- +8 IF $DATA(X)
- SET $PIECE(AZZLO(AZZLO("DUZ")),U,2)=$PIECE(AZZLO(AZZLO("DUZ")),U,2)+X
- +9 IF $DATA(X)
- SET $PIECE(AZZLO("DEV",AZZLO("DEV")),U,2)=$PIECE(AZZLO("DEV",AZZLO("DEV")),U,2)+X
- End DoDot:1
- NEXT ;
- +1 ;-----> SET "B", "C", "E", AND "F" XREFS
- +2 ;-----> "B" = NUMBER OF SIGNONS PER USER
- +3 ;-----> "C" = TOTAL TIME PER USER
- +4 ;-----> "E" = NUMBER OF SIGNONS PER DEVICE
- +5 ;-----> "F" = TOTAL TIME PER DEVICE
- +6 SET N=0
- FOR I=1:1
- SET N=$ORDER(AZZLO(N))
- IF 'N
- QUIT
- IF '(I#10)
- WRITE "."
- SET AZZLO("B",-$PIECE(AZZLO(N),U),N)=N
- +7 SET N=0
- FOR I=1:1
- SET N=$ORDER(AZZLO(N))
- IF 'N
- QUIT
- IF '(I#10)
- WRITE "."
- SET AZZLO("C",-$PIECE(AZZLO(N),U,2),N)=N
- +8 SET N=0
- FOR I=1:1
- SET N=$ORDER(AZZLO("DEV",N))
- IF 'N
- QUIT
- IF '(I#10)
- WRITE "."
- SET AZZLO("E",-$PIECE(AZZLO("DEV",N),U),N)=N
- +9 SET N=0
- FOR I=1:1
- SET N=$ORDER(AZZLO("DEV",N))
- IF 'N
- QUIT
- IF '(I#10)
- WRITE "."
- SET AZZLO("F",-$PIECE(AZZLO("DEV",N),U,2),N)=N
- +10 HANG 1
- +11 ;
- +12 DO ^AZZLOGS1
- EXIT ;
- +1 KILL AZZLO,I,N,X
- +2 DO ^%AUCLS
- +3 QUIT
- TIME ;
- +1 SET X1=$PIECE(^XUSEC(0,D0,0),U,4)
- SET X=""
- IF X1<2000000
- QUIT
- SET X=D0
- SET Y=$EXTRACT(X1_"000",9,10)-$EXTRACT(X_"000",9,10)*60+$EXTRACT(X1_"00000",11,12)-$EXTRACT(X_"00000",11,12)
- SET X2=X
- SET X=$PIECE(X,".",1)'=$PIECE(X1,".",1)
- IF X
- DO ^%DTC
- SET X=X*1440+Y
- +2 QUIT
